ptcsite
Altın Üye
- Katılım
- 8 Nisan 2016
- Mesajlar
- 123
- Excel Vers. ve Dili
- M.OFFICE 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 26-12-2027
İyi günler Örnek Dosyada A ve C sütunlarında veri girişi yapınca sağ tarafına otomatik tarih yazdırıyorum ancak veri girişi yaptığım hücreleri tek tek değilde komple seçimle silmeye kalkıştığımda tarihler silinmiyor ve uyarı çıkıyor... Bu uyarıyı nasıl giderebilirim. Örnek Kod aşağıdaki gibidir:
XML:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A25], [C2:C25]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy") And Cells(Target.Row, "D") = Format(Now, "dd.mm.yyyy")
If Intersect(Target, [A2:A25]) Is Nothing Then GoTo 2:
If Target.Value = "" Then
Target.Offset(0, 1).ClearContents
Else
Target.Offset(0, 1) = Date
End If
2:
If Intersect(Target, [C2:C25]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 1).ClearContents
Else
Target.Offset(0, 1) = Date
End If
End Sub
Ekli dosyalar
-
16.1 KB Görüntüleme: 2