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
