• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

...Hesaplanıyor, lütfen bekleyiniz... makrosu

Katılım
18 Ağustos 2009
Mesajlar
202
Excel Vers. ve Dili
Excel 365 - Türkçe
Makro çalışırken "Hesaplama yapılıyor, lütfen bekleyiniz" şeklinde bir uyarı çıksın istiyorum.
Bu durumda aşağıdaki koda nasıl bir ilave yapmalıyım.

Sub Aktar()

Application.DisplayAlerts = False

Dim k As Integer
For k = 2 To [L1]
sayfasil = Cells(k, 11)
Sheets(sayfasil).Select
Range([B1]).Select
Selection.ClearContents
Range("B1").Select
Sheets("Ayarlar").Select

Next k

End sub
 
İnceleyiniz.

 
Geri
Üst