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.Address = "$A$2" Then
Range("B2").Interior.Color = vbGreen
Else
Range("B2").Interior.ColorIndex = xlNone
End If
End Sub