Satır Silme

[ahmett46]

Slm Arkadaşlar ve üstadlar. UserForm üzerinden CommanButton ile örneğin C5 ile C250 arasını nasıl sildirebilirim.Teşekkürler

 

[Recep İpek]

CommanButton tıklama olayına aşağıdaki kodları yazabilirsiniz.

Private Sub CommandButton1_Click()
Range("c5:c250").ClearContents
End Sub

 

[ahmett46]

Önce teşekkür ediyorum ardından da özür dileyerek sorumu yeniliyorum yanlış sormuşum. Bul butonuyla bulduktan sonra aktif olan satırı silmek istiyordum. Bunu nasıl yaparız. Tekrar özür diliyorum

 

[geren]

Sayın ahmett46,

Sorunuza yönelik örnekleri forumda fazlası ile bulabilirsiniz...
Ama şu şekilde bir örnek gösterebiliriz. Siz kendinize göre uyarlayın..

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Önce silmek istediğiniz veriyi bulunuz", , "Stok Sil"
Exit Sub
End If
Dim cevap As String
Dim i
cevap = MsgBox("Seçili Kaydı Silmek istediğinizden Emin misiniz ?", vbYesNo + vbQuestion, "Kayıt Silme")
If cevap = vbYes Then
'seçili hücrenin bulunduğu satırı siler
Selection.EntireRow.Delete
TextBox1.Text = ""
TextBox1.Text = ""
'ActiveWorkbook.Save
MsgBox "Seçili kaydınız silinmiştir.", , "Kayıt Sil"
Else
End If
For i = 1 To ActiveSheet.Cells(5000, 1).End(xlUp).Row
If TextBox1.Text = Left(ActiveSheet.Cells(i, 1), Len(TextBox1.Text)) Then
End If
Next i
If ListBox1.ListCount > 0 Then
ListBox1.ListIndex = 0
End If
End Sub

 

[geren]

Birde buna ekleyecek olursak satır silmenin koşulsuz makrosu

Selection.EntireRow.Delete

kodudur. Buna herhangi bir satır bağlarsanız satırı silebilirsiniz. satır koşulu bağlama :

Rows(7:7).Select

Şeklinde olabilir. yani sonuç olarak belli bir button prosedürüne bağlarsak

Private Sub CommandButton_Click()
Rows(7:7).Select
Selection.EntrieRow.Delete
End Sub

kodu 7. satırı siler.