Satir silme

Katılım
27 Eylül 2006
Mesajlar
1
Excel Vers. ve Dili
MS Office 2002-2003
Selam,
elimde 5 sheet´li excel dosyasi var.Her sheet 700-30000 satir ve max.20 sütunluk.Yani coook uzun ama arada bosluk vs. yok.Her sheetín ilk satiri baslik satiri(her sütun icin baslik ayri) Her sheetteki ayri bir sütunda "Profitcenter"basligi ile ürün kodu bulunuyor.Istedigim bu ürün kodlari icinden sadece"P07613"olanlarin alinip gerisinin ona bagli olan satirla birlikte silinmesi... Autofilter kullanmak istemiyorum. Asagida programi kullandim.Aslinda iyi isliyor fakat cok yavas... Hizlandirmak icin öneriniz varsa cok sevinirim.
----------------------------
Dim Nummer as Variant
Sub Del()
Number ="P07613"
Worksheets("......").Select
For i=Range("A1").CurrentRegion.Rows.Count to 2 step -1
If not cells(i,3)=Number then
Rows(i).DeleteShift:=x1Up
End If
Next
------------
Her sheet icin ismini ve numaranin hangi sütunda oldugunu belirtip programi tekrarliyorum. Yardim icin simdiden tesekkürler:) ..
PS: Dosyayi yollamam maalesef mümkün degil :(
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyanızın her sayfada 10-15 veri içerecek şekilde kısaltılmış bir örneğini eklermisiniz. Kullandığınız kod bir döngü ile her satırı incelediğiniden çalışması çok uzun sürecektir. En kısa çözüm kod içinde autofilter özelliğinin kullanılması olacaktır.
 
Üst