iki tarih arasındaki veriyi bulma

[olymposss]

saygıdeğer arkadaşlar iyi akşamlar

aşağıda kullandığım kodlarda textbox5 için t1 t2 ve t3 gibi tarihler arasında olma durumunu eğer ile çevirmeye çalışıyorum. ancak her seferinde ilk eğer de kaydı tamamlıyor. bu konuda fikri gelen var mı?

If TextBox5.Value <= t1.Value Then
Sheets("ticarimal").Select
GoTo varm1
Else
If t1.Value > TextBox5.Value <= t2.Value Then
Sheets("ticarimal2").Select
GoTo varm2
Else

yardımlarınız için çok teşekkürler. saygılar:yardim:

------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[Mahmut Kök]

Tam olarak anlamamakla beraber, for next d&#246;ng&#252;s&#252;n&#252;n bu gibi durumlarda kullan&#305;labilece&#287;ini hat&#305;rlat&#305;r&#305;m. Kodlar&#305;n&#305;zdaki ilk e&#287;er do&#287;rulamas&#305;n&#305; m&#305; kast ediyorsunuz, yoksa textbox5 bilgiyi sayfadan al&#305;yor da, ald&#305;&#287;&#305; ilk bilgide e&#287;er do&#287;rulamas&#305; olunca m&#305; duruyor..?

 

[Zeki Gürsoy]

Aşağıdaki gibi dener misiniz?

If TextBox5.Value <= t1.Value Then
   Sheets("ticarimal").Select
   GoTo varm1
ElseIf  t1.Value > TextBox5.Value <= t2.Value Then
  Sheets("ticarimal2").Select
  GoTo varm2
Else
.
.
.
End if

 

[olymposss]

sn anemos

iyi sabahlar

sizin yazdığınız gibi daha önce denemiştim ancak bir değişiklik olmuyor. sn mesleki ye de daha net bir açıklama yapayım. tam olarak textbox5 e bir tarih giriyorum. t1 t2 t3 olarak belirlediğim textboxlar da ise sabit birer tarih var. istediğim textbox5 e girilen tarih hangi tarihler arasında ise komut oraya yönlensin.
ilginize çok teşekkür ederim. saygılar.:yardim:

 

[Recep İpek]

A&#351;a&#287;&#305;daki &#351;ekilde deneyiniz.

Private Sub CommandButton1_Click()
If CDate(TextBox5.Value) <= CDate(t1.Value) Then
Sheets("ticarimal").Select
GoTo varm1
ElseIf CDate(t1.Value) > CDate(TextBox5.Value) <= CDate(t2.Value) Then
Sheets("ticarimal2").Select
GoTo varm2
End If
End Sub

 

[olymposss]

maalesef denedim ama olmuyor

If CDate(TextBox5.Value) <= CDate(t1.Value) Then
Sheets("ticarimal").Select
GoTo varm
ElseIf CDate(t1.Value) > CDate(TextBox5.Value) <= CDate(t2.Value) Then
Sheets("ticarimal2").Select
GoTo varm
ElseIf CDate(t2.Value) > CDate(TextBox5.Value) <= CDate(t3.Value) Then
Sheets("ticarimal3").Select
GoTo varm
ElseIf CDate(t3.Value) > CDate(TextBox5.Value) <= CDate(t4.Value) Then
Sheets("ticarimal4").Select
GoTo varm
Else
Exit Sub
varm:
tarihe göre değişiklik gösterecek tek şey çalışma sayfasının tarihe göre seçilmesi. yani 1/1/2006 ile 31/3/2006 arasında ise ticarimal'a, 1/4/2006 ile 30/6/2006 arasında ise ticarimal2'e ....kaydet vs. devam ediyor.
ancak ben hangi tarihi textbox5e girsemde yine ticarimal2ye kaydediyor.
yukarıdaki formül en son denediğim formul maalesef çalışmadı.
yardımlarınızı bekliyorum

saygılar:yardim:

 

[Recep İpek]

If CDate(TextBox5.Value) <= CDate(t1.Value) Then
Sheets("ticarimal").Select
GoTo varm
ElseIf CDate(t1.Value) > CDate(TextBox5.Value) <= CDate(t2.Value) Then
Sheets("ticarimal2").Select
GoTo varm

Yukarıda kırmızı olan karşılaştırmalar biraz bana uyumsuz geliyor.

Çünkü ikisinde de Textbox5'in küçük olmasını istiyorsunuz.

 

[olymposss]

evet doğru

çok doğru sanırım olay buradan oluyor. peki ben textbox5 in t1 ve t2 tarihleri arasında olmasını nasıl ayarlayabilirim?:???:

 

[Recep İpek]

ElseIf CDate(TextBox5.Value)>CDate(t1.Value) And CDate(TextBox5.Value) <= CDate(t2.Value) Then

yapabilirsiniz.

 

[olymposss]

maalesef buda olmadı

bunu da denedim farklı yollarda denedim ama olmadı. başka yolu var mı acaba?
t1.t2.t3 ve t4 te sabit tarihler var. textbox5 e userformdan tarih giriyorum. istediğim textbox5 hangi tarisler arasında ise komut oraya yönlensin. ancak yukardaki kodlarla olmadı.
örn. eğer t1>textbox5<=t2 ise bu bilgileri sayfa1 e yaz değilse, eğer t2>tetxbox5<=t3 ise bilgileri sayfa2 ye yaz değilse, eğer.........

bu söylemi kodlara başka yollarla aktarabilirmiyim. yardımız için çok teşekkürler.

saygılar:yardim:

 

[Recep İpek]

A&#351;a&#287;&#305;daki &#246;rne&#287;i kendinize g&#246;re uyarlay&#305;n&#305;z.Bende sorunsuz &#231;al&#305;&#351;&#305;yor.Buda olmaz ise kodlar&#305;n&#305;z&#305;n t&#252;m&#252;n&#252; veya dosyan&#305;z&#305;n boyutu k&#252;&#231;&#252;k ise dosyan&#305;z&#305; ekleyiniz.

Private Sub CommandButton1_Click()
a = CDate(TextBox5.Value)
b = CDate(t1.Value)
c = CDate(t2.Value)
d = CDate(t3.Value)
e = CDate(t4.Value)
If a <= b Then
MsgBox "Sayfa1"
ElseIf a > b And a <= c Then
MsgBox "Sayfa2"
ElseIf a > c And a <= d Then
MsgBox "Sayfa3"
ElseIf a > d And a <= e Then
MsgBox "Sayfa4"
ElseIf a > e Then
MsgBox "Sayfa5"
End If
End Sub