Bekleme süresi

[EMRE-044-]

Merhaba arkadaşlar

aşağıda görmüş olduğunuz gibi 2 ayrı kod var bu kodları birleştirmek istiyorum lakin 1. kod çalışacak 10 sn. bekleyip (veri alımını bitirdikten sonra) diğer kod yani (shift + F9) sayfayı güncelle komutunun çalışmasını istiyorum

1. iki sorgu arasına bekleme süresi eklemek istiyorum.
2. bekleme süresi eklemeden dışardan veri alımının tamamlandığını otomatik olarak bilip, sayfayı güncellemesini (shift + F9) yapmasını istiyorum.

şimdiden teşekkürler

Sub Veri_Al()
'
' Veri_Al Makro
'

'
    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").Refresh
End Sub


Sub Güncelle()
'
' Güncelle Makro
'

'
    ActiveSheet.Calculate
End Sub

 

[Cengiz Demir]

10 sn bekleme için bu kodu kullanabilirsiniz.

Application.Wait (Now + TimeValue("00:00:10"))
Call Güncelle

 

[EMRE-044-]

10 sn bekleme için bu kodu kullanabilirsiniz.

Application.Wait (Now + TimeValue("00:00:10"))
Call Güncelle

Teşekkür ederim.
Tam olarak kodu nasıl düzenleyeceğim biraz acemilik var yardımcı olursanız sevinirim Cengiz bey

 

[yNsr43]

Teşekkür ederim.
Tam olarak kodu nasıl düzenleyeceğim biraz acemilik var yardımcı olursanız sevinirim Cengiz bey

Sub Veri_Al()
'
' Veri_Al Makro

    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").Refresh
    Application.Wait (Now + TimeValue("00:00:10"))
Call Güncelle
End Sub

Sub Güncelle()

    ActiveSheet.Calculate
End Sub

 

[EMRE-044-]

Sub Veri_Al()
'
' Veri_Al Makro

    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").Refresh
    Application.Wait (Now + TimeValue("00:00:10"))
Call Güncelle
End Sub

Sub Güncelle()

    ActiveSheet.Calculate
End Sub

Verdiğiniz kodu kullandığımda Tüm Malzemeler sorgusunu çalıştırmadan önce 10sn bekliyor. Ben ise tüm malzemeler sorgusunu çalıştırsın akabinde 10sn beklesin sonra ActiveSheet.Calculate komutunu çalıştırsın istiyorum

 

[Cengiz Demir]

Birde böyle dener misiniz ?

Sub Veri_Al()
'
' Veri_Al Makro

    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").Refresh
 
Call Güncelle
End Sub

Sub Güncelle()
   Application.Wait (Now + TimeValue("00:00:10"))
    ActiveSheet.Calculate
End Sub

Verdiğiniz kodu kullandığımda Tüm Malzemeler sorgusunu çalıştırmadan önce 10sn bekliyor. Ben ise tüm malzemeler sorgusunu çalıştırsın akabinde 10sn beklesin sonra ActiveSheet.Calculate komutunu çalıştırsın istiyorum

 

[EMRE-044-]

Birde böyle dener misiniz ?

Sub Veri_Al()
'
' Veri_Al Makro

    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").Refresh

Call Güncelle
End Sub

Sub Güncelle()
   Application.Wait (Now + TimeValue("00:00:10"))
    ActiveSheet.Calculate
End Sub

maalesefyine olmadı 10 sn bekliyor sonra veri al yapıyor
Benim yapmak istediğim veriyi direk çeksin sonra 10 sn bekleyim sayfayı güncelemesi

ilginiz için teşekkürler

 

[Haluk]

Bir de bunu deneyin, bakalım olacak mı?

Sub Veri_Al()
    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("Sorgu - Tüm Malzemeler").Refresh
    Call Güncelle
End Sub
'
Sub Güncelle()
    ActiveSheet.Calculate
End Sub

.