satır seçtirme (yardım)

[EmirhanG]

Merhaba arkadaşlar... Çalışma sayfası sayfa1 de içerisinde veri bulunan (değer olan) satırları seç kopyala ve sayfa2 ye yapıştır demek istiyorum. (veri olan satır sayısı değişken olduğu için özellikle veri bulunan satırları seçtirmek istiyorum, mesela 1 inci satırla 500 üncü satır aralarında veri olanları seçtirmek gibi.)
Yardımcı olacak arkadaşlara şimdiden teşekürler........:yardim:

 

[Orion1]

Merhaba.
Satır aralığını verdiğiniz gibi sütun aralığınıda vermeniz doğru olacaktır.
Örnek:A1:G500 gibi.

 

[EmirhanG]

Komple satırlar olsun istiyordum ama A1:O500 arasıda olabilir. Teşekürler....

 

[Orion1]

Sayfa2'de hangi sütuna veya sütunlara yazdırılsın istiyorsunuz?

 

[EmirhanG]

Sayfa1 de bulunduğu satır ve sütunlar olabilir.

 

[Orion1]

Ekli dosyayı inceleyiniz
A:O sütunlardaki son dolu hücreye kadar dolu olan hücreleri sayfa2'ye bulunduğu sütuna ard arda listeliyor.

Sub aktar()
Sheets("Sayfa1").Select
sat = 1
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:O65536").ClearContents
For i = 1 To 15
    For k = 1 To Cells(65536, i).End(xlUp).Row
        If Cells(k, i).Value <> "" Then
            Sheets("Sayfa2").Cells(sat, i).Value = Cells(k, i).Value
            sat = sat + 1
        End If
    Next k
    sat = 1
Next i
Application.ScreenUpdating = True
MsgBox "DOLU HÜCRELER SAYFA2'YE AKTARILDI..!!"
End Sub