Makro ile belirli hüce değeri istenilen sayıya ulaşana kadar 5 saniye arayla PDF oluşturup hücre değerini arttırma

[UtkAsln]

Merhaba,

VBA üzerinde çalışmaya yeni başladım. Bir proje için çok sayıda PDF oluşturmam gerekiyor. Oluşturduğum form M2 hücresindeki sayıya göre değişiyor.
Bilgisayarda takılma olmaması için PDF oluşturma arası 5-10 saniye gibi bekleme koymam gerekiyor. Aşağıdaki gibi bir şey yazmaya çalıştım ama başaramadım.
Yardımcı olabilir misiniz?

Sub Test()
If Sheets("SA FORM").Range("M2").Value <> Sheets("SA FORM").Range("O2").Value Then
        Call PDF
        End If
        Application.Wait (Now + TimeValue("0:00:5"))
    If Sheets("SA FORM").Range("M2").Value <> Sheets("SA FORM").Range("O2").Value Then
        With Sheets("SA FORM")
        .Range("M2").Value = .Range("M2").Value + 1
        End With
    End If
End Sub

 

[ÖmerBey]

Merhaba,
Aşağıdakilerden birini deneyiniz.

Sub Test()
If Sheets("SA FORM").Range("M2").Value > Sheets("SA FORM").Range("O2").Value Then
    Call PDF
    With Sheets("SA FORM")
        .Range("O2").Value = .Range("O2").Value + 1
    End With
    Application.OnTime Now + TimeValue("0:00:5"), "Test"
End If
End Sub

Sub Test2()
For a = 1 To Sheets("SA FORM").Range("M2").Value
    Call PDF
    DoEvents
Next
End Sub

 

[UtkAsln]

Ömer Bey Merhaba,

İlk verdiğiniz kod istediğim gibi çalıştı. Teşekkür ederim.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...