duraklayıp devam etme

[geren36]

Merhaba,

makro çalışırken belirlediğim satırdan diğerine geçmeden önce 2 sn beklemesini, 2sn sonra kaldığı yerden devam etmesini istiyorum.

Örnek;

ActiveCell.FormulaR1C1 = "=IF((RC[-2]+RC[-1])>RC[-3],0,RC[-3]-(RC[-2]+RC[-1]))"

[diğer satıra geçmeden önce burada 2 sn beklesin]

Range("M3").Select



Buna ilişkin kod nedir acaba ?

 

[Recep İpek]

Aşağıdaki makroyu alta yazıp,bekleme yapacağınız satıra

Bekle(1000000) yazabilirsiniz.Rakamı kendinize göre ayarlayınız.

ActiveCell.FormulaR1C1 = "=IF((RC[-2]+RC[-1])>RC[-3],0,RC[-3]-(RC[-2]+RC[-1]))"

Bekle(1000000)

Range("M3").Select

Sub Bekle(sayi)
For i = 1 To sayi
Next i
End Sub

 

[Haluk]

Veya;

    ActiveCell.FormulaR1C1 = "=IF((RC[-2]+RC[-1])>RC[-3],0,RC[-3]-(RC[-2]+RC[-1]))"
    Application.Wait Now + TimeSerial(0, 0, 2)

 

[geren36]

teşekkürler..

kolay gelsin :icelim: