Makro içerisinde zamanlama

[kadir78]

İyi günler. Aşağıda kullandığım makroda zaman ayarlaması yapmam gerekiyor. Sütunlar silinirken her işlem arasında 10 saniye beklemesini sağlayamadım. Kırmızı ile yazdığım alanlara makro kodu lazım. Yardımcı olur musunuz.

Sub Makro2()

    Columns("R:R").Select
    Selection.Delete
   
    [COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]
 
    Columns("Q:Q").Select
    Selection.Delete
    

    [COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]
    
    Columns("P:P").Select
    Selection.Delete
    
    [COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]   

    Columns("M:M").Select
    Selection.Delete
    
[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]

    Columns("L:L").Select
    Selection.Delete
    

[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]

    Columns("K:K").Select
    Selection.Delete
    

[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]

    Columns("G:G").Select
    Selection.Delete
 
[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]
    
    Columns("F:F").Select
    Selection.Delete

[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]
    
    Columns("E:E").Select
    Selection.Delete
    
[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]

    Columns("C:C").Select
    Selection.Delete

[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]
    
    Columns("A:A").Select
    Selection.Delete
    
[COLOR="Red"] (10 saniye bekleme kodu)    [/COLOR]

    Cells.Select
    Selection.ColumnWidth = 16
    Selection.RowHeight = 21
    Range("A1").Select

End Sub

 

[antonio]

10 sn. bekleme kodu:

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

 

[kadir78]

Teşekkür ederim. Çok sağolun.

 

[antonio]

Rica ederim.