hem yatay hemde dikey olarak hücre renklenmesi nasıl olur..

[deneme038]

arkadaşlar aşağıdaki kodu size sorarak öğrendim.. şimdi yukarıda belirttiğim gibi bir kodu site içerisinde arayarak bulamadım. aşağıdaki kodda satır renklenmesi oluyor. benim istediğim hem satır hemde sütun renklenmesi ile ilgili olarak aşağıdaki kodu düzenleyebilirmisiniz..

örnek kod (sadece satır renk alıyor.)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlColorIndexNone
Rows(Target.Row).Interior.ColorIndex = 8
End Sub

 

[kelkitli]

Selamlar,
Ekteki şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlColorIndexNone
Columns(Target.Column).Interior.ColorIndex = 8
Rows(Target.Row).Interior.ColorIndex = 8
End Sub

 

[deneme038]

ilginizden dolayı teşekkür ederim. iyi çalışmalar...

 

[ZİNDAN]

Peki bu satırı renklendiren ilk kodu satırın belli bir uzunluk kısmını renklendirebilirmi.
Örnek dosya ekte.

Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B5:J38")) Is Nothing Then Exit Sub
On Error Resume Next
Range("B5:J38").Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":J" & Target.Row).Interior.ColorIndex = 8

End Sub

 

[ZİNDAN]

Teşekkürler sayın Evren Gizlen.
Süper olmuş.Bi çalışmamda kullanacağım bunu.Göze hoş geliyor.

 

[Orion1]

Teşekkürler sayın Evren Gizlen.
Süper olmuş.Bi çalışmamda kullanacağım bunu.Göze hoş geliyor.

Rica ederim.İyi çalışmalar.