çok satırlı ve çok sayfadan oluşan bir çalışma kitabım var. komut sayfamda sayfa isimlerinin bulunduğu bir listbox um var. bu listboxa yüklediğim sayfalardaki 2005 yılını içeren satırların tamamını silmek istiyorum. yazdığım kod şu ama çalışmıyor
Private Sub CommandButton11_Click()
For sayfa = 0 To ListBox1.ListCount - 1
For i = 1 To 50000
If Sheets(ListBox1.List(sayfa)).Cells(i + 1, 7).Value = "dd.mm.2005" Then
Sheets(ListBox1.List(sayfa)).Rows(i + 1).Delete
End If
Next
Next
End Sub
acaba yardımcı olabilirmisiniz?
Private Sub CommandButton11_Click()
For sayfa = 0 To ListBox1.ListCount - 1
For i = 1 To 50000
If Sheets(ListBox1.List(sayfa)).Cells(i + 1, 7).Value = "dd.mm.2005" Then
Sheets(ListBox1.List(sayfa)).Rows(i + 1).Delete
End If
Next
Next
End Sub
acaba yardımcı olabilirmisiniz?
