İstenilen satırları Listbox ve Sayfadan tek seferde silme

[beza]

Merhaba,

Listbox1 içerisinde 4 adet sütun var. 4.sütundaki sipariş numarasına ait satırları hem listbox1 içerisinden hem sayfa12 den aşağıdaki komut satırları
ile tek tek silebiliyorum.

Private Sub CommandButton2_Click()
x = ListBox1.ListIndex + 2
Sayfa12.Cells(x, 2).EntireRow.Delete
ListBox1.RemoveItem ListBox1.ListIndex
End Sub

O siparişe ait tüm satırları tek seferde silebileceğim bir kod varmı?
Yani 4. sütundaki sipariş numarasına göre aynı siparişe ait satırları bulup, tek seferde listbox1 den ve sayfa12 den silmek istiyorum.
Aşağıdaki komut satırları ile aynı sipariş satırlarını listbox2 ye aktarabiliyorum.
Ama silmek için gerekli satırları yazamadım.
Bu işlem mümkün müdür?
Dim i As Long, sat As Long, deg As String, x As Long
sat = Sheets("SipY").Cells(Rows.Count, "F").End(xlUp).Row
ListBox1.RowSource = ""
txtbx = UCase(Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I"))
ListBox2.Clear
For i = 1 To sat
deg = UCase(Replace(Replace(Cells(i, "F").Value, "i", "İ"), "ı", "I"))
If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) = TextBox1 Then
ListBox2.AddItem Worksheets("SipY").Range("A" & i)
ListBox2.List(ListBox2.ListCount - 1, 1) = Worksheets("SipY").Range("B" & i)
ListBox2.List(ListBox2.ListCount - 1, 2) = Worksheets("SipY").Range("D" & i)
TextBox2.Text = Worksheets("SipY").Range("F" & i)
End If
Next i

 

[Mustafa MUTLU]

TextBox2.Text = Worksheets("SipY").Range("F" & i)
End If
Next i

Bu Satırların arasına Rows(i).Delete kodunu ekleyin

If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) = TextBox1 Then ( Bu estliği bulan tüm satırları silecektir.)

Aşağıdaki gibi.

TextBox2.Text = Worksheets("SipY").Range("F" & i)
Rows(i).Delete
End If
Next i

 

[beza]

Mustafa Bey,
Çok teşekkür ederim. Ayırdınız zaman ve emek için.
Bir sorum daha olacak;
Listbox içerisinde metin kaydırma yapılabiliyormu? Textbox özellikerinde multiline ile yapılabiliyor.
Listboxta bu özellik varmı? Multiselect ile olmadı?

 

[beza]

Mustafa Bey,
Listbox yerine Textbox kullanarak devam ettim.
Çok teşekkür ederim.

 

[Mustafa MUTLU]

Rica Ederim.
Sorununuz çözüldü ise ne mutlu