UserFormda Sil Problemi

[robin2132]

Ekte verilen Çalışmada Adres_Düzenle UserFormundaki SİL komutu çalışmıyor. Yardımcı olursanız sevinirim.

 

[gezgin-49]

hangi sayfadan veri silinecek. işletmeler mi? yoksa adresler kısmındanmı

 

[robin2132]

adresler kısmında veri silinecek.

 

[gezgin-49]

sil makrosuna
Sheets("Adresler").Select
yazıp bir denermisiniz.

Private Sub Öğrenci_Sil_Click() 'Kayıt Sil
Sheets("Adresler").Select
...............
End sub

 

[robin2132]

Yine olmadı.
Private Sub Öğrenci_Sil_Click() 'Kayıt Sil
Sheets("Adresler").Visible = True
Sheets("Adresler").Select

...............
...............

Sheets("Ana Sayfa").Visible = True
Sheets("Adresler").Visible = False
MsgBox "KAYIT SİLİNDİ!!!"
End Sub

Bu şekilde denediğimdede olmuyor. hep listenin ilk sırasındakini siliyor.

 

[Skorpiyon]

Sayın robin2132,

Sil butonu altındaki kodlarınızı aşağıdakiler ile değiştirerek deneyiniz.

Private Sub Öğrenci_Sil_Click() 'Kayıt Sil
If ComboBox2.Text = "" Then
MsgBox "Lütfen ÖĞRENCİNİN ADINI-SOYADINI bulunuz!!!"
Exit Sub
End If

Columns("B:B").Select
On Error Resume Next
Selection.Find(What:=ComboBox2.Text, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Satır = ActiveCell.Row
Rows(Satır).Delete Shift:=xlUp
ComboBox2.Text = ""
TextBox41.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
For X = 5 To [B65536].End(3).Row
Cells(X, 1) = X - 4
Next
MsgBox "KAYIT SİLİNDİ!!!"
Range("A1").Select
End Sub

 

[hurkanpisirici]

program benimde ilgimi çekti kodları değiştirdim ama yine olmadı.

 

[robin2132]

İlgilendiğiniz için teşekkürler gezgin-49 ve Şaban Sertkaya. Son bişey ekleyince çalıştı.

Private Sub Öğrenci_Sil_Click() 'Kayıt Sil
Sheets("Adresler").Visible = True
Sheets("Adresler").Select
If ComboBox2.Text = "" Then
MsgBox "Lütfen ÖĞRENCİNİN ADINI-SOYADINI bulunuz!!!"
Exit Sub
End If

Columns("B:B").Select
On Error Resume Next
Selection.Find(What:=ComboBox2.Text, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Satır = ActiveCell.Row
Rows(Satır).Delete Shift:=xlUp
ComboBox2.Text = ""
TextBox41.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
For X = 5 To [B65536].End(3).Row
Cells(X, 1) = X - 4
Next
Sheets("Ana Sayfa").Visible = True
Sheets("Adresler").Visible = False
MsgBox "KAYIT SİLİNDİ!!!"
Range("A1").Select
End Sub