İstenilen sayıya ulaşıldığında döngüyü sonlandırmak.

[desıgner1]

İyi akşamlar arkadaşlar.

Aşağıda görüleceği üzere; i döngüsündeki verileri j döngüsünde aratıp j döngüsünün E sütununa "X" işareti koyuyoruz.
Ben koda eklenecek bir prosedür ile "X" işaretini her bir veri için 5 ile sınırlamak istiyorum. ilk 5 ten sonrasına işaret konulmasın.
Sizlerden bu prosedür hakkında yardım istiyorum. Sevgi/Saygı

Sub Makro1()

s = Cells(Rows.Count, "D").End(xlUp).Row

For i = 3 To 6
For j = 3 To s

If Cells(i, "B").Value = Cells(j, "D").Value Then
Cells(j, "E").Value = "X"

End If: Next j: Next i

End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

[SIZE="2"]Sub Makro1()

s = Cells(Rows.Count, "D").End(xlUp).Row
[COLOR="Blue"]Range("E3:E" & s) = Empty[/COLOR]
For i = 3 To 6
For j = 3 To s
If Cells(i, "B").Value = Cells(j, "D").Value Then
Cells(j, "E").Value = "X"
c = c + 1
End If:
If c = 5 Then Exit For
Next j:
c = 0
Next i
End Sub[/SIZE]

 

[desıgner1]

Teşekkür ederim sayın PLİNT ellerinize sağlık.
Kod başarılı.

Tüm foruma iyi akşamlar diliyorum.