sil makrosunda satır sayısının silinmemesi

[İhsan Tank]

arkadaşlar elimde bulunan sil makrosunda satır sayısının silinmemesi

Private Sub CommandButton4_Click()
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
Sheets("1").Rows(Silinecek_Satir).Delete
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
End If
End Sub

makro kodu bu örnek dosya ektedir.

 

[taseraydin]

satır sayısı silinioyr

 

[İhsan Tank]

bu konu'da fikirlerinizi bekliyorum
umarım acele etmiyorumdur.

 

[Korhan Ayhan]

Selamlar,

Eğer satır numarasının silinmesini istemiyorsanız kodu aşağıdaki şekilde değiştirip kullanabilirsiniz.

Private Sub CommandButton4_Click()
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
[COLOR=red]Sheets("1").Range("B" & Silinecek_Satir & ":IV" & Silinecek_Satir).Delete
[/COLOR]TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
End If
End Sub

 

[İhsan Tank]

Selamlar,

Eğer satır numarasının silinmesini istemiyorsanız kodu aşağıdaki şekilde değiştirip kullanabilirsiniz.

Private Sub CommandButton4_Click()
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
[COLOR=red]Sheets("1").Range("B" & Silinecek_Satir & ":IV" & Silinecek_Satir).Delete
[/COLOR]TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
End If
End Sub

korhan hocam bilgilendirme için teşekkür ederim.
yalnız bunda bir şöyle bir sıkıntı oldu yeni kayıt yaptığımda üstte sildiğim boşluğa değil normal satıra tamamen kayıt yapıyor.
denediğim örnek dosya ektedir.
teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Bu durumda ilk kullandığınız sil kodunu kullanabilirsiniz. Sadece sıra numarasını yeniden düzenleyen bir kod bloğu ekleyerek sorunu ortadan kaldırabiliriz.

Private Sub CommandButton4_Click()
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
Sheets("1").Rows(Silinecek_Satir).Delete
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Select Case Range("A65536").End(3).Row
    Case Is = 2
    Range("A2") = 1
    Case Is = 3
    Range("A2") = 1
    Range("A3") = 2
    Case Is > 3
    Range("A2") = 1
    Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
End Select
End If
End If
End Sub

 

[İhsan Tank]

korhan hocam çok teşekkür ederim.
Allah razı olsun