Hello, I have a table in an excel sheet, from which I must select a range of rows with the mouse and these are passed to another table in another sheet. The source table has 5 columns and the destination one only 3 (which I select) but when I pass them it does not keep the table format or adds it below the table lines. Somebody could help me?
Thanks a lot
Sub SeleccionConteo()
Dim uF As Long
Dim Centro As String
Dim Tablacentro As String
Dim Tabladestino As ListObject
Tablacentro = "TablaC" & Range("E3")
Centro = Sheets("Stock").Range("E3")
uF = Worksheets(Centro).Cells(Rows.Count, 10).End(xlUp).Row
Set Tabladestino = Sheets(Centro).ListObjects(Tablacentro)
Selection.Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Centro).Select Destination:=Sheets(Centro).Range("A" & uF + 1)
Thanks a lot
Sub SeleccionConteo()
Dim uF As Long
Dim Centro As String
Dim Tablacentro As String
Dim Tabladestino As ListObject
Tablacentro = "TablaC" & Range("E3")
Centro = Sheets("Stock").Range("E3")
uF = Worksheets(Centro).Cells(Rows.Count, 10).End(xlUp).Row
Set Tabladestino = Sheets(Centro).ListObjects(Tablacentro)
Selection.Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Centro).Select Destination:=Sheets(Centro).Range("A" & uF + 1)