Aktif satır aralığı renklendirme.

[xemdarx]

Aşağıdaki tabloda aktif hücrenin renklenme kuralını biçim bozmadan A:N satır aralığına uygulamak mümkün mü?

 

[YUSUF44]

Sayfa kodlarında bulunan

target.address

yerine

"A" & Target.Row & ":N" & Target.Row

deneyin.

Yani kodun son hali şöyle olacak:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("condForm")
ws.Cells.ClearContents
ws.Range("A" & Target.Row & ":N" & Target.Row) = 1
End Sub

 

[xemdarx]

İstediğim gibi..Teşekkürler Yusuf Bey..