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

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Dosyayı gönderiyorum

Þimdiden teşekkürler...
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
@hamitcan:

Dosya ektedir...
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
Kod:
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.
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
Sn. Raider, gönderdikten sonra gördüm. ayrıca Sn. Raider'ın kodu 2-3 kat daha hızlı.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
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.
 
Üst