DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=BAĞ_DEĞ_DOLU_SAY(B3:F3)=0
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
If Target.Column < 2 And Target.Column > 6 Then Exit Sub
For i = 3 To 15
If Cells(i, "B") = "" Or Cells(i, "C") = "" Or Cells(i, "E") = "" Or Cells(i, "F") = "" Then
Cells(i, "A").Font.ColorIndex = 2
Else: Cells(i, "A").Font.ColorIndex = 1: End If: Next i: i = Empty
End Sub