Copy non-contiguous cells to another sheet
Solved/Closed
Related:
- Copy non-contiguous cells to another sheet
- Google sheet right to left - Guide
- Little alchemy cheat sheet - Guide
- Copy cells from one sheet to another - Guide
- Mark sheet in excel - Guide
- Windows network commands cheat sheet - Guide
3 responses
Dear Sir,
Please get through the following helpful tips in order to get solving the problem.
https://ccm.net/apps-sites/software/4025-how-to-compare-two-excel-sheets-and-combine-unique-data/
https://ccm.net/faq/5113-excel-how-to-transfer-worksheet-to-another-excel-file
https://ccm.net/faq/6033-excel-copy-data-from-one-sheet-to-another
Thanks in advance.
Please get through the following helpful tips in order to get solving the problem.
https://ccm.net/apps-sites/software/4025-how-to-compare-two-excel-sheets-and-combine-unique-data/
https://ccm.net/faq/5113-excel-how-to-transfer-worksheet-to-another-excel-file
https://ccm.net/faq/6033-excel-copy-data-from-one-sheet-to-another
Thanks in advance.
Hi dzrdw0,
I know there are shorter ways of writing a code for this query (I just don't know how) but since you only have 5 cells to copy/paste try this:
The only assumption I made is that the cells below the destination cells of sheet2 are empty.
And as you can see this is only the code for one value.
Let me know how this works for you.
Best regards,
Trowa
I know there are shorter ways of writing a code for this query (I just don't know how) but since you only have 5 cells to copy/paste try this:
Sub test() Sheets("sheet1").Range("B2").Copy If Sheets("sheet2").Range("A2").Value = "" Then Sheets("sheet2").Range("A2").PasteSpecial Else Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Application.CutCopyMode = False End Sub
The only assumption I made is that the cells below the destination cells of sheet2 are empty.
And as you can see this is only the code for one value.
Let me know how this works for you.
Best regards,
Trowa