Transfer only selected row data.

[harzer]

Hello,
My data contains many variable rows across multiple columns.
The data that we are going to process in this case here, of course concerns all the rows on the first 10 columns only, the columns from the 11th are not taken into account.
I have two sheets, the first is "Parents" contains the data, the second is "Result".
I want to copy the rows selected in column "A" in the "Parents" sheet to copy them to the "Result" sheet.
Two conditions to be met for the transfer of lines:
If the "Result" sheet does not contain data, the copy will be made from line 2.
If the "Result" sheet already contains data, the copy will be made at the first empty line, so we keep the data that already exists.
I allow you to ask for a solution either with UBound, or dictionary, or both combined so that the transfer is done quickly.
Cheers.

To test, we will copy two lines, see below :

Transfert.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Jeunes	Père	Mère	Eleveur	Age	Volière	Cage	Né	Tours	Information	Ancêtres	Pères	Mères
2	ElA27-001/2022 M	MaN-008/2021 M	ElA27-021/2020 F	Tress Gaby	x	5H	7	23-04-22	4T	Mâle	A	B	C
3	YLM03-002/2022 F	MaN-024/2021 M	ElA27-016+/2020 F	Roland Louis	x	4H	8	26-04-22	4T	Femelle Tte Jaune	AA	BB	CC
4	MPO65-003/2022 M	MaN-024/2021 M	ElA27-016+/2020 F	Roland Louis	x	5H	8	26-04-22	4T	Femelle Tte Jaune	A	B	C
5	ElA27-004/2022 F	MaN-024/2021 M	ElA27-016+/2020 F	Roland Louis	x	5H	8	26-04-22	4T	Femelle avec tache	AA	BB	CC
6	WQA69-005/2022 F	MaN-024/2021 M	ElA27-016+/2020 F	Tress Gaby	x	4H	8	02-05-22	4T	Femelle Tte jaune	A	B	C
7	ElA27-006/2022 M	MaN-024/2021 M	ElA27-016+/2020 F	Roland Louis	x	5H	8	02-05-22	4T	Mâle Tt jaune	AA	BB	CC
8	GTE87-007/2022 F	ElA27-010/2021 M	MaN-034/2021 F	Cardon Léo	x	4H	5	25-04-22	4T	Femelle Tte jaune	A	B	C
9	ElA27-008/2022 M	ElA27-010/2021 M	MaN-034/2021 F	Roland Louis	x	5H	5	25-04-22	4T	Mâle Tt jaune	AA	BB	CC
10	MaN-008/2022 F	MaN-002/2020 M	MaN-020/2020 F	Cardon Léo	x	4H	22	24-04-22	4T	Femelle	A	B	C
11	ElA27-009/2022 F	ElA27-010/2021 M	MaN-034/2021 F	Roland Louis	x	4H	5	25-04-22	4T	Femelle Tte jaune	AA	BB	CC
12	MAO25-010/2022 M	ElA27-010/2021 M	MaN-034/2021 F	Roland Louis	x	5H	5	25-04-22	4T	Mâle Tt jaune	A	B	C
13	ElA27-011/2022 F	ElA27-010/2021 M	MaN-034/2021 F	Roland Louis	x	4H	5	25-04-22	4T	Femelle Tte jaune	AA	BB	CC
14	HGF-012/2022 F	ElA27-006/2021 M	ElA27-021/2020 F	Cardon Léo	x	4H	7	08-06-22	4T	Femelle Tte jaune	A	B	C
15	ElA27-013/2022 M	ElA27-006/2021 M	ElA27-052/2021 F	Roland Louis	x	5H	3	26-04-22	4T	Mâle Tache aile gauche	AA	BB	CC
16	URD12-014/2022 F	ElA27-006/2021 M	ElA27-052/2021 F	Roland Louis	x	4H	3	26-04-22	4T	Femelle Tte jaune	A	B	C
17	FEQ47-015/2022 F	ElA27-006/2021 M	ElA27-052/2021 F	Maes Voncent	x	5H	3	26-04-22	4T	Femelle Tte Jaune	AA	BB	CC
18	KLP12-016/2022 F	ElA27-006/2021 M	ElA27-052/2021 F	Roland Louis	x	4H	3	26-04-22	4T	Femelle Tte jaune	A	B	C
19	ElA27-017/2022 M	MaN-005/2021 M	ElA27-068/2021 F	Roland Louis	x	5H	4	28-04-22	4T	Mâle Tte jaune	AA	BB	CC
20	BIM13-018/2022 M	MaN-005/2021 M	ElA27-068/2021 F	Derouck Léo	x	5H	4	28-04-22	4T	Mâle Tt jaune	A	B	C
Parents

Transfert.xlsm
	A
6	WQA69-005/2022 F
Parents

Transfert.xlsm
	A
20	BIM13-018/2022 M
Parents

Here is the result to get :

Transfert.xlsm
	A	B	C	D	E	F	G	H	I	J
1	Jeunes	Père	Mère	Eleveur	Age	Volière	Cage	Né	Tours	Information
2	WQA69-005/2022 F	MaN-024/2021 M	ElA27-016+/2020 F	Tress Gaby	x	4H	8	02-05-22	4T	Femelle Tte jaune
3	BIM13-018/2022 M	MaN-005/2021 M	ElA27-068/2021 F	Derouck Léo	x	5H	4	28-04-22	4T	Mâle Tt jaune
Resultat

 

[mumps]

Transfer only selected row data.

When you say "selected row", do you mean that you will highlight the rows to be transferred? Please clarify in detail.

 

[harzer]

Hello,
Thank you for your reply.
Yes, that's right, I highlight the rows to transfer by choosing the cells of the rows concerned in column "A".

 

[mumps]

Try:

Sub CopyData()
    Application.ScreenUpdating = False
    Dim desWS As Worksheet
    Set desWS = Sheets("Resultat")
    Intersect(Columns(1).Resize(, 10), Selection.EntireRow).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1)
    Application.ScreenUpdating = False
End Sub

 

[harzer]

Hello mumps,
Thanks for your code.
It gives me the right result and meets my expectation.
Big THANKS to you.
Cheers.

 

[mumps]

You are very welcome.