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)
Dim i As Integer
For i = 2 To Cells(Rows.Count, "a").End(3).Row
Range("c" & i).Interior.Color = Range("b" & i).Interior.Color
Range("d" & i).Interior.Color = Range("b" & i).Interior.Color
Next i
End Sub