2 tarih arasındaki verinin satırını seçtirmek

[mehmet-kanat]

Merhabalar.
A sütununda plakalar mevcut
B sutununda tarihler var.
Textbox1 de ilk tarih
Textbox2 de son tarih

B sutunundaki tarihlerden sadece textbox1 ve textbox2 de yazan tarihler arasındaki verinin satırını selection yapmasını istiyorum nasıl bir kod yardımcı olabilir.

 

[Necdet]

Merhaba,
Örnek Dosya Linki

Örnek dosyada verinin 2. satırdan başladığını ve sıralı tarih olduğu varsayılmıştır.
İlk tarihi bulamazsa 2. satır, ikinci tarihi bulamazsa son satır dikkate alınarak kodlar hazırlanmıştır.
Siz kendinize göre uyarlayınız.
Not: TextBox larla uğraşmamak için Ben kodda T1 ve T2 hücrelerini kullandım, siz değiştirebilirsiniz.

Sub Dene()

Dim i   As Long
Dim j   As Long
Dim lR  As Long
Dim c   As Range

lR = Cells(Rows.Count, "B").End(3).Row

Set c = Range("B2:B" & lR).Find([T1], LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
    i = c.Row
Else
    i = 2
End If
Set c = Range("B2:B" & lR).Find([T2], LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
    j = c.Row
Else
    j = lR
End If

Range("B" & i & ":B" & j).Select

End Sub

 

[mehmet-kanat]

Teşekkürler