- Katılım
- 18 Ekim 2023
- Mesajlar
- 69
- Excel Vers. ve Dili
- 2021 Türkçe
- Altın Üyelik Bitiş Tarihi
- 18-10-2024
Merhabalar bir VBA kodu yazdım amacım veri girdimde girilen tarih ve saat kaydetmesi kod güzel bir şekilde calısıyor ama ben olduki yanlıs verii girdim sildim veri olmamasına ragmen hala duruyor orda düzeltemiyorum ne eklemeliyim yardımcı olabilir misiniz?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
' Hedef aralığı B1:B1000 olarak ayarla
Set RaBereich = Range("B1:B1000")
' Sonsuz döngüyü engellemek için olayları devre dışı bırak
Application.EnableEvents = False
' Belirtilen hedef aralığındaki her değişik hücre için döngü
For Each RaZelle In Target
' Değişiklik yapılan hücrenin belirtilen aralık içinde olup olmadığını kontrol et
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
' Eğer öyleyse, hücrenin bir önceki sütunundaki değeri güncelle, şu anki tarih ve saat ile
RaZelle.Offset(0, -1).Value = Date + Time
End If
Next RaZelle
' Olayları tekrar etkinleştir
Application.EnableEvents = True
' Nesneleri temizle ve serbest bırak
Set RaBereich = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
' Hedef aralığı B1:B1000 olarak ayarla
Set RaBereich = Range("B1:B1000")
' Sonsuz döngüyü engellemek için olayları devre dışı bırak
Application.EnableEvents = False
' Belirtilen hedef aralığındaki her değişik hücre için döngü
For Each RaZelle In Target
' Değişiklik yapılan hücrenin belirtilen aralık içinde olup olmadığını kontrol et
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
' Eğer öyleyse, hücrenin bir önceki sütunundaki değeri güncelle, şu anki tarih ve saat ile
RaZelle.Offset(0, -1).Value = Date + Time
End If
Next RaZelle
' Olayları tekrar etkinleştir
Application.EnableEvents = True
' Nesneleri temizle ve serbest bırak
Set RaBereich = Nothing
End Sub