Başım Döndü (Döngüler)

[İsmailCen]

Arkadaşlar Merhaba,

Sabahtan beri uğraşıyorum, başım döndü!

Yapmak istediğim;

For m = 59 To 67
For j = 13 To SaySatır + 13
If Numuneler.Cells(j, 13) <> "ÜRÜN KONTROL" Or Numuneler.Cells(j, 96) <> "TİP" Then GoTo Devam1:
If Month(Numuneler.Cells(j, 4)) = "1" And Ürünler.Cells(1, m) = Numuneler.Cells(j, 90) Then Ürünler.Cells(3, m) = Numuneler.Cells(j, Sütun)
If Month(Numuneler.Cells(j-ikinci-, 4)) = "1" And Ürünler.Cells(1, m) = Numuneler.Cells(j-ikinci-), 90) Then Ürünler.Cells(4, m) = Numuneler.Cells(j-ikinci-, Sütun)
Devam1:
Next j
Next m

Yukarıdaki kodlarda j-ikinci- yazan yerlere, Numuneler sayfasındaki, yukarıdaki kodların üçüncü satırındaki kriterlere uyan, bir sonra ki satır sayısını almak istiyorum. Ama dediğim gibi gerçekten başım döndü. Yardım ederseniz sevinirim.

 

[Ergün Güler]

j + 2 işinizi görmüyor mu?

 

[İsmailCen]

j+2 her zaman aynı kriterleri sağlamıyor. Sanırım bir döngü daha eklemem gerekiyor ama henüz çözemedim.

 

[Ergün Güler]

örnek dosya ekleyip mantığını da anlatırsanız muhtemelen çözüm bulunacaktır.

 

[İsmailCen]

Nihayet,

For m = 59 To 67
For j = 13 To SaySatır + 13
If Numuneler.Cells(j, 13) <> "ÜRÜN KONTROL" Or Numuneler.Cells(j, 96) <> "TİP" Then GoTo Devam1:
If Month(Numuneler.Cells(j, 4)) = "2" And Ürünler.Cells(1, m) = Numuneler.Cells(j, 90) Then
If Ürünler.Cells(3, m) = Empty Then
Ürünler.Cells(3, m) = Numuneler.Cells(j, Sütun)
Else
Ürünler.Cells(4, m) = Numuneler.Cells(j, Sütun)
End If
End If
Devam1:
Next j
Next m

Yukarıdaki kodlar sorunu çözdü. İlgilenen arkadaşlara çok teşekkürler.