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
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
