Makroyu 5 sn Durdur ve devam et

[hsayar]

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Vekal")
vr_st_no = s1.Range("b5").Value
If s2.Cells(vr_st_no, 21).Value <> "" Then
MsgBox "Sat&#305;r Dolu"
Veri_Al
Exit Sub
Else
Veri_Ver
s1.Cells(5, 2) = s1.Cells(5, 2).Value + 1
Range("g4:n50").Select
Selection.ClearContents
Range("g4").Select
Veri_Al

[color="red"] '5 sn bekle kodu [/color]

s1.Range("a1").Value = " S O R G U L A  &#304; &#199; &#304; N   B E K L &#304; Y O R ." '&  [color="red"] kalans&#252;re [/color]

BagKurSicNoSorg
End If
End Sub

Kırmızı satırlar
Kodları 5 saniye bekletdikten sonra BagKurSicNoSorg işlemine geçmesi için nasıl kod yazılmalı

a1 ihücresinde kalan süre gösterilebilirmi

saygılarımla,
(forumda waiting diye aradoım ama sonuca ulaşamadım.)

 

[Levent Menteşoğlu]

Aşağıdaki satırı ilgili yere ilave edin.

Application.Wait Now + TimeValue("00:00:05")

 

[Mahmut Kök]

Bununla ilgili bir örnek kodu BURAYI tıklayarak, size gönderdiğim 4. iletide de görebilirsiniz.

 

[hsayar]

Bununla ilgili bir örnek kodu BURAYI tıklayarak, size gönderdiğim 4. iletide de görebilirsiniz.

bende gördüm ama nerde gördüm diyordum

bu kodlarda nereye konacak peki o bekleme

    Const URL As String = "http://www.bagkur.gov.tr/sigortali/adSoyArama.shtml"

Sub BagKurSicNoSorg()



    'BagKur' dan sorgulama ....
    '28/06/2006 - Raider ®
    '
    'Dim Data(1 To 3) As String  ' Raider ® Satırı
    Dim Data(1 To 4) As String   'Edt_Hsyar
    Dim IE As Object
    Dim Temp As Variant
    Dim i As Integer, j As Integer
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    Dim HTML_TableRows As Object, HTML_TableDivisions As Object
    Dim RetVal As Variant
    Set s1 = Sheets("Sheet1")

...................

Aşağıdaki satırı ilgili yere ilave edin.

Application.Wait Now + TimeValue("00:00:05")

teşekkür ederim
hocam hücre içerisinde geri sayma yapabilirmi peki