hücreye veri girince tarih saat atsın silince silsin

[esad45]

ekte gibi b1 e birşey girinc a1 e o anki ssat ve tarihi atsın silince de silsin bunu eğerli yaptığımda yarın açınca yarn ki tarihiveriyor ben ise o anki tarihi kayıt altına tutmak istiyorum

 

[Emir Hüseyin Çoban]

. . .

Sayfa1' in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Target.Column <> 2 Then Exit Sub

Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm")

If Target.Value = "" Then
Target.Offset(0, -1) = ""
End If

End Sub

. . .

 

[Sarigol_937]

Worksheet_Change ben bitane kod bölümünde kullanıyom bunuda yapıştırınca iki tane benzer kod olunca hata veriyor "Private Sub Worksheet_Change2(ByVal Target As Range) " benzer bişy yapılmazmı?

 

[Emir Hüseyin Çoban]

. . .

Diğer kodlarınızı örnek dosya üzerinde görmek gerekiyor. İkisi uyumlu hale getirilebilir.

. . .

 

[Sarigol_937]

Bu kod A2 sütünundan başlayarak sütünunda de veri olan satırlara otomatik butonsuz sıra numarası verdiren koddur;Sayfanın kod bölümünde yapıştırdım.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub
For i = 2 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

hücreye veri girince tarih saat atsın silince silsin

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Target.Column <> 2 Then Exit Sub

Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm")

If Target.Value = "" Then
Target.Offset(0, -1) = ""
End If

End Sub

bu iki makroyu koda yapıştıırınca hata veriyor.örnek dosya ektedir.

 

[Emir Hüseyin Çoban]

ekte gibi b1 e birşey girinc a1 e o anki ssat ve tarihi atsın silince de silsin bunu eğerli yaptığımda yarın açınca yarn ki tarihiveriyor ben ise o anki tarihi kayıt altına tutmak istiyorum

. . .

Burada B sütununda değişiklik yapınca A sütununa tarih yazmasını istemişsiniz.
Ancak tablonuzda A sütununa sıra no giriyorsunuz.
Şimdi H sütunu olmuş.
Aşağıdaki kodları deneyiniz. (iki kod birleştirildi)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim s As Long
If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub

Target.Offset(0, 6) = Format(Now, "dd.mm.yyyy hh:mm")
If Target.Value = "" Then
Target.Offset(0, 6) = ""
End If

For i = 2 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

. . .

 

[Sarigol_937]

Hüseyin Çoban bey çok teşekkür ederim kod tam istediğim gibi olmuş sorunum çözüldü.Allah razı olsun sizden.