Sütundaki bilgileri başka sayfada sırası ile altalta satırlara aktarma

[Yesilyurtlu]

Selamün Aleyküm;
bordro1 sayfasının B1:B31 sütunundaki bilgilere veri girişi yapıldıkça
Veri sayfasının B4: AF4 satır aralığına altalta sırası ile aktarmak istiyorum.
Bu konuda yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod yapısını kullanabilirsiniz. Veriler kopyala-yapıştır yöntemiyle aktarılmaktadır. İsterseniz döngüylede aktarım yapılabilir.

Option Explicit
 
Sub AKTAR()
    Dim Satır As Long
    Sheets("bordro1").Range("B1:B31").Copy
    If Sheets("veri").Range("B4") = "" Then
        Satır = 4
    Else
        Satır = Sheets("veri").Cells(Rows.Count, 2).End(3).Row + 1
    End If
    Sheets("veri").Cells(Satır, 2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Sheets("veri").Cells(Satır, 2).PasteSpecial Paste:=xlPasteFormats, Transpose:=True
    Application.CutCopyMode = False
End Sub

 

[Yesilyurtlu]

Korhan Abi;
Yardımınızı Esirgemediğiniz için Teşekkür Ederim.
Ellerinize sağlık