- Katılım
- 18 Ağustos 2009
- Mesajlar
- 199
- Excel Vers. ve Dili
- Excel 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 14/06/2022
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
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