aralarında boşluk olan satırları bir başka sayfaya akta

[hamitcan]

Dosyayı gönderiyorum

Þimdiden teşekkürler...

 

[Haluk]

@hamitcan:

Dosya ektedir...

 

[ALPEN]

Application.ScreenUpdating = False
For i = 1 To Cells(65536, 1).End(xlUp).Row
    If Trim(Cells(i, 1)) <> "" And Trim(Cells(i, 1)) <> "m.cinsi" Then
    Range(i & ":" & i).EntireRow.Copy
    Sheets("sayfa2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    End If
Next i
Application.ScreenUpdating = True

edit : yukarıdaki örnekteki gibi aplication 'un screenupdate'i daha sonra kullanılmayacaksa, true yapmak mantıksızdır. iş bittiğinde zaten otomatik olarak true olur.
sen neden yaptın derseniz, alışkanlık.

 

[ALPEN]

Sn. Raider, gönderdikten sonra gördüm. ayrıca Sn. Raider'ın kodu 2-3 kat daha hızlı.

 

[hamitcan]

TEÞEKKÜRLER

Sayın RAIDER ve Sayın ALPEN yardımlarınız için teşekkürler iki makroda işimi görüyor.