copy and paste rows from a table with fewer columns

[patodif]

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)

 

[OaklandJim]

Are both tables just rows and columns in a worksheet or are you using Excel tables? Which columns from the first table are copied into the second table? How do you specify which columns to copy?

 

[patodif]

Hello, and thanks, they are excel tables. I can indicate the columns that are copied but not the rows, nor the beginning of the rows to count, for this reason I use "Selection".
The source table has 6 columns and the destination table has 10 columns, the first 6 match in order and name.
I wil try with this:
Sub SeleccionConteo()



Dim uF As Long

Dim Centro As String

Dim Tablacentro As String

Dim Tabladestino As ListObject

Dim NuevaFila As ListRow



Tablacentro = "TablaC" & Range("E3")



Centro = Sheets("Stock").Range("E3")

uF = Worksheets(Centro).Cells(Rows.Count, 10).End(xlUp).Row

Set Tabladestino = Sheets(Centro).ListObject(Tablacentro)





Selection.Select

Application.CutCopyMode = False

Selection.Copy

Sheets(Centro).Select

Sheets(Centro).ListObject(Tabladestino).ListRow.Paste

 

[OaklandJim]

Ideally you share your workbook with the forum so someone that is helping does not need to recreate it. Use a link to Box, Dropbox or 1Drive.

From the five columns in the source table do you always copy the same three columns to the target table? If not the data in the target table will not be consistent?

 

[patodif]

Ideally you share your workbook with the forum so someone that is helping does not need to recreate it. Use a link to Box, Dropbox or 1Drive.

From the five columns in the source table do you always copy the same three columns to the target table? If not the data in the target table will not be consistent?

TEST1.xlsm
	A	B	C	D	E	F	G	H	I	J	K
8	Almacén	Ubi. por defecto	Ubicación	Familia	Subfamilia	Artículo	Descripción	Proveedor Hab.	Ref. proveedor	Pie. Stk. Actual	Precio Pie.
9	2	8000505	1	90	26	3181	COBRE MTS TUBO TIRAS 10X12 MM (5M)	737	10D12X100	70	2,92838823
10	2	8000504	1	90	26	3182	COBRE MTS TUBO TIRAS 13X15 MM (5M)	737	10D15X100	105	3,50295126
11	2	8000503	1	90	26	3184	COBRE MTS TUBO TIRAS 16X18 MM (5M)	737	10D18X100	110	4,25220211
12	2	8000502	1	90	26	3185	COBRE MTS TUBO TIRAS 20X22 MM (5M)	737	10D22X100	95	5,16745806
13	2	8000501	1	90	26	3186	COBRE MTS TUBO TIRAS 26X28 MM (5M)	737	10D28X100	90	6,79645623
14	2	8000701	1	90	26	3187	COBRE MTS TUBO TIRAS 33X35 MM (5M)	737	SD350100	60	8,98890392
15	2	8000702	1	90	26	3188	COBRE MTS TUBO TIRAS 40X42 MM (5M)	737	10D42X100	50	11,10526686
16	2	8000703	1	90	26	3189	COBRE MTS TUBO TIRAS 54X1,2 MM (5MT)	737	10D54X120	40	18,70977910
17	2	8000704	1	90	26	3190	COBRE MTS TUBO TIRAS 64 X 1.5 MM (5 MTS)	737	6164	20	25,86847059
18	2	4111902	1	90	25	3191	COBRE MTS TUBO ROLLO 8X10 MM (50M)	737	10R10X100	99	2,16779063
19	2	4110903	1	90	25	3192	COBRE MTS TUBO ROLLO 10X12 MM (50M)	737	10R12X100	116	2,92141946
20	2	8000803	1	90	25	3193	COBRE MTS TUBO ROLLO 12X15 1,5MM (50 M)	737	3193	53	5,69488420
21	2	4110902	1	90	25	3194	COBRE MTS TUBO ROLLO 13X15 MM (50M)	737	10R15X100	168	3,62666801
22	2	8000802	1	90	25	3196	COBRE MTS TUBO ROLLO 15X18 1,5MM (25 M)	737	3196	34	6,99606283
23	2	4110901	1	90	25	3197	COBRE MTS TUBO ROLLO 16X18 MM (50M)	737	10R18X100	204	4,29489560
24	2	8000801	1	90	25	3198	COBRE MTS TUBO ROLLO 19X22 1,5MM (25 M)	737	10RG22X150	62	8,91229405
25	2	4110904	1	90	27	3199	COBRE MTS TUBO ROLLO CROM 8X10 MM (25M)	737	10CR10X100	11	2,85642118
26	2	4111104	1	90	27	3200	COBRE MTS TUBO ROLLO CROM 10X12 MM (25M)	737	10CR12X100	34	2,94759806
27	2	1603105	1	90	29	3201	COBRE ROLLO FRIGORIFICO 1/4"X0,8 (15M)	737	FRI1/4	4	18,98888102
28	2	1603305	1	90	29	3202	COBRE ROLLO FRIGORIFICO 3/8"X0,8 (15M)	737	FR3/8	4	29,61263530
29	2	1603505	1	90	29	3203	COBRE ROLLO FRIGORIFICO 1/2"X0,8 (15M)	737	FR1/2	4	38,44132727
30	2	1603705	1	90	29	3204	COBRE ROLLO FRIGORIFICO 5/8"X0,8 (15M)	737	FR5/8	2	32,39776114
Stock

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
G8:G87019	Cell Value	duplicates	text	NO

 

[patodif]

I have 11 of this one, but with different names, so the name is a variant.

TEST1.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
10	Almacén	Ubi. por defecto	Ubicación	Familia	Subfamilia	Artículo	Descripción	Proveedor Hab.	Ref. proveedor	Pie. Stk. Actual	Precio Coste Pie.	contado	diferncia	imp dif	fecha	Incidencia	Motivo
11	2	8000503	1	90	26	3184	COBRE MTS TUBO TIRAS 16X18 MM (5M)	737	10D18X100	110	4,25220211		-110	-467,74
12	2	8000505	1	90	26	3181	COBRE MTS TUBO TIRAS 10X12 MM (5M)	737	10D12X100	70	2,92838823		-70	-204,99
13	2	8000504	1	90	26	3182	COBRE MTS TUBO TIRAS 13X15 MM (5M)	737	10D15X100	105	3,50295126		-105	-367,81
14	2	8000503	1	90	26	3184	COBRE MTS TUBO TIRAS 16X18 MM (5M)	737	10D18X100	110	4,25220211		-110	-467,74
15	2	8000502	1	90	26	3185	COBRE MTS TUBO TIRAS 20X22 MM (5M)	737	10D22X100	95	5,16745806		-95	-490,91
16	2	8000501	1	90	26	3186	COBRE MTS TUBO TIRAS 26X28 MM (5M)	737	10D28X100	90	6,79645623		-90	-611,68
17	2	8000701	1	90	26	3187	COBRE MTS TUBO TIRAS 33X35 MM (5M)	737	SD350100	60	8,98890392		-60	-539,33
18	2	8000705	1	90	53	3229	PP-R MTS TUBO 20 MM (4M)	674	084062				0	0,00
19	2	8000905	1	90	53	3230	PP-R MTS TUBO 25 MM (4M)	674	084063				0	0,00
20	2	8000904	1	90	53	3231	PP-R MTS TUBO 32 MM (4M)	674	084064				0	0,00
2

Cell Formulas
Range	Formula
M11:M20	M11	=+L11-J11
N11:N20	N11	=+M11*K11

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
G18:G20	Cell Value	duplicates	text	NO
G12:G17	Cell Value	duplicates	text	NO
G11	Cell Value	duplicates	text	NO
J18:J2520	Expression	=M18<0	text	NO
J18:J2520	Expression	=M18>0	text	NO
K18:L2520,L11:L17	Expression	=M11>0	text	NO
K18:L2520,L11:L17	Expression	=M11<0	text	NO
M7:N9,M6,M1:N3,M5:N5,L4:M4,M11:N1048576	Cell Value	<0	text	NO
M7:N9,M6,M1:N3,M5:N5,L4:M4,M11:N1048576	Cell Value	>0	text	NO
N18:N990	Cell Value	<0	text	NO
N18:N990	Cell Value	>0	text	NO
N18:N990	Expression	=#¡REF!>0	text	NO
N18:N990	Expression	=#¡REF!<0	text	NO