Bir makroyu tüm satırlar için çalıştırmak (döngü)

[deucalion]

Merhabalar

Bazı kriterlere göre aynı satırda bulunan hücreler arasında kıyas yapması için aşağıdaki gibi basit bir kod yazdım. Ancak belli bir satır aralığı için de söz konusu kodun nasıl çalıştırılacağını bilmiyorum. (10.satırdaki hücrelerden 23. satırdaki hücrelere kadar aynı işlemin tekrarlanmasını nasıl sağlayabilirim?)
Şimdiden teşekkürler...

Sub OdSek()

Dim belge As String, sistem As String, limit As String, onay As String

belge = Range("U10").Value
sistem = Range("S10").Value
limit = Range("BL10").Value

If belge = "C" And sistem = "C" And limit = "C" Then
onay = "OK"

ElseIf belge = "C" And (sistem = "B" Or sistem = "A") And limit = "C" Then
onay = "?"

ElseIf belge = "B" And (sistem = "C" Or sistem = "A") And (limit = "C" Or limit = "B") Then
onay = "?"

ElseIf belge = "B" And sistem = "B" And (limit = "C" Or limit = "B") Then
onay = "OK"

ElseIf belge = "A" And (sistem = "C" Or sistem = "B") And (limit = "C" Or limit = "B" Or limit = "A") Then
onay = "?"

ElseIf belge = "A" And sistem = "A" And (limit = "C" Or limit = "B" Or limit = "A") Then
onay = "OK"

Else
onay = "X"

End If
Range("AC10").Value = onay

End Sub

 

[ÖmerBey]

Merhaba,
Aşağıdaki şekilde deneyiniz.

Sub OdSek()

Dim belge As String, sistem As String, limit As String, onay As String

[COLOR="red"]For a = 10 To 23[/COLOR]
belge = Range("U" [COLOR="red"]& a[/COLOR]).Value
sistem = Range("S" [COLOR="red"]& a[/COLOR]).Value
limit = Range("BL" [COLOR="red"]& a[/COLOR]).Value

If belge = "C" And sistem = "C" And limit = "C" Then
onay = "OK"

ElseIf belge = "C" And (sistem = "B" Or sistem = "A") And limit = "C" Then
onay = "?"

ElseIf belge = "B" And (sistem = "C" Or sistem = "A") And (limit = "C" Or limit = "B") Then
onay = "?"

ElseIf belge = "B" And sistem = "B" And (limit = "C" Or limit = "B") Then
onay = "OK"

ElseIf belge = "A" And (sistem = "C" Or sistem = "B") And (limit = "C" Or limit = "B" Or limit = "A") Then
onay = "?"

ElseIf belge = "A" And sistem = "A" And (limit = "C" Or limit = "B" Or limit = "A") Then
onay = "OK"

Else
onay = "X"

End If
Range("AC" [COLOR="Red"]& a[/COLOR]).Value = onay
[COLOR="red"]Next[/COLOR]
End Sub