Kodlarıma Uygulamak İstediklerim

Range("A1:" & Split(Cells.End(xlToRight).Address, "$")(1) & Split(Cells.End(xlDown).Address, "$")(2)).Select kodu ile A1:?? aralığındaki hücrelerin tamamını seçebilirsiniz.

Renkli kenarlık için isei Geliştirici sekmesinden Makro Kaydet yöntemi ile işlem yaparak çıkan kodları incelemenizi öneririm.
Deneme imkanım olmadığı için afaki yazdım mesajımı.

Merhabalar Sn. @hakki83

Birincisi;
İstediğiniz alanı temizleme işlemi için öncelikle Son dolu hücrenin numarasını bir değişkene almalısınız.
Örneği Çözüldü - Yazdırma Alanının Belirlenmesi isimli açtığınız konuda paylaştığım aşağıdaki satırdır.
Son dolu hücre numarasını bulduktan sonra bu değer ile istediğiniz hücre aralığını tanımlarsınız.

Örnek olarak bahsettiğiniz F1:H alanı için satırını kullanabilirsiniz.

Bu iki satırı kullanmak istediğiniz kodların üstüne eklerseniz, önce belirlenen alan temizlenmiş olur.

İkinci kısım ilk kısım ile aynı, tek fark belirlenen alan için .Clear komutu yerine .Borders.Color = rgbSilver komutunu kullanmak.
Bu şekilde kodları birleştirerek istediğiniz işlemi gerçekleştirmiş olursunuz.

Sayın AhmetRasim hocam
Paylaştığınız bu iki satırı birleştirip, değişken, tanımlama vs kullanmadan tek satır olarak yazma imkanımız var mıdır?


Bir de şu satırda
Sayfa1.Range("A"
Buradaki A harfinin F olması gerekmiyor mu? A harfi tüm sayfayı seçmek anlamına mı geliyor?

Teşekkürler.

Sayfa1.Range("A" & Rows.Count).End(xlUp).Row satırı diğer konuda olduğu için örnek olarak paylaşmıştım ve yine diğer konuda sütun harfi için not bırakmıştım.
Amacım, konular benzer olduğu için aynı satırları farklı kodlarda kullanımını göstermekti.

Son isteğinize göre tek satırda yapmak için aşağıdaki satırları belirttiğim yerlere ekleyiniz.

Kodların ilk satırına
Kodların son satırına

Sayın AhmetRasim hocam çok teşekkür ederim ilginize. Sürekli karşılaştığım end(xlup).row konusunu öğrenmek istiyordum. İyi oldu bu paylaştığınız hali.

Rica ederim.
Saygılarımla, iyi çalışmalar.

AhmetRasim' Alıntı:

Rica ederim.
Saygılarımla, iyi çalışmalar.

Genişletmek için tıklayın ...

Hocam bende bir konu açmıştım bilginiz varsa bu konuda yardımcı olabilir misiniz