Soru VBA'da Bekleme komutu verme

[black_72]

Arkadaşlar diyelim ki basitçe aşağıdaki gibi bir kod yazdım. A1 hücresinin değerinin her saniyede 1 artmasını istiyorum. (1 saniyelik gecikme yaparken uygulamanın kitlenmesini istemiyorum)

Sub deneme()
for k = 1 To 10
Range("A1") = k
'Buraya 1 saniyelik gecikme atmak istiyorum
next k
End Sub

 

[Greenblacksea53]

Application.Wait (Now + TimeValue("0:00:01"))

 

[black_72]

Application.Wait (Now + TimeValue("0:00:01"))

Hocam kod çalışıyor fakat çalışırken uygulama kilitleniyor herhangi bir işlem yapamıyorum. Bu sırada uygulamanın kilitlenmesini istemiyorum

 

[Necdet]

Hocam kod çalışıyor fakat çalışırken uygulama kilitleniyor herhangi bir işlem yapamıyorum. Bu sırada uygulamanın kilitlenmesini istemiyorum

Bir yerde hata yapmış olmayasınız?

Sub deneme()

Dim k As Long

For k = 1 To 10
    Range("A1") = k
    Application.Wait (Now + TimeValue("0:00:01"))
Next k

MsgBox "bitti..."

End Sub

 

[Greenblacksea53]

Hocam kod çalışıyor fakat çalışırken uygulama kilitleniyor herhangi bir işlem yapamıyorum. Bu sırada uygulamanın kilitlenmesini istemiyorum

Ne işlemi yaptıracaksınız, neden Excele yaptırmıyorsunuz, illa manuel yaptırmak istiyorsanız Doevents araştırın