Excel Worksheet and SelectionChange

     #Belirtilen target(hedef) de seçili alan olan  Row(satır)'da tablo boyutu kadar seçili alanı boyama ödevi:

Örnek :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row > 2 And Target.Row < 8 And Target.Column = 1 Then

Range("A1") = Target.Value @Range yardımı ile Seçilen hücreyi target A1'e gönderme

End If

End Sub

Örnek çıktı  :

    Yukarıda bulunan kod yardımı ile seçili hücreyi target (hedef)'e gönderdik fakat bu işlem tablo boyunca, seçili olan satırın boya işlemi yapmayacaktır.

    Boyama işleminin gerçekleşmesi için; Koşullu Biçimlendirme yöntemini kullanarak yeni kural atama işlemi yapcağız:

    Giriş sekmesinden = Koşullu Biçimlendirme

    Yeni Kural 

Açılan pencerede Biçimlendirilecek hücrelerin seçim işlemi fare yardımıya yaptıkdan sonra

    Kodumuzda bulanan işaretli yerde ki sabitleme işareti olan $ şeklini siliyoruz ki;

kodumuz aşağıya doğru seçili A1 sütünuna eşit olabilsin olması gereken son hali :

Biçimlendirme butonuna tıklayarak açılan pencerede dolgu sekmesinden rengimiz seçiyoruz

Tamam dedikkten sonra artık tablomuzda A1 sütunundan, tablo içerisinde ki seçili hücreye denk gelen satırın tablo boyunca sarıya boyandığını görmemiz mümkün.