Makro Koşullu Yenileme

[rafetgulmez]

Verilen koşul sağlanıncaya kadar makronun sayfayı yenilemesini istiyorum. Örnek dosya ektedir...

Yardımlarınız için şimdiden tşk. ederim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Yenile()
    Calculate
    Do While WorksheetFunction.CountIf(Range("E19:E33"), "TEKRARLA") > 0
        Calculate
    Loop
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[rafetgulmez]

ÇÖZÜLDÜ

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Yenile()
    Calculate
    Do While WorksheetFunction.CountIf(Range("E19:E33"), "TEKRARLA") > 0
        Calculate
    Loop
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Eyvallah hocam çözüldü... Teşekkür ettim....