textbox da toplama

[Barons]

Tüm Forumdaki arkadaslara merhaba

Uzun bir tatil dönüşü sonrası sizlerle tekrar buluşmak çok güzel...

Bu sıralar bir programla uğraşıyorum ancak excel dosyası sık sık sistem kaynakları yetersiz mesajı veriyor.
2nci sorunumda
textbox4 içinde calendar1 ile tarih atıyorum.textbox5 kutusuna ise bu tarihin 6 ay sonrasını atamam lazım ama bir türlü basaramadım.

Aşağıdaki kodu yazdım ama olmuyor.

textbox4 ün exit'ine;

Val(textbox5)=Val(textbox4)+180


Yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[Barons]

Sistem kaynakları problemini forumdan buldum hallettim...Foruma bir kez daha teşekkürler...Ã?nceden aramam gerekiyormuş..buda bana bir ders olsun

 

[veyselemre]

TextBox5 = DateSerial(Year(TextBox4), Month(TextBox4) + 6, Day(TextBox4))

 

[Barons]

Merhaba

Dosyayı göndersem iyi olacak....Veyselemre beyin gönderdiği kod hata veriyor.Ayrıca tekrar sistem kaynakları yetersiz hatası vermeye basladı.Bilgisayarımı daha bugün formatladım..her şey yeni ama anlayamıyorum

 

[pirullah]

syn Barons, örnek çalışmam ekte.

 

[Barons]

Sayın Pirullah

dosya açıldığında compile error hatası veriyor."Cant find object or library hatası

teşekkürler

 

[veyselemre]

sorun calender den kaynaklanıyor daha önce de karşılaştım böyle bir sorunla, aşağıdaki gibi kullanırsan çalışır

[vb:1:295ab037c8]Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
tarih = Calendar2.Value
TextBox6 = DateSerial(Year(tarih), Month(tarih) + 6, Day(tarih))
End Sub
[/vb:1:295ab037c8]

 

[Barons]

Teşekkürler çalışıyor ancak 10/08/2005 yerine 8/10/2005 olarak yazıyor...yani gün ile ay yer değiştiriyor...

Bu sorunuda çözerseniz mükemmel olacak

tekrar tekra Teşekkürler

 

[veyselemre]

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
tarih = Calendar2.Value
TextBox6 = format(DateSerial(Year(tarih), Month(tarih) + 6, Day(tarih)),"dd.mm.yyyy")
End Sub

olarak dene

 

[Barons]

merhaba

calendar uygulamasını kaldırdım...canım çok sıkıldı..sürekli hata veriyor...şimdi hata kesildi ancak bu seferde textbox4'e girdiğim tarih textbox5'de 1900 olarak çıkıyor...

Yardımlarınız için şimdiden teşekkürler


kod aşağıdadır:
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6 = Format(DateSerial(Year(tarih), Month(tarih) + 6, Day(tarih)), "dd.mm.yyyy")

 

[Mahmut Bayram]

Ekteki örnek işinizi görür mü?

 

[veyselemre]

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6 = Format(DateSerial(Year(TextBox4), Month(TextBox4) + 6, Day(TextBox4)), "dd.mm.yyyy")
End Sub

 

[Barons]

çok teşekkürler sn veyselemre

sorunum çözüldü...

herkese başarılar

 

[mekuka]

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6 = Format(DateSerial(Year(TextBox4), Month(TextBox4) + 6, Day(TextBox4)), "dd.mm.yyyy")
End Sub

bu formüldeki altı ay ekleme olarak değilde textbox daki değeri eklemek istersek nasıl bir kod yazmamız gerekir... Şimdiden Teşekkürler...