- Katılım
- 3 Ağustos 2010
- Mesajlar
- 57
- Excel Vers. ve Dili
- 2007 Türkçe
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)
If Target.Row < 6 Then Exit Sub
Cells.Interior.ColorIndex = 2
If Target.Column = 43 Then
Range(Cells(Target.Row, "C"), Cells(Target.Row, "AQ")).Interior.ColorIndex = 36
End If
End Sub