- Katılım
- 2 Ocak 2022
- Mesajlar
- 83
- Excel Vers. ve Dili
- 2007Türkçe
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
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