ödeme tarihi atma

[adsoft]

Slm arkadaşlar ekde sunmuş olduğum tabolmda eğer ben e sütünundaki herhangi bir hücreye "x" işareti koyduğum zaman yan sütünda o işareti koyduğum tarih ve saat yazsın istiyorum

örnek "e3" hücresine "x" işaretini koyduğum zaman bunun "f3 "hücresine "x" işaretini koduğum tarih ve saat yazsın diyorum
ama bunu sadece e sütündayken yapsın başka bi,r sutunda yapmasın

 

[Ömer]

Merhaba,

X değil de herhangi bir değer girdiğiniz de çalışır. İsterseniz sadece x değeri olarak sınırlama da koyabiliriz.

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [E3:E16]) Is Nothing Then Exit Sub
 
    With Target
        .Offset(0, 1) = Now
        If .Value = "" Then .Offset(0, 1) = ""
    End With
 
End Sub

.

 

[adsoft]

merhaba,

x değil de herhangi bir değer girdiğiniz de çalışır. Isterseniz sadece x değeri olarak sınırlama da koyabiliriz.

çalışma sayfasının kod bölümüne;

private sub worksheet_change(byval target as range)
 
    ıf ıntersect(target, [e3:e16]) ıs nothing then exit sub
 
    with target
        .offset(0, 1) = now
        ıf .value = "" then .offset(0, 1) = ""
    end with
 
end sub

.

çok tşk ederim elinize sağlık