misal  begini
di userform

Private Sub cmdHapus_Click()
    HapusData
End Sub

terus di module ada prosedur seperti ini

Sub HapusData()
     sheets("aku").select
        pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")

        If pesan = vbYes Then
            ProsesA
            ElseIf pesan = vbNo Then
                ProsesB
                else
                     txtTahun.SetFocus
       End If
End Sub

ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah

Kirim email ke