While ... Msgbox

[quesh]

Selamlar herkese.
Arkadaşlar userform üzerindeki butona tıkladığım anda üzerinde "Lütfen Bekleyiniz" Yazılı bir Msgbox çıkmasını ve bu Msgbox'ın da

Sheets("bayirapor").range("s1")<>""

olana kadar ekranda belirmesini ve bu durum sağlandığında ekrandan kaybolmasını isstiyorum.
Commandbuttonumdaki kod şu şekilde olduğuna göre ben bu istediğim kodu nereye nasıl ekleyebilirim ?

Private Sub CommandButton1_Click()

Call pompa

ListBox1.ColumnWidths = "100;100;100;100;120;100"

Dim i As Long, x As Long
 
ListBox1.Clear
 
With Sheets("bayirapor")

    For i = 1 To 14
           
            ListBox1.AddItem .Cells(i, "A")
            ListBox1.List(x, 1) = .Cells(i, "B").Text
            ListBox1.List(x, 2) = .Cells(i, "c").Text
            ListBox1.List(x, 3) = .Cells(i, "d").Text
            ListBox1.List(x, 4) = .Cells(i, "e").Text
            ListBox1.List(x, 5) = .Cells(i, "f").Text
           
            x = x + 1
            
    Next i
End With

End Sub

 

[mesuttasar]

Linkteki konuda Sayın Korhan Bey'in 4. nolu mesajdaki çözümü çok mantıklı bence. http://www.excel.web.tr/f48/1-saniyeden-kysa-sureli-msgbox-t75850.html

 

[quesh]

malesef benim anlatmak istediğim farklı.