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
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.