Dolu satırları aktarma (ancak tüm sütunlar aktarılmayacak)

[Erdinç FIRTINA]

Değerli üyeler,
Forumda veri aktarma ile ilgili çok sayıda örnek var. Ancak, yapmak istediğime benzer örnek bulmadım. sayfa 1 deki dolu satırları Sayfa2 ye alt alta aktarmak istiyorum. Ancak, aynı satırda bulunan sütunların hepsini sırasıyla aktarmak istemiyorum. Sadece belirlediğim sütunlardaki veri olan satırları ilgili satırlardaki sütunlara aktarmak istiyorum. Dosyam ektedir.
Yardımlarınız için şimdiden teşekkürler !!!

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Integer
Dim s As Integer
Sayfa2.Range("a8:an" & Rows.Count).ClearContents
s = 8
    For sat = 8 To Sayfa1.Cells(Rows.Count, "s").End(xlUp).Row
        If Sayfa1.Cells(sat, "s") <> "" Then
            Sayfa2.Cells(s, "a") = Sayfa1.Cells(sat, "a")
            Sayfa2.Cells(s, "b") = Sayfa1.Cells(sat, "c")
            Sayfa2.Cells(s, "s") = Sayfa1.Cells(sat, "h")
            Sayfa2.Cells(s, "an") = Sayfa1.Cells(sat, "s")
            s = s + 1
        End If
    Next
End Sub

 

[Erdinç FIRTINA]

Teşekkürler !!

Sayın Hiçdurmaz,
çok çok teşekkür ederim.