Soru Son Dolu Satıra Göre Alınan Veriyi Yapıştırma

[okan32]

Merhaba Arkadaşlar
Aşağıdaki kod ile kapalı dosyadan verileri alıp belirtilen hücre aralığına verileri getiriyorum.İstediğim kopyalanan veriyi yolluk programı kişiler sayfasının örnek P sütunun son dolu satırına yapıştırması için kodda nasıl düzenleme yapabiliriz

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
YOL = ThisWorkbook.Path & "\Liste.xls"
Workbooks.Open (YOL)
YOL = ThisWorkbook.Path & "\MaasBanka.xls"
Workbooks.Open (YOL)

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("R14:R700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("P3:P700")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("D14:D700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("Q3:Q700")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("O14:O700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("R3:R700")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("T14:T700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("S3:S700")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("V14:V700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("T3:T700")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("W14:W700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("U3:U700")

Workbooks("MaasBanka").Sheets("Sayfa1").Range("I10:I700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Range("V3:V700")



Workbooks("Liste").Close True
Workbooks("MaasBanka").Close True

Call Verileri_Aktar

Application.ScreenUpdating = True
Unload UserForm1

End Sub

 

[okan32]

Arkadaşlar Yardım edecek yok mudur

 

[YUSUF44]

Aşağıdaki gibi olabilir:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
YOL = ThisWorkbook.Path & "\Liste.xls"
Workbooks.Open (YOL)
YOL = ThisWorkbook.Path & "\MaasBanka.xls"
Workbooks.Open (YOL)
yeni = Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(Rows.Count, "P").End(3).Row + 1

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("R14:R700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "P")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("D14:D700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "Q")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("O14:O700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "R")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("T14:T700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "S")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("V14:V700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "T")

Workbooks("Liste").Sheets("bilgi_1_Maas").Range("W14:W700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "U")

Workbooks("MaasBanka").Sheets("Sayfa1").Range("I10:I700").Copy _
Workbooks("Yolluk Programı").Sheets("Kişiler").Cells(yeni, "V")



Workbooks("Liste").Close True
Workbooks("MaasBanka").Close True

Call Verileri_Aktar

Application.ScreenUpdating = True
Unload UserForm1

End Sub

 

[okan32]

Teşekkür ederim Yusuf Bey işimi gördü.