Iki saat arasi arama yapma

[TRUSA]

Merhaba Arkadaslar,

Form uzerinde bulunan textbox1 ve textbox2 adli iki ayri textbox a hh:mm formatinda saat giriyorum. Sheet uzerindeki c colonuna girilen saatler icerisinde
Bu girilen iki saat arasindaki bilgileri nasil alabilirim. Or: c3 hucresindeki saat istedigim araliktaysa 3 satiri (a3:e3) komple form uzerine yazdiracagim.

Yardimlariniz icin simdiden tesekkurler..

 

[excellium]

çok değişik yöntemler kullanılabilir ama her zaman kullanabileceğiniz bir tarama yöntemi vermek istiyorum.

sub saatler()
dim ilksatır, sonsatır
saat1 = textbox1
saat2 = textbox2
 
for x = 1 to [c65536].end(3).row 'en son satıra kadar arar
     if cells(x, "c") = saat1   then ilksatır = x 'ilk saat bulundu
     if cells(x, "c") = saat2   then sonsatır = x 'son saat bulundu
next x
 
listbox1.rowsource = "sayfa1!a" & ilksatır & ":c" & sonsatır
end sub

not : textbox1<textbox2 olmazsa hata verir.