DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
a = ActiveCell.Column
Columns(a).Interior.ColorIndex = 10
aa = ActiveCell.Row
Rows(aa).Interior.ColorIndex = 10
End Sub