işlemler devam ederken ekrana bilgi gelmesi

[hsayar]

işlemler devam ederken ekrana bilgi gelmesi

....................................
    s1.Range("A1").Select
    ActiveCell.FormulaR1C1 = " K A Y D E D İ L İ Y O R."  ' a1e kayıt mesajı yaz
    With Selection.Interior
        .ColorIndex = 10
        .Pattern = xlSolid
    End With
    Selection.Font.ColorIndex = 1
    Selection.Font.Bold = True
[color="red"] 'ekrana mesaj gelsin [/color]
    ThisWorkbook.Save
[color="red"] 'ekrana gelen mesaj çıksın [/color]
.........................................

şeklinde a1 e rapor yazıyorum ancak, bunu a1 yerine ekrana mesaj yazmak veya userform gelsin ama işlem devam etsin daha sonra işlemden sonra gitsin.

 

[Skorpiyon]

'ekrana mesaj gelsin yazdığınız kısma bir userform hazırlayarak ve üzerine bir label nesnesi ekleyip "KAYDEDİLİYOR" yazın. ve bu noktada formu çağırın.

'ekrana gelen mesaj çıksın yazdığınız yere de formu gizlettirin.

Saygılarımla...

 

[hsayar]

Sub UsFrm()
Acls
UserForm1.Show
s1.Cells(1, 1).Value = " aaaa "
ThisWorkbook.Save
Unload UserForm1
End Sub

hocam userformu kapamadan a1 e değer yazmıyor
ben istiyorum userform ekranda eiken diğer işlemler devam edecek veya hangi nesne ile olursa
popupda denedim kullanıcıdan yanıt bekliyor

 

[Skorpiyon]

Sayın hsayar,

Ek'teki dosyayı bir inceleyiniz.

Saygılarımla...

 

[hsayar]

teşekkür ederim sn. sertkaya

 

[asilacar]

ben de teşşekür ederim faydalı oldu