vbYesNo kullanılması.

[Galus]

Yeni kayıt yaparken Evet Hayır diye sordurduğunda cevap Evet ise kaydetsin Hayır ise textboxları boşalttırmak istiyorum. Ama makro hata veriyor.

 

[Evolver]

yeni kayıt ekle butonunun kodlarını aşağıdakilerle değiştirin

Private Sub CommandButton2_Click()
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN " & Sheets("YABANCI").Cells(1, l).Value & " GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next l
cvp = MsgBox(TextBox3.Text & " YENİ KAYDI ONAYLIYORMUSUNUZ?", vbYesNo, "EXCEL.WEB.TR")
If cvp = 7 Then
For c = 1 To 7
Controls("TextBox" & c).Text = ""
Next c
Exit Sub
ElseIf cvp = 6 Then
son = Sheets("YABANCI").Range("A65536").End(xlUp).Row + 1
For t = 1 To 11
Sheets("YABANCI").Cells(son, t).Value = Controls("TextBox" & t).Text
Next t
Call listele
End If
End Sub

 

[Galus]

Sayın Evolver,

İlgi ve desteğinize şükranlarımı arz ederim. Bir de Düzelt butonuna el atarsanız süper olur.

Saygılarımla..

 

[Evolver]

düzelt butonunda nasıl bir sıkıntı vardı. ben düzelt butonunun çalışma mantığını pek iyi anladım sayılmaz

 

[Galus]

Düzelt butonu evet de desen hayır da desen kaydediyor. Hayır denirse kaydetmesin istiyorum.

Saygılarımla..

 

[Evolver]

düzelt butonunun kodlarını aşağıdakilerle değiştirerek sonucu bildirin

Private Sub CommandButton1_Click()
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN " & Sheets("YABANCI").Cells(1, l).Value & " GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next
Set ARA = Sheets("YABANCI").Range("C:C").Find(TextBox3)
If ARA Is Nothing Then
MsgBox "FİLİMİN ORJİNAL İSMİ " & TextBox3.Text & " VERİ TABANINDA BULUNAMADI.", , "EXCEL.WEB"
Exit Sub
Else
cvp = MsgBox(TextBox3.Text & " YENİ KAYDI ONAYLIYORMUSUNUZ?", vbYesNo, "EXCEL.WEB.TR")
If cvp = 6 Then
For T = 1 To 11
Sheets("YABANCI").Cells(ARA.Row, T).Value = Controls("TextBox" & T).Text
Next
End If
Call listele
End If
End Sub

 

[Galus]

Sayın Evolver,

Çok teşekkürler.. Allah (cc) razı olsun.

 

[Evolver]

duanız için ben teşekkür ederim. Allah hepimizden razı olsun.