2 yada 3 Arttırarak Döngü

[alitolga2000]

Private Sub TextBox1_change()
cmdbul_Click
If TextBox40 & TextBox41 = "" Then
TextBox140 = ""
TextBox141 = ""
TextBox142 = ""
Exit Sub
Else
If Not IsDate(TextBox41) Then
TextBox41.Value = Format(Now, "dd.mm.yyyy")
End If
TextBox140 = Kidem2((TextBox40), ((TextBox41)))
TextBox141 = Kidem1((TextBox40), ((TextBox41)))
TextBox142 = Kidem((TextBox40), ((TextBox41)))
End If
End Sub



Private Sub TextBox43_change()
If TextBox42 & TextBox43 = "" Then
TextBox143 = ""
TextBox144 = ""
TextBox145 = ""
Exit Sub
Else
TextBox143 = Kidem2((TextBox42), ((TextBox43)))
TextBox144 = Kidem1((TextBox42), ((TextBox43)))
TextBox145 = Kidem((TextBox42), ((TextBox43)))
End If
End Sub


yukardaki textbox1 içine textbox43 ün kodlarını nasıl ekleyebilirim.
Yanlız mesela textbox1 deki koda
40 ile 139 arası boşsa
140 ile 289 boş
değise
(2 Arttırarak ) 41,43,45,47,....,139 tarih değilse yine
(2 arttırarak ) 41,43,45,47,....,139 bugünün tarihi
değilse
140,143,146,149,.....,287 kidem2....
141,144,147,148,.....,288 kidem1....
142,145,148,151,.....,289 kidem
bitir

olacak ama yukardaki koddaki gibi 41 de iş biterse o işlemi yapacak.
illaki hepsini beklemeyecek.

Anlatabildimmi bilmiyorum maa şimdiden teşekkürler.

 

[xxcell]

......
Yanlız mesela textbox1 deki koda
40 ile 139 arası boşsa
140 ile 289 boş
değise
(2 Arttırarak ) 41,43,45,47,....,139 tarih değilse yine
(2 arttırarak ) 41,43,45,47,....,139 bugünün tarihi
değilse
140,143,146,149,.....,287 kidem2....
141,144,147,148,.....,288 kidem1....
142,145,148,151,.....,289 kidem
bitir

olacak ama yukardaki koddaki gibi 41 de iş biterse o işlemi yapacak.

Sorununu tam anlamamakla beraber çözümsüz kalmasın diye bir kaç firik vermek isterim.

1. 40 ile 139 arası boşsa (bunların hepsi textbox herhalde)

'40 - 139 ARASI BOŞMU - DOLUMU SINAMASI
SINAMA1=0
for n=40 to 139
if controls("textbox" & n ).text <> "" then 
' yukardaki kod [I]not isempty(controls("textbox" & n )) &#351;eklinde de olabilir[/I]
SINAMA1=1
exit for
endif
next
if SINAMA1 =1 then msgbox "40 - 139 ARASI TEXTBOXLARDA DOLU OLAN VAR" _
else msgbox "40-139 ARASI BO&#350;"

2. 140 - 289 ARASI BOŞ DEĞİLSE

'140 - 289 ARASI BOŞMU - DOLUMU SINAMASI
SINAMA2=0
for n=140 to 289
if controls("textbox" & n ).text = "" then 
' yukardaki kod [I]isempty(controls("textbox" & n )) şeklinde de olabilir[/I]
SINAMA2=1
exit for
endif
next
if SINAMA2 =1 then msgbox "140 - 289 ARASI TEXTBOXLARDA BOŞ OLAN VAR" _
else msgbox "40-139 ARASI DOLU"

3. 41 - 139 ARASI (2ŞER ARALIKLI ) TARİH DEĞİLSE

'41 - 139 ARASI (2ŞER ARALIKLI) TARİH DEĞİLSE
SINAMA3=0
for n=41 to 139 STEP 2
if isdate(controls("textbox" & n ).text) then 
SINAMA3=1
exit for
endif
next
if SINAMA3=1 then msgbox "41 -139 arası (2şer aralıklı) TARİH OLANLAR VAR" _
ELSE msgbox "41 - 139 ARASI (2ŞER ARALIKLI) TARİH DEĞİL"

metot bu şekilde. umarım fikir vermiştir.