Ardışık olarak aynı değer içeren hücre

[mustinba]

4
3
1
1
2
10
2
4
1
1
1
3 1.istediğim değer
5 2.istediğim değer
8
9
Böyle 7000 satır devam ediyor.
Gibi değerlerim olsun.
Yapmak istediğim ard arda 3 tane 1den sonra gelen 2 değeri nasıl bulurum.
.VBA kodu olarak

 

[veyselemre]

Sub test()
    Dim i&, lst
    lst = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value
    For i = 1 To UBound(lst)
        If lst(i, 1) & lst(i + 1, 1) & lst(i + 2, 1) = "111" Then
            MsgBox lst(i + 3, 1) & vbCr & lst(i + 4, 1)
            i = i + 5
        End If
    Next i
End Sub

 

[mustinba]

Sub test()
    Dim i&, lst
    lst = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value
    For i = 1 To UBound(lst)
        If lst(i, 1) & lst(i + 1, 1) & lst(i + 2, 1) = "111" Then
            MsgBox lst(i + 3, 1) & vbCr & lst(i + 4, 1)
            i = i + 5
        End If
    Next i
End Sub

Teşekkürler.İyi çalışmalar