Makro kodlarında koşul girme.

[xternet]

Merhaba arkadaşlar.

Aşağıdaki kodlar düzgün bir şekilde çalışıyor. Yalnız ben bu kodların arasına bir koşul daha girmek istiyorum.

For i = 1 To 500
If i <= Range("AJ46").Value Then
[AJ43] = i

satırından sonra AE27 ile R12 hücrelerinin eşit olup olmadığına baksın (bu hücrelerde yazılı-sözlü gibi bir kelime yazıyor). Eğer eşit ise hemen alttaki satırdan yazdırma sayfalarına geçsin ve döngü devam etsin. Ama AE27 ile R12 eşit değilse yazdırma sayfalarını pas geçip döngüye devam etsin.


Kodun tamamı

Sub yazdir_toplu_evrak()
a = MsgBox("Tüm derslere ait Yazılı Sınav Tutanağı, Soru Kağıdı, Cevap Kağıdı ve Kağıt Sarf Tutanağı yazdırılmaya başlayacaktır. Bu işlemi yapmak istediğinize emin misiniz? ", vbOKCancel, "Yazdırmadan Önce Son Çıkış")
If a = vbOK Then

On Error GoTo son
For i = 1 To 500
If i <= Range("AJ46").Value Then
[AJ43] = i

If Range("AB10") >= 2 And Range("AB10") <= 4 Then
Sheets("TUTANAK" & Range("AB10").Value).PrintOut copies:=1
Sheets("S_KAĞIDI" & Range("AB10").Value).PrintOut copies:=1
Sheets("C_KAĞIDI" & Range("AB10").Value).PrintOut copies:=1
End If

If Range("AB11") >= 1 And Range("AB11") <= 3 Then
Sheets("SARF_" & Range("AB11").Value).PrintOut copies:=1
End If

End If
Next
son:
MsgBox "Tutanakların yazılma işlemi sona erdi."
Else
MsgBox "Yazdırma işlemi iptal edilmiştir. Gerekli kontrollerden sonra tekrar deneyebilirsiniz."
End If
End Sub

 

[Ayhan Ercan]

Merhaba

K&#305;rm&#305;z&#305; Sat&#305;rlar&#305; inceleyiniz...

On Error GoTo son
For i = 1 To 500
If i <= Range("AJ46").Value Then
    [AJ43] = i
    [COLOR=red][B]If Range("AE27") = Range("R12") Then[/B][/COLOR]
        If Range("AB10") >= 2 And Range("AB10") <= 4 Then
            Sheets("TUTANAK" & Range("AB10").Value).PrintOut copies:=1
            Sheets("S_KA&#286;IDI" & Range("AB10").Value).PrintOut copies:=1
            Sheets("C_KA&#286;IDI" & Range("AB10").Value).PrintOut copies:=1
        End If
   [B][COLOR=red]Else
    End If[/COLOR][/B]

 

[xternet]

Te&#351;ekk&#252;r ederim Ayhan bey. Kod d&#252;zg&#252;n &#231;al&#305;&#351;&#305;yor.
Zihninize sa&#287;l&#305;k. &#304;yi &#231;al&#305;&#351;malar

 

[Ayhan Ercan]

Teşekkür ederim Ayhan bey. Kod düzgün çalışıyor.
Zihninize sağlık. İyi çalışmalar

Rica ederim.
İyi Çalışmalar k::