DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B100]) Is Nothing Then Exit Sub
If Target = 1 Then
Target.Offset(0, 2) = Date
Else
Target.Offset(0, 2).ClearContents
End If
End Sub
Sub kontrol()
Set s1 = Sheets("Sayfa1")
son = s1.Cells(Rows.Count, "B").End(3).Row
Application.ScreenUpdating = False
For i = 2 To son
If s1.Cells(i, "B") = 1 Then
s1.Cells(i, "D") = Date
Else
s1.Cells(i, "D").ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub