Hücreye tıklayınca tüm satırın değişmesi

[onural1973]

Slm arkadaşlar hücreye veri girişinde veya bir hücre seçilince o hücrenin bulunduğu tüm satır belirgin hale gelebilirmi varmı bunun bir kolay yolu teşekkürler

 

[zipir123]

satır renklendirme

Slm arkadaşlar hücreye veri girişinde veya bir hücre seçilince o hücrenin bulunduğu tüm satır belirgin hale gelebilirmi varmı bunun bir kolay yolu teşekkürler

aşağıdaki kodu sayfa 1'in kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 5
End Sub

 

[meslan]

Merhaba
Sayfa sekmesinde sağ klik , Kod görüntle
Aşağıdaki kodu kopyala yapıştır. Kolay gelsin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a:f]) Is Nothing Then Exit Sub
[a:f].Interior.ColorIndex = xlNone
a = Target.Row
Range("A" & a & ":f" & a).Interior.ColorIndex = 19
End Sub

 

[zipir123]

satir renklendirme

Slm arkadaşlar hücreye veri girişinde veya bir hücre seçilince o hücrenin bulunduğu tüm satır belirgin hale gelebilirmi varmı bunun bir kolay yolu teşekkürler

Sn. Onural1973
ekli dosyayı inceleyiniz.

 

[onural1973]

Her ikinizede teşekkür ede3rim iyi geceler

 

[onural1973]

Arakadaşlar her iki formulü denedim başta çalıştı ama aynı kitap içinde diğer sayfalarda olmuyor o safyanın kodunuda yapıştırıncada run-timme error uyarısı ile interior sınıfının color index özlliği kurulamıyor diyor ne yapcaz şimdi

 

[zipir123]

satır renklendirme

Arakadaşlar her iki formulü denedim başta çalıştı ama aynı kitap içinde diğer sayfalarda olmuyor o safyanın kodunuda yapıştırıncada run-timme error uyarısı ile interior sınıfının color index özlliği kurulamıyor diyor ne yapcaz şimdi

Sn. Onural 1973 aynı kodu diğer sayfaların kod bölümüne yapıştırınız.
ekli dosyayı inceliyiniz.

 

[onural1973]

Sn. Onural 1973 aynı kodu diğer sayfaların kod bölümüne yapıştırınız.
ekli dosyayı inceliyiniz.
MALESEF YAPMIŞTIM YUKARIDA DEDİĞİM HATAYI VERİYOR

 

[baydeniro]

Paylaşım için teşekkürler