dtpicker ile bir tarih aralığında arama yapmak

[volkangandalf]

Arkadaşlar ekli dosyadaki userform3 te tarih aralığında arama yaptıramadım.

 If DTPicker1.Value = "" And DTPicker2.Value = "" Then
            GoTo 70
            Else
                If DTPicker1.Value <> "" And DTPicker2.Value = "" Then
                        If tarih1 < DTPicker1.Value Then
                            GoTo 40
                            Else
                            GoTo 70
                        End If
                    Else
                        If DTPicker1.Value <> "" And DTPicker2.Value <> "" Then
                                    If tarih1 < DTPicker1.Value Or tarih1 > DTPicker2.Value Then
                                            GoTo 40
                                            Else
                                            GoTo 70
                                    End If
                                Else
                                    If tarih1 > DTPicker2.Value Then
                                            GoTo 40
                                            Else
                                            GoTo 70
                                    End If
                         End If                    
                End If                    
        End If

kodunda "tarih1" "DTPicker2.Value" den küçük olduğu halde "goto 40"adımı çalışıyor işin içinden çıkamadım

 

[ssomar]

tarih1'in tanımlamasını string değil de date olarak değiştirin

bu sefer

tarih1 = list1(i, 19)

hata verecektir...

bu satırıda

tarih1 = list1(i + 1, 19)

şeklinde değiştirin...

 

[volkangandalf]

tarih1'in tanımlamasını string değil de date olarak değiştirin

bu sefer hata verecektir...

bu satırıda şeklinde değiştirin...

teşekkür ederim. Ama,
date olarak tanımlayıp
tarih1= list1 (i+1, 19) olarak değiştirdim yine aynı satır hata verdi:frown:

 

[volkangandalf]

Sayın ssomar,
önerdiğiniz değişiklikleri yaptıktan sonra ortaya çıkan hatayı incelediğimde tarih kısmında bir boş hücre olduğundan kaynaklandığını fark ettim
For i = 2 To sat
ili = UCase(Replace(Replace(list1(i, 2), "ı", "I"), "i", "İ"))
bel = list1(i, 3)
durum = list1(i, 4)
If list1(i, 19) = "" Then
GoTo 40
Else
tarih1 = list1(i, 19)
End If
kodunu yazıp sorunu çözdüm. İlginiz için teşekkürler.

 

[volkangandalf]

Ekte sunulan resimde de görüleceği üzere arama yapılan sayfada kriterlere uyan veri bulunmadığında başlık kısımları görünüyor. Uygun veri olmadığında sayfadaki başlıkları nasıl yok ederiz?