Satır ve Sütun Renklendirme

[ultraslan38080]

Arkadaşlar mesela F10:K100 aralığında geçerli olmak üzere,

örneğin h15 hücresini fare ile tek tıklayarak seçtiğimde H15 hücresinin bir renk, H15 hücresinin olduğu sütun ile satırın da F10:K100 aralığına kalmak üzere ayrı ayrı renklenmesini istiyorum. Nasıl yaparız?

 

[kulomer46]

Aşağıdaki makro kodu işinizi görür.

Kolay Gelsin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row >= 10 And Target.Row <= 100 And Target.Column >= 6 And Target.Column <= 11 Then

Range(Cells(10, 6), Cells(100, 11)).Interior.Color = xlNone

Range(Cells(Target.Row, 6), Cells(Target.Row, 11)).Interior.Color = RGB(255, 20, 210)

Range(Cells(10, Target.Column), Cells(100, Target.Column)).Interior.Color = RGB(0, 155, 150)

Target.Interior.Color = RGB(255, 182, 0)

Else

Range(Cells(10, 6), Cells(100, 11)).Interior.Color = xlNone

End If

End Sub

 

[ultraslan38080]

Aşağıdaki makro kodu işinizi görür.

Kolay Gelsin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row >= 10 And Target.Row <= 100 And Target.Column >= 6 And Target.Column <= 11 Then

Range(Cells(10, 6), Cells(100, 11)).Interior.Color = xlNone

Range(Cells(Target.Row, 6), Cells(Target.Row, 11)).Interior.Color = RGB(255, 20, 210)
Range(Cells(10, Target.Column), Cells(100, Target.Column)).Interior.Color = RGB(0, 155, 150)
Target.Interior.Color = RGB(255, 182, 0)

Else

Range(Cells(10, 6), Cells(100, 11)).Interior.Color = xlNone

End If

End Sub

Malesef kod çalışmadı.

 

[ÖmerBey]

Malesef kod çalışmadı.

Merhaba,
Yukarıdaki kodu ilgili sayfanın kod bölümüne girmeniz gerekiyor. O zaman çalışacaktır.

 

[ultraslan38080]

Merhaba,
Yukarıdaki kodu ilgili sayfanın kod bölümüne girmeniz gerekiyor. O zaman çalışacaktır.

evet çalıştı. benim hatammış. çok teşekkür ediyorum.