Soru Kayıttan sonra tekrar devam etme

[sirkülasyon]

Private Sub CommandButton1_Click()
 With Sheets("İlçe")
        Set bul = .Range("C:F").Find(ListBox1.Value, , , xlWhole)
        If Not bul Is Nothing Then
          If TextBox4.Value <> 0 And Len(TextBox4) > 0 Then
            bul.Offset(, 1) = bul.Offset(, 1) + TextBox4 * 1
          If TextBox5.Value <> 0 And Len(TextBox5) > 0 Then
            bul.Offset(, 2) = bul.Offset(, 2) + TextBox5 * 1
            If TextBox6.Value <> 0 And Len(TextBox6) > 0 Then
           .Range("D6") = TextBox6 * 1
            If TextBox7.Value <> 0 And Len(TextBox7) > 0 Then
            .Range("E6") = TextBox7 * 1
            End If
            End If
            End If
            End If
            Else
            MsgBox "Sendika bulunamadı!", vbCritical
    End If
    End With
    Set bul = Nothing
    MsgBox "Kayıt işlemi yapılmıştır.", vbInformation
    End Sub

Kayıt yaptıktan sonra tekrar tekrar kayıt yapabilmek için onay isteyecek Evet ise kayıt edecek Hayır İse Formu kapatacak
yukarıda yer alan kodu bu şekilde nasıl düzenleyebilirim? Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
En alttaki msgBox satırını silin yerine aşağıdakini ekleyin

If MsgBox("Kayıt işlemi yapılmıştır." & vbLf & "Kaydın yeniden başlamasını ister misiniz?", vbInformation + vbYesNo) = vbYes Then CommandButton1_Click

 

[sirkülasyon]

Ellerine Sağlık Muzaffer Bey