• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userformda Ay Ekleme

V

vasifokur

Katılım
20 Ocak 2006
Mesajlar
205
Öncelikle Kadir Gecemiz mübarek olsun.Ekli sayfadaki çalışma için; B hücresindeki tarihe H hücresindeki ay sayısını ekleyip F hücresine yazdırabilir miyiz? Ayrıca E hücresinde taksidin ötelenebileceği ay miktarı var. Örneğin o hücrede 3 veya 5 yazdığında ödemenin biteceği ay da 3-5 kadar ay ertelenmiş olacak. Bu iki soruma yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.
 

Ekli dosyalar

Merhaba.F2 hücresine aşağıdaki formülü yazıp denermisin.
Not: öteleme ve taksit sayısı ay olacak.
Kod: 
=TARİH(YIL(B2);AY(B2)+E2+H2;GÜN(B2))
 
Tarih formülünü biliyorum. Userformda gerekli bilgileri (B,H,E) hücrelerine girdikten sonra F hücresine otomatik olarak yazmasını istiyorum.
 
Modül içine aşağıdaki kodları ekleyip kaydet butonu altına Call vvv olarak ekleyip denermisin.
Kod: 
Sub vvv()
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=DATE(YEAR(RC[-4]),MONTH(RC[-4])+RC[-1]+RC[2],DAY(RC[-4]))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F10"), Type:=xlFillDefault
    Range("F2:F10").Select
    Range("F2").Select
End Sub
 
Sn Korhan Ayhan beyin bir makrosunu buldum. Benim işimi görecek gibi. Yalnız eklemeden sonra ortaya çıkan tarihi C1 hücresinde görmek için ne yapmalıyım?
 
6 nolu dosya içinse kodları aşağıdaki gibi yapın.
Kod: 
Sub TARİHE_AY_EKLE()
    Dim Tarih As Date    
    Tarih = Date
   [COLOR="Red"] [c1] = DateSerial(Year(Tarih), Month(Tarih) + [b1], Day(Tarih))[/COLOR]
    MsgBox DateSerial(Year(Tarih), Month(Tarih) + [b1], Day(Tarih))
End Sub
 
Sevgili arkadaşlar; yapmak istediğim şeyde hata uyarısı alıyorum. Ne yaptıysam başaramadım. Userformda tarih ve eklenen aya veri girdiğimde sonucu görüyorum. Aktarırken hata veriyor. Yardım ederseniz sevineceğim.
 

Ekli dosyalar

vasifokur' Alıntı:
Sevgili arkadaşlar; yapmak istediğim şeyde hata uyarısı alıyorum. Ne yaptıysam başaramadım. Userformda tarih ve eklenen aya veri girdiğimde sonucu görüyorum. Aktarırken hata veriyor. Yardım ederseniz sevineceğim.
Genişletmek için tıkla ...

commandbutton1_click olayında yer alan

Kod: 
TextBox1 = Empty: TextBox2 = Empty: TextBox3 = Empty: TextBox4 = Empty: TextBox5 = Empty: TextBox6 = Empty: TextBox7 = Empty

satırı hataya neden olan satır. Çünkü butona bastığınızda hücrelere aktarılacak veriler siliniyor. Aktarılacak veri bulamadığından uygulamanız hata veriyor.
 
Sevgili arkadaşlar,bu konuda başınızı ağrıttığım için özür diliyorum.İstediğim tam olmadı. Tektboxa 1 e girdiğim tarihe , tektbox 2 ye girdiğim ay eklenecek ve sonuç Textbox 3 e tarih olarak gelecek ve ilgili hücreye aktarılacak. Ama dediğim gibi olmuyor. Acaba nerede hata yapıyorum?
 
Olmayan tam olarak nedir? Ne olması gerekiyor, ne oluyor? Örnekleyebilir misiniz?
 
Örneğin Tektbox1'e 01.01.2013 tarihini , Textbox2'ye 3 girdiğimde, Tektbox3'e 01.04.2013 gelmesi gerekirken 4/1/2013 bilgi geliyor. Denetim masasındaki tarih formatı da gg.aa.yyyy şeklinde burada da bir sıkıntı yok. Sonuç olarak tarih 4/1/3013 yerine 01.04.2013 olmalı.
 
vasifokur' Alıntı:
Örneğin Tektbox1'e 01.01.2013 tarihini , Textbox2'ye 3 girdiğimde, Tektbox3'e 01.04.2013 gelmesi gerekirken 4/1/2013 bilgi geliyor. Denetim masasındaki tarih formatı da gg.aa.yyyy şeklinde burada da bir sıkıntı yok. Sonuç olarak tarih 4/1/3013 yerine 01.04.2013 olmalı.
Genişletmek için tıkla ...

Eki inceler misiniz?
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst