Düzeltme için Evet Hayır onayı alınması.

[massgrave]

Merhaba;

Düzeltmeyi onaylamak için EVET HAYIR diye onay sorulması için ne yapmalıyım.

Kod:

Private Sub CommandButton2_Click()
Dim sonsat As Integer

If ListBox1.ListIndex = -1 Then
MsgBox "Lütfen Kayıt Seçin.", vbExclamation
Exit Sub
End If

sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 1) = TextBox1.Text
Cells(sonsat, 2) = TextBox2.Text
Cells(sonsat, 3) = TextBox3.Text
Cells(sonsat, 4) = TextBox4.Text
Cells(sonsat, 5) = TextBox5.Text
Cells(sonsat, 6) = TextBox6.Text
Cells(sonsat, 7) = TextBox7.Text
Cells(sonsat, 8) = TextBox8.Text
Cells(sonsat, 9) = TextBox9.Text
Cells(sonsat, 10) = TextBox10.Text
Cells(sonsat, 11) = TextBox11.Text
Cells(sonsat, 12) = TextBox12.Text

Call Main 'Progress Bar

MsgBox "BILGILER GUNCELLENDI"
ListBox1.List = Sheets("Data").Range("a2:l" & [a65536].End(3).Row).Value 'For refresh listbox
End Sub

 

[Orion1]

Buyurun.

If MsgBox("Düzeltme yapmak istiyormusunuz?", vbYesNo + vbQuestion, Application.UserName) = vbNo Then
    MsgBox "Düzeltme iptal edildi!", vbCritical, Application.UserName
    Exit Sub
End If