Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
Target.Interior.ColorIndex = 0
End With
End Sub
Bu kodu kullanarak Excel'de satır ve sütunları ışıklandırıyorum , Yardım menüsünün yanına açtığım Renklendir adlı menünün altına Aç ve Kapat olarak iki tane de başlık koydum. Ãimdi benim istediğim: Aç'a basınca ışıklandırma özelliği açılsın Kapat'a basınca kapansın.
Bu konuda bana yardımcı olursanız çok sevinirim. Ãimdiden teşekkürler...
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
Target.Interior.ColorIndex = 0
End With
End Sub
Bu kodu kullanarak Excel'de satır ve sütunları ışıklandırıyorum , Yardım menüsünün yanına açtığım Renklendir adlı menünün altına Aç ve Kapat olarak iki tane de başlık koydum. Ãimdi benim istediğim: Aç'a basınca ışıklandırma özelliği açılsın Kapat'a basınca kapansın.
Bu konuda bana yardımcı olursanız çok sevinirim. Ãimdiden teşekkürler...