Önce mesaj versin sonra çalışsın

[CenTay]

Selamlar arkadaşlar bir uformum var çalıştır düğmesine tıklayınca ekrana önce 2-3 sn.mesaj versin sonra açılsın mesaj şöyle olabilir
Dikkat! Önce seçim yapınız
Teşekkürler arkadaşlar.

 

[ÖmerBey]

Merhaba,
Şöyle bir şey olur mu?

Sub kod()
mesaj = MsgBox("Dikkat! Önce seçim yapınız" & vbLf & "Devam etmek için 'Tamam'ı tıklayınız.", vbOKCancel)
If mesaj = vbOK Then
    UserForm1.Show
Else
    Exit Sub
End If
End Sub

 

[CenTay]

Merhaba,
Şöyle bir şey olur mu?

Sub kod()
mesaj = MsgBox("Dikkat! Önce seçim yapınız" & vbLf & "Devam etmek için 'Tamam'ı tıklayınız.", vbOKCancel)
If mesaj = vbOK Then
    UserForm1.Show
Else
    Exit Sub
End If
End Sub

Teşekkürler hocam eline sağlık .

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...