Seçili Hücrenin Bulunduğu Satır ve Sütunu İşaretlemek

[jostos]

Merhaba, elimde 81 ilin alt alta yer aldığı sütun sayısının fazla olduğu bir dosya var. Bu haliyle seçili hücrenin satır ve sütununu görmek biraz zorlayıcı oluyor. Sizlerden ricam tabloda seçmiş olduğum hücrenin bulunduğu satırı ve sütunu işaretleyecek bir kod yazabilir misiniz? Formülün seçili hücre değiştikçe dinamik bir şekilde çalışması gerekiyor.

 

[relaxim]

Merhaba

İlgili sayfanın kod sayfasına ekleyip deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)



'   ActiveSheet.Unprotect "123"



    Cells.Interior.ColorIndex = xlColorIndexNone

    ActiveCell.EntireColumn.Interior.ColorIndex = 15 'Sütun Rengi

    ActiveCell.EntireRow.Interior.ColorIndex = 22 ' Satır Rengi

    ActiveCell.Cells.Interior.ColorIndex = 6 ' Hücre Rengi



'    ActiveSheet.Protect "123"

    End Sub

 

[DoğanD]

Merhaba,

Dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = vbWhite
Range(Cells(1, Target.Column), Cells(Target.Row, Target.Column)).Interior.Color = vbYellow
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.Color = vbYellow
End Sub