şarta göre tarih yazdırılması

[k0081]

Merhaba arkadaşlar;

H12 ye ödendi yazınca G12 ye tarihi nasıl yazdırırım ? H13, H14 ,,,,, G12 ,G13 diye devam ediyor..

yardımcı arkadaşa şimdiden teşekkürler..

 

[Necdet]

Merhaba,

Aşağıdaki kodları 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, [H:H]) Is Nothing Then Exit Sub
    If Target.Row < 14 Then Exit Sub
    If StrComp(Replace(Target.Value, "İ", "i"), "ödendi", 1) = 0 Then Target.Offset(0, 1) = Date
Son:
    
End Sub

 

[k0081]

Merhaba,

hocam cevap için teşekkürler.. bunu örnek bir dosyada değiştirme şansımız varmıdır..

konu : borç listesi

http://www.excel.web.tr/f50/odendi-yazynca-tarihinde-yazylmasy-t109586/sayfa2.html