Home / Questions / 466575
Accepted
ProgramadorJunior
Asked: 2022-07-04 08:53:46 +0800 CST 2022-07-04 08:53:46 +0800 CST

Paste data range at the end of a table VBA

  • 772

Hello, I hope you can help me with the following, I have a "transaction" table in "Sheet1" which I feed with data that I have in "Sheet2" the idea is to copy the range of data from Sheet2 and paste it just below the table in my Sheet1. When trying to do it, it only manages to paste the first row but it fails when it is more than one row of data since it only continues to paste a single row. I appreciate help me. I show what I'm wearing:


Dim ws As Worksheet
Dim newrow As ListRow
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String



Set ws = ActiveSheet
Set newrow = ws.ListObjects("transaccion").ListRows.Add

FinalRow = Cells(Rows.Count, 1).End(xlUp).Row


With newrow


Text1 = Worksheets("Hoja2").Range("a2").Value
Text2 = Worksheets("Hoja2").Range("b2").Value
Text3 = Worksheets("Hoja2").Range("c2").Value


  .Range(1) = Text1
  .Range(2) = Text2
  .Range(3) = Text3


  
End With
 


End Sub

Sheet 1

enter image description here

excel

1 Answers

  1. Best Answer

    You can copy and paste the range as they have the same format.

    Sub test()
Application.ScreenUpdating = False
Dim UF As Long

With ThisWorkbook.Worksheets("Hoja2")
    UF = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A2:C" & UF).Copy
End With

With ThisWorkbook.Worksheets("Hoja1")
    UF = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A" & (UF + 1)).PasteSpecial (xlPasteAll)
    Application.CutCopyMode = False
End With

Application.ScreenUpdating = True


End Sub

    An example:

    enter image description here

    • 5