ödendi yazınca tarihinde yazılması

[k0081]

Merhaba arkadaşlar;

H12 ye ödendi yazınca G12 ye tarihi nasıl yazdırırım ?

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

 

[Huseyinkis]

Merhaba arkadaşlar;

H12 ye ödendi yazınca G12 ye tarihi nasıl yazdırırım ?

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

ekteki kodları sayfanın kod kısmına yapıştırıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H12]) Is Nothing Then Exit Sub
If Target.Value = "ödendi" Then
Cells("G12").Value = Format(Date, "DD.MM.YYYY")
End If
End Sub

 

[1Al2Ver]

Merhaba,

Alternatif olarak;

G12'ye (hücre biçimi tarih olmalı)

=EĞER(H12="Ödendi";BUGÜN();"")

 

[k0081]

ekteki kodları sayfanın kod kısmına yapıştırıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H12]) Is Nothing Then Exit Sub
If Target.Value = "ödendi" Then
Cells("G12").Value = Format(Date, "DD.MM.YYYY")
End If
End Sub

şu hatayı alıyorum : --> Cells("G12").Value = Format(Date, "DD.MM.YYYY")

 

[k0081]

Merhaba,


merhaba. verdiğiniz formül oldu . fakat şöyle bir değişiklik olabilirmi : ödendi ve ödedi kelimesine göre tarihi yazsın.. bir de bu kelimeyi (ödendi veya ödedi) sildiğimde tarihte silinsin.. teşekkürler..

 

[Korhan Ayhan]

Merhaba,

Formülle üretilen tarih kalıcı olmaz. Ertesi gün dosyayı açtığınızda günün tarihini alır.

=EĞER(YADA(H12="Ödendi";H12="Ödedi");BUGÜN();"")

Tarih kalıcı olsun değişmesin derseniz aşağıdaki kodu sayfanızın kod bölümüne uygulamanız yeterli olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H12")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
        Case "ÖDENDİ", "ÖDEDİ"
        Cells(Target.Row, "G") = Date
    End Select
End Sub

 

[k0081]

Merhaba,

hocam cevaplar için çok teşekkürler.. haklısınız formülde hengün tarih değişiyor.. farkındayım.. Sabit kalması gerekli.. o yüzden sizin verdiğiniz kodu kullanacağım.. kodu sayfaya yapıştırdım. ama tarihi atmıyor... Şöyle de bir bilgi vermeliyim sanırım.. bu tablo başka bir yerden çağırarak getiriyorum. Borc takip butonuna bsaınca ana menu sayfam kapanıp "Borc" isimli sayfam kalıyor ekranda.. bundan kaynaklanıyor olabilirmi ?

 

[Korhan Ayhan]

Merhaba,

Keşke bu detayları ilk mesajınızda verseydiniz. Boşuna uğraşmazdık.

Şöyle de bir bilgi vermeliyim sanırım.. bu tablo başka bir yerden çağırarak getiriyorum. Borc takip butonuna bsaınca ana menu sayfam kapanıp "Borc" isimli sayfam kalıyor ekranda.. bundan kaynaklanıyor olabilirmi ?

 

[k0081]

Merhaba,

Keşke bu detayları ilk mesajınızda verseydiniz. Boşuna uğraşmazdık.

Özür.. tahmin edemedim..

 

[Korhan Ayhan]

Merhaba,

Örnek dosya eklermisiniz.

 

[k0081]

Merhaba,

Örnek dosya eklermisiniz.

Ekli dosyayı görüntüle borc listesi.rar
dosyayı ekledim Korhan bey. bu tabloda borc tarihini ne kadar geçtiğini gören bir kısım daha ekliyorum.. burda ödendi veya ödedi yazmıyorsa borç tarihinden bugün çıkaratarak gün hesaplatacağım.. ödendi veya ödedi yazıyorsa o tarihten işlem yaptırma istiyorum.. teşekkürler.. saygılar..

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açtım. I sütununda "ödendi" ve "ödedi" bilgileri var. Siz hangi sütuna ne gibi bir işlem yapmak istiyorsunuz.

Eğer G sütunundaki geçen süreyi hesaplatmak istiyorsanız bu sütun için hangi tarih baz alınacak.

 

[k0081]

Merhaba,

Dosyanızı açtım. I sütununda "ödendi" ve "ödedi" bilgileri var. Siz hangi sütuna ne gibi bir işlem yapmak istiyorsunuz.

Eğer G sütunundaki geçen süreyi hesaplatmak istiyorsanız bu sütun için hangi tarih baz alınacak.

öncelikle H sütununa tarih yazılmasını istiyorum.. G sütununa da geçen süre..

baz alınacak tarih : E sütunundaki tarihtir. yalnız burda şöyle bir durum var.. I sütununda ödendi ve ya ödedi yazmıyorsa B1 ile E hücresi arasında bağlantı olacak. diyelimki : ödedi yazıyor o zamanda E ile G arasındaki tarihler baz alınacak..