iki Textbox arasindaki tarih farki hesaplama

[nicosian]

arkadaslar baya search yaptim, ama bir turlu ya beceriksizligimden yada gercekten cozemedigimden, ayri bir baslik acmak istedim.

iki textboxu hem excelde bir sutuna tarih formatinda yazmak, hemde buyukten kucugu cikarip kisaca tarih farkini hesaplayan gun bazinda bir macroya ihtiyacim var, cogu scripti denedim, bende bir turlu ise yaramadi. yardimci olabilecek varsa sevinirim...

 

[Ömer]

Merhaba,

Sorunuz net değil. Küçük bir örnek dosya ekleyerek detaylı açıklarmısınız.

 

[nicosian]

Merhaba,

Sorunuz net değil. Küçük bir örnek dosya ekleyerek detaylı açıklarmısınız.

Iyi calismalar omer bey. sorum su, ornek dostayada izin cikis ve giris bilgileri var, otomatik olarak 2 textboxta girilen tarihleri gun sayisi olarak hesaplama, ve en altta toplam kac gun izin kullandi veya kac gun izni kaldi gibi birsey yapmak istiyorum... simdiden cok tesekkur ederim..

 

[chngrcn]

http://www.excel.web.tr/f48/ki-tarih-arasynda-gun-farky-hesaby-t110435.html



bu konuyu inceleyeniz.. 4 nolu mesaj..

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")

If TextBox1.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

If TextBox2.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

TextBox3.Value = CDate(TextBox2.Value) - CDate(TextBox1.Value)

End Sub

 

[nicosian]

http://www.excel.web.tr/f48/ki-tarih-arasynda-gun-farky-hesaby-t110435.html



bu konuyu inceleyeniz.. 4 nolu mesaj..

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")

If TextBox1.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

If TextBox2.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

TextBox3.Value = CDate(TextBox2.Value) - CDate(TextBox1.Value)

End Sub

Denedim hocam. hata veriyor, search yaptigimda ilk o konuyu bulmustum. type missmatch hatasi veriyor.

TextBox3.Value = CDate(TextBox2.Value) - CDate(TextBox1.Value)

bu satirda.

 

[nicosian]

bir gonullu arkadas ilgilenirse sevinirim...

 

[Orion1]

aşağıdakini deneyiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")

If not isdate(TextBox1.Value) Then
MsgBox " Lütfen tarih giriniz..", , ""
textbox1.setfocus
End If

If not isdate(TextBox2.Value) Then
MsgBox " Lütfen tarih giriniz..", , ""
textbox2.setfocus
End If

TextBox3.Value = clng(CDate(TextBox2.Value) - CDate(TextBox1.Value))

End Sub

 

[nicosian]

aşağıdakini deneyiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")

If not isdate(TextBox1.Value) Then
MsgBox " Lütfen tarih giriniz..", , ""
textbox1.setfocus
End If

If not isdate(TextBox2.Value) Then
MsgBox " Lütfen tarih giriniz..", , ""
textbox2.setfocus
End If

TextBox3.Value = clng(CDate(TextBox2.Value) - CDate(TextBox1.Value))

End Sub

usta, niye ben yapamiyorum, type missmatch hatasi veriyor, Textbox3.value olan yerde, ve lutfen tarih giriniz diyede uyariyor once... varmi hazir bir excel ? birde girilen tarihleri excel`e de eklemek istiyorum. yaparsan sevinirim...

 

[Orion1]

usta, niye ben yapamiyorum, type missmatch hatasi veriyor, Textbox3.value olan yerde, ve lutfen tarih giriniz diyede uyariyor once... varmi hazir bir excel ? birde girilen tarihleri excel`e de eklemek istiyorum. yaparsan sevinirim...

Aşağıdaki kodları deneyiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")

If not isdate(TextBox1.Value) Then
MsgBox " Lütfen tarih giriniz..", , ""
textbox1.setfocus
exit sub
End If

If not isdate(TextBox2.Value) Then
MsgBox " Lütfen tarih giriniz..", , ""
textbox2.setfocus
exit sub
End If

TextBox3.Value = clng(CDate(TextBox2.Value) - CDate(TextBox1.Value))

End Sub

 

[nicosian]

hata vermedi, ama bu seferde hesaplamadi textbox 3

 

[nicosian]

ben bu olaayi birakacam galiba, cozemedim kac gundur...

 

[Orion1]

hata vermedi, ama bu seferde hesaplamadi textbox 3

neden?Çünkü siz textboxlara tarih girmiyorsunuz demekki!
Windowsun bölgesel ayarlarına bakıp kısa tarih girişine bakınız.
O biçimde tarih giriniz.

 

[nicosian]

‎26/‎01/‎2012
seklinde bilgisayarda short olarak ornekte bu var, bir daha deneyeyim...

 

[nicosian]

bu is bu kadar basitmiydi yaw valla ne diim...
orion usta birde sana zahmet, bunlari bir cell`e nasil aktarabiliriz??? sadece textbox3 u aktarsin yeter, digerlerini ben yaparim.

 

[Orion1]

bu is bu kadar basitmiydi yaw valla ne diim...
orion usta birde sana zahmet, bunlari bir cell`e nasil aktarabiliriz??? sadece textbox3 u aktarsin yeter, digerlerini ben yaparim.

a1 hücresine sayı olarak textbox3 atılıyor.

range("A1").value=cdbl(textbox3.value)

 

[nicosian]

usta, mesaj 3 de yolladigim excelde, bir hata buldum, 2 kez degistir dedigimde ayni kisiyi, row1 e kaydediyor ikinci duzeltme islemini...
bunu nasil duzeldebilirim???

 

[Orion1]

usta, mesaj 3 de yolladigim excelde, bir hata buldum, 2 kez degistir dedigimde ayni kisiyi, row1 e kaydediyor ikinci duzeltme islemini...
bunu nasil duzeldebilirim???

Konuyu anlamadım maalesef.

 

[nicosian]

daha acik anlatayim mi yoksa?

secili bir userforumda, degistir dedigimde, ilk seferde sikinti olmuyor, bulup duzeltiyor ilgili row veya hucreyi. ancak ikinci sefer degistir dedigimde, a1 b1 c1 seklinde duzeltiyor surekli.
nasil degistir dedigimde sifirlayip en basa atabilirim donguyu, buyuk bir ihtimal oyle birsey cunku...

 

[Orion1]

daha acik anlatayim mi yoksa?

secili bir userforumda, degistir dedigimde, ilk seferde sikinti olmuyor, bulup duzeltiyor ilgili row veya hucreyi. ancak ikinci sefer degistir dedigimde, a1 b1 c1 seklinde duzeltiyor surekli.
nasil degistir dedigimde sifirlayip en basa atabilirim donguyu, buyuk bir ihtimal oyle birsey cunku...

Userformda seçili olan nedir?
Listboxmı,comboboxmı?Listviewmi? nedir?

 

[nicosian]

vallahi hocam, yolladigim ornege bakarsaniz sevinirim, mesaj 3 te.
degistir butonu combobox, isimlerin oldugu yer listbox,
listboxa tiklamadan 2 kez degistir dedigim zaman, sapitiyor.