sil kodu tüm satırı silmesin istiyorum

[mustafa7691]

hocalarım biraz biraz bu işi sökmeye başlamıştım sayenizde ama takıldım.vereceğim kod bul ile bulunan tüm satırı silip alttaki satırı yukarıya alıyor oysa ben B..:T..arasını(bul ile bulunan arama sonucunu) A sütununu ellemeden silmesini ve satırların yerinde kalmasını istiyorum(yukarı kaydırmasın)

Private Sub CommandButton4_Click()
ActiveSheet.Unprotect Password:="0"
If ADI.Text = "" Then
MsgBox "LÜTFEN ÜYENİN ADINI VE SOYADINI GİRİNİZ!!!"
Exit Sub
End If
MsgBox "SİLME İŞLEMİNİ ONAYLAYINIZ!!!"
satır = ActiveCell.Row
Rows(satır).Delete Shift:=xlUp
ADI.Text = ""
BABAADI.Text = ""
ANAADI.Text = ""
DOĞUMYERİ.Text = ""
DOĞUMTARİHİ.Text = ""
UYRUĞU.Text = ""
MEDENİHAL.Text = ""
ADRES.Text = ""
CÜZDAN.Text = ""
CİLTNO.Text = ""
İL.Text = ""
İLÇE.Text = ""
KÖY.Text = ""
TEL.Text = ""
GÖREV.Text = ""
KARAR.Text = ""
ÜYELİKTARİHİ.Text = ""
ÜYELİKTENAYRILIŞ.Text = ""
AİDAT.Text = ""
ActiveSheet.Protect Password:="0"
End Sub

ilginize teşekkürler

 

[Mahmut Kök]

Rows(satır).Delete Shift:=xlUp

satırını şu aşağıdaki ile değiştirip deneyin

range(cells(satır,2),cells(satır,256)).clearcontents

 

[mustafa7691]

hocam denedim hata verdi yinede teşekkürler uğraşırken onunyerine bunu yazdım belki benim gibi çok arayanlara kısayol olur diye yazıyorum teşekkürler


sat = s1.Range("B5:B500").Find(ADI).Row
Range(s1.Cells(sat, "B"), s1.Cells(sat, "T")).ClearContents

 

[mustafa7691]

düzeltiyorum bu şekilde yazdığım alan belli olur

MsgBox "SİLME İŞLEMİNİ ONAYLAYINIZ!!!"
sat = s1.Range("B5:B500").Find(ADI).Row
Range(s1.Cells(sat, "B"), s1.Cells(sat, "T")).ClearContents


(en baştaki kodun düzeltilmişidir A sutununu silmez ve silinen satırı boş bırakır )çok anladığımdan değil ama forumları çok gezmekten ve uğraşırken deneme yanılma ile buldum teşekkürler