Kopyalama ile ilgili sorun

[arifgrn]

Burada adetlerin yazılı olduğu aktar sayfasındaki hücreler çift tıklandığı zaman solundaki satır, hücre değeri kadar data1 sayfasına aktarılıyor. Fakat aktarmam gereken veri çok fazla olduğu zaman bu işlem uzun zaman alıyor ve bazen dikkatten kaçabiliyor. Bu işlemi tek bir makroyla bütün sütuna nasıl uygularım. örneğin j8 den itibaren değer yazan bütün satırları diğer data sayfasına değer kadar kopyalasın.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Long
Sayfa4.[b8:h65000] = Empty
s = 8
Application.ScreenUpdating = False
    For sat = 8 To Sayfa1.Cells(65536, "j").End(xlUp).Row
        If Sayfa1.Cells(sat, "j") <> "" Then
            Range(Sayfa4.Cells(s, "b"), Sayfa4.Cells(s, "h")) = Range(Sayfa1.Cells(sat, "b"), Sayfa1.Cells(sat, "h")).Value
            s = s + 1
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[arifgrn]

Teşekkür ederim. Yapmak istediğim buydu. İyi çalışmalar dilerim.