serilerde arama

[kelkitli]

Değerli Dostlar Selamlar,
Ekteki dosyada Sayfa2 A sütununda Sıra No, B Sütununda Yaka No, C sütununda sicil no, D sütununda Ad, Soyad, E sütununda seri başlangıcı, F sütununda seri bitişi olan veriler var. Sayfa1 A2 e yazılan seri numarası mevcut seriler içerisinde (E başlangıç F bitiş)varsa Sayfa1 de kime ait olduğu bilgileri görünsün yoksa BULUNAMADI yazsın. Döngü ile son dolu satıra kadar arama yapılması gerekiyor.

 

[kelkitli]

Şu işlemi döngü ile yapmak istiyorum.

Private Sub CommandButton1_Click()
Set s1 = Sayfa1
Set S2 = Sayfa2
If s1.[A2] >= S2.[E2] And s1.[A2] <= S2.[F2] Then s1.Range("B2") = S2.[E2].Offset(0, -1).Value
End Sub

 

[kelkitli]

Sub ayır()
Set s1 = Sayfa1
Set s2 = Sayfa2

For i = 1 To [d65536].End(3).Row
If s1.[A2] >= s2.Cells(i, 1) And s1.[A2] <= s2.Cells(i, 2) Then s1.Range("B4") = s2.Cells(i, -2).Offset(0, 0).Value
Exit Sub
Next i
MsgBox "işlem tamam"
End Sub

Hatayı nerede yapıyorum?