çok hızlı satır silme

[mahonyyyy]

arkadaşlar acil yardıma ihtiyacım var şöyle ki
excel de 280000 satırlık bir sayfam var
for i=5 to 140000
rows(i & ":" & i).delete
next

diyerek birer satır atlayarak satır siliyorum ancak saatlerdir çalışıyor makro hala bitiremedi böyle dört sayfa daha var

sorum şu bunu daha hızlı nasıl silebilirim

not: 280000 satırı excele nasıl sığdırdım derseniz excel 2007 betayı indirdim 1000000 satır var sayfalarda

çok acil yardım çok acil

 

[merken]

soyle bi dene istersen
65536lik excelde denedim randiman verdi..
a1=1
a2=2
a1:a2 copy paste a:a
sort a
sonra da 1leri delete yada 2leri
saniyelik olay..

 

[Kemal Demir]

Bende Küçük Bir Örnek vermek İstedim.

Not:1000 adet satırı hzılı siliyor ama diğerleri biraz sakat(Ağır)

Sub sil()
For x = 1000 To 1 Step -1
Rows(x).EntireRow.Delete
Next

End Sub

 

[Haluk]

Sub Test()
    Rows("1:65535").Delete
End Sub

 

[Seyit Tiken]

Kodunuz bayağı iş görüyor. Yaptığınız işlemi bir kaç tekrar ile işlemleri yapabilirsiniz. Son sınıra kadar tanımla yapılırsa program donar ve işlemleri zor yapar.

 

[omerceri]

satırlarda (kayıtlarda) silinecek satırların yakalanacak bir kriteri varmı ???
kayıt numarası gibi

 

[mahonyyyy]

arkadaşlar çok sağolun emeğinize bilginize sağlık işim görüldü
bir soru daha sorayım dört sütunluk bir veri dosyam var ama binlerce sayfa yapıyor bunu word deki gibi bir sayfaya 6-8 sütuna nasıl yazdırabilirim tabi a4 sayfayı yatay kullanarak (yukarıda bahsettiğim 280.000 satırı 140.000 satıra düşürdüm bir sayfaya 50-60 satır sığıyor malum)

 

[tagayyur]

Çok denedim ama yapamadım

Merhaba arkadaşlar ve değerli hocalarım.

Ben malesef hücrelere formül yazma haricinde programlama bilmiyorum.
Birer satır atlayarak silmeyi yapamadım.
Ekte ilgili dosya mevcut. Sarı renk ile boyadığım ve sona kadar giden satırları silmek istiyorum. (kağıt tasarrufu için)

Nasıl yapacağımı anlatırsanız çok memnun olurum.

İyi günler dilerim.

 

[apocalyt]

şu kodu bir modüle kopyalayıp deneyiniz..

Sub daylihgt()
For x = 3 To [b100000].End(3).Row Step 2
Rows(x).Delete
x = x - 1
Next x
End Sub

 

[monelogg]

Merhaba,
http://www.excel.web.tr/f48/bo-hucreleri-silme-sorunu-t127596.html

#4 numaralı cevabın işinize yarayabileceğini düşünüyorum.

 

[doganbaris]

şu kodu bir modüle kopyalayıp deneyiniz..

Sub daylihgt()
For x = 3 To [b100000].End(3).Row Step 2
Rows(x).Delete
x = x - 1
Next x
End Sub

tersten gitmek daha sağlıklı olacaktır.

For x = [b100000].End(3).Row to 3 Step -2
Rows(x).Delete
x = x - 1
Next x

ayrıca, bu tür işlemleri çok tekrarlamıyorsanız, basit bir çözüm olarak kullanmadığınız bir sutunun satırlarına 1-0-1-0-1-0 gibi sırayla çekerek doldurabilir , daha sonra bu kolona göre sıralama+silme veya filtreleme işlemi yapabilirisiniz.

 

[tagayyur]

teşekkür.

Çok teşekkür ederim değerli arkadaşlar.

işe yaradı. Makroyu nereye yazacağımı bile bilmiyordum ama kurcalayınca oldu.
İnşallah bende birgün makro yazacağım:agla:

 

[tagayyur]

teşekkür.

Çok teşekkür ederim değerli arkadaşlar.

işe yaradı. Makroyu nereye yazacağımı bile bilmiyordum ama kurcalayınca oldu.
İnşallah bende birgün makro yazacağım:agla: