belli aralıkta satır sütun renklendirme

[bunyaming]

Merhaba,

aşağıda ki kod ile tıklanan kesişim noktası,komple sütun ve satır renkleniyor.

bunu dolu olanlar için yapmaya çalıştım ama olmadı. Nasıl düzenlemeliyim?

teşekkürler

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal secim As Range)

Cells.Interior.ColorIndex = xlNone
If secim.Row > 2 And secim.Row < 17 And secim.Column < 5 Then

ActiveCell.EntireRow.Interior.ColorIndex = 27
ActiveCell.EntireColumn.Interior.ColorIndex = 27
ActiveCell.Interior.ColorIndex = 3

End If


End Sub

 

[Korhan Ayhan]

Dolu olanlardan kastınız nedir?

 

[bunyaming]

Merhaba Hocam,

uğraştığım tablo 3 ncü satırdan başlıyor 16 ncı satıra kadar gidiyor ve 4 sütundan oluşuyor.

uyguladığım kod ile sütun ve satır komple sona kadar renkleniyor.(

Ben 16 ncı satırda ve 4 ncü sütunda bitsin gerisi renksiz kalsın diye uğraşıyorum (mantığını öğrenmeye çalışıyorum)

teşekkürler

 

[bunyaming]

merhaba,

bu kadar yapabildim, nasıl iyileştirilebilir?

yardımcı olursanız sevinirim

teşekkürler

 

[Orion1]

merhaba,

bu kadar yapabildim, nasıl iyileştirilebilir?

yardımcı olursanız sevinirim

teşekkürler

Olmuş zaten.

 

[bunyaming]

Merhaba Hocam,
4 ncü sütundan ve 16ncı satırdan sonra sağa ve aşağı doğru önce kırmızı yapıyor daha sonra beyaz yapıyor.
Ben o kırmızı hiç görünmesin diye uğraşıyorum
bunu kodla nasıl düzeltebiliriz
yardımcı olursanız sevinirim
teşekkürler

 

[Orion1]

Buyurun.
Dosyanız ektedir.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2:D16]) Is Nothing Then Exit Sub
Range("A2:D16").Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":D" & Target.Row).Interior.ColorIndex = 3
Range(Cells(2, Target.Column), Cells(16, Target.Column)).Interior.ColorIndex = 3
ActiveCell.Interior.ColorIndex = 27
End Sub

 

[bunyaming]

çok teşekkürler hocam, şimdi yazdıklarınızı süzgeçten geçirmek için uğraşayım
iyi geceler

 

[Orion1]

Rica ederim.
İyi çalışmalar.