hücre dolu ise tarih yazması

[argo619]

arkadaşlar ekli dosyamda görüleceği gibi eğer B1 hücresi dolu ise A1 hücresine günün tarihini yazması gerekmektedir
bu mümkün mü
ilginize şimdiden teşekkür

 

[argo619]

arkadaşlar ekli dosyamda görüleceği gibi eğer B1 hücresi dolu ise A1 hücresine günün tarihini yazması gerekmektedir
bu mümkün mü
ilginize şimdiden teşekkür

 

[Necdet]

Merhaba,

Aşağıdaki kodları İlgili Sayfanın Kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Target.Offset(0, -1).Value = Date
Son:
End Sub

 

[argo619]

Hocam TeŞekkÜrler SaĞolun

 

[argo619]

Hocam B1 HÜcresİ Sİlİnİnce A1 HÜcresİndekİ Tarİhİn De Sİlİnmesİ Gerekİr
Tekrar Yazinca Tekrar Tarİh Atmali
Yanİ B1 HÜcresİ GÜnlÜk DeĞİŞeceĞİnden Tarİhİnde DeĞİŞmesİ Gerekİr

 

[Necdet]

Merhaba.

Bu durumda aşağıdaki kodları kullanınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target <> "" Then
        Target.Offset(0, -1).Value = Date
    Else
        Target.Offset(0, -1).Value = ""
    End If
Son:
End Sub

 

[argo619]

hocam mükemmelsiniz
teşekkürler
allah bilginizi daim etsin
sağolun