Satır ve Sütunları renkle belirleme

[Şovalye]

Klavyenin, ve/veya mause ile hangi hücreyi seçersem seçeyim, satır ve sütunlarını komple seçili hüçreyi gösterecek şekilde renkli gösterebilirmiyiz.. Yani ok ile hangi hücreye gidersem o hücrenin bulunduğu satır ve sütun komple renklenecek.. Yardımcı olursanız sevinirim.

Örnek ekli dosya..

 

[Recep İpek]

Ekteki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=14377

 

[Şovalye]

Ekteki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=14377

Ripek kardeş senin vermiş olduğun likteki dosyayı yükledim ve Add İns olarak kaydettim ancak Örnek dosyamı tekrar veriyorum. Senin gönderdiğin 2. sayfadaki gibi. Ben ise 1. sayfadaki gibi istiyorum. Seçili hücrenin içendeki rakam gözüküyor sadece + biçiminde renklendiği için o hizaya gelen ve seçili olmayan hücredeki rakamlar gözükmüyor..

 

[Şovalye]

Pardon örnek dosyayı göndermemişim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
sat = ActiveCell.Row
sut = ActiveCell.Column
Range(Cells(1, sut), Cells(sat, sut)).Interior.ColorIndex = 6
Range(Cells(sat, 1), Cells(sat, sut)).Interior.ColorIndex = 6
End Sub

 

[Recep İpek]

Benim dosyadaki

Set salan = Range(Cells(ActiveCell.Row, sbas), Cells(ActiveCell.Row, sson))

satırını

Set salan = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, ActiveCell.Column))

ile
.......

'Set kalan = Range(Cells(kbas, ActiveCell.Column), Cells(kson, ActiveCell.Column))

satırını ise

Set kalan = Range(Cells(1, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column))

ile değiştirin.

 

[Şovalye]

Teşekkürler.. Ancak bir sorun daha var.. Örnek sayfada gönderdim.. Renkli kısma denk gelen rakamların ve/veya yazıların hiçbirisi gözükmüyor.

 

[Recep İpek]

Renk parametreleri HR1-ID1 hücrelerinde olması gerekiyor.
Burada HZ1 ve IB1 hücrelerindeki renk kodları ile aktif satır kolon renk kodları aynı olduğu için yazılar görünmüyor.Bu hücrelerdeki kodları değiştirebilirsiniz.

Veya buralarda parametre tanımlı değil ise;

SatirOK = [HR1]
KolonOK = [HS1]
AktifOK = [HT1]
sbas = [HU1]
sson = [HV1]
kbas = [HW1]
kson = [HX1]
szrenk = [HY1]
syrenk = [HZ1]
kzrenk = [IA1]
kyrenk = [IB1]
azrenk = [IC1]
ayrenk = [ID1]

kodlarını kendinize göre uyarlayın.Örneğin SatirOK = True, szrenk = 3 gibi.