Copy non-contiguous cells to another sheet
Solved/Closed
Related:
- Copy non-contiguous cells to another sheet
- Google sheet right to left - Guide
- Windows network commands cheat sheet - Guide
- Mark sheet in excel - Guide
- How to open excel sheet in notepad++ - Guide
- Little alchemy 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