Satır sil sorunu

[yavuz829]

Merhaba arkadaşlar eki dosyamda UserForma sil butonu ekledim. Sileceğim satırdaki verileri siliyor satırı arada boş olarak bırakıyor. Sil butonuna tıkladığım zaman seçili satırı tamamen silsin satırı arada boş bırakmasın bu konuda yardımlarınızı bekliyorum. Yardımlarınız için şimdiden teşekürler.

Koruma şifresi : 123

 

[İhsan Tank]

Merhaba arkadaşlar eki dosyamda UserForma sil butonu ekledim. Sileceğim satırdaki verileri siliyor satırı arada boş olarak bırakıyor. Sil butonuna tıkladığım zaman seçili satırı tamamen silsin satırı arada boş bırakmasın bu konuda yardımlarınızı bekliyorum. Yardımlarınız için şimdiden teşekürler.

Koruma şifresi : 123

Merhaba
Sil butonundaki kodu bununla değiştirin.

Private Sub CommandButton13_Click()
ActiveSheet.Unprotect "123"
If TextBox15.Text = "" Then
MsgBox "SİLİNECEK SATIRI SEÇİNİZ!!!"
Exit Sub
End If
MsgBox "KAYIT SİLİNDİ!!!"
satır = ActiveCell.Row
'Rows(satır).Delete Shift:=xlUp
Range(Cells(satır, "A"), Cells(satır, "K")).Delete
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox13.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ActiveSheet.Protect "123"
End Sub

 

[yavuz829]

Çok teşekürler hocam. İhsan bey gördüğüm kadarı ile siz çok yardım sever bir arkadaşsınız. Formdaki diğer arkadaşların da hakkını yememek lazım hepinize çok çok teşekürler.

 

[İhsan Tank]

Çok teşekürler hocam. İhsan bey gördüğüm kadarı ile siz çok yardım sever bir arkadaşsınız. Formdaki diğer arkadaşların da hakkını yememek lazım hepinize çok çok teşekürler.

Rica ederim
:keyif: