Satır numarası ekleme ve aynı anda silme

[snx111]

Bir döngü içinde makronun koşula göre belirlediği satırları aynı anda silmek amacıyla ; rows (i) satıra baglı değişkene kolleksiyon eklemek istiyorum ;

daha açıkça anlatmak gerekirse ;

döngü içinde silinecek satırı hemen değil topluca silmek istiyorum ;
rows 1 ,2 ,3 ,5 ,15 ,16, ~ şeklinde rows(i).delete gibi ...

Sub topluca_rows_Sil()
For i = 1 to Range("A65536").End(3).Row 
If Cells(i, "A") <> 1 Then

Rows(i).Delete
End If
Next
End Sub

Malum kodun yazılış şekli nasıl olmalıdır.

 

[hamitcan]

Aşağıdaki linki inceleyin; işinizi görebilir.
http://www.excel.web.tr/f127/secili-satyrlary-silmek-t105265.html

 

[snx111]

linkteti algoritmayı incledim ama denemedim ek bir sorun olcak ; dikkatimi çeken bişey var asıl ulaşmak istediğim excelin apisi zaten bagzı hesaplamaları yapmış durumda uygun bir kodla ; makro for each veya for next kullanmadan apideki veriden (zaman kazanma amaçlı) bir komutla sil demek düşüncesi içindeyim?

 

[Necdet]

Merhaba,

Tam denemedim alternatif olsun. Denemeden önce dosyanızın yedeğini alınız.

Sub SatirSil()
    
    Dim i As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("A1:A" & i).AutoFilter Field:=1, Criteria1:="<>1", _
        Operator:=xlAnd
        
    If Cells(Rows.Count, "A").End(3).Row > 1 Then Rows("2:" & i).Delete
    Selection.AutoFilter
    
    Application.ScreenUpdating = True
    
End Sub

 

[snx111]

Sayfa olduğu gibi uçtu tertemiz oldu

 

[Necdet]

Merhaba,

Sizin verdiğiniz örneğe göre kodlar geliştirildi. A sütununda 1 e eşit olmayan satırları siler. Gerçek dosyanızda 1 değeri yoksa makro naapsın

Dikkat etmek gerek, kodları kendinize göre uyarlamanız gerek.