DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If (Target Mod 2) = 0 Then
Range("A" & Target.Row, "X" & Target.Row).Interior.ColorIndex = 4
Else
Range("A" & Target.Row, "X" & Target.Row).Interior.ColorIndex = 41
End If
End Sub
Sub renk()
Dim i As Byte
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) Mod 2 = 0 Then
Cells(i, 1).Interior.ColorIndex = 4
Else
Cells(i, 1).Interior.ColorIndex = 5
End If
Next i
End Sub