Previous Topic Next Topic

Copy the row and paste in a sheet w/ new col

Closed
Josh - 18 Apr 2012 à 11:41
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 20 Apr 2012 à 09:53
Hello,

I am using Excel 2007.

I am trying to figure out how to copy a row from one worksheet (in workbookA) and paste to a new row in a different workbook (workbookB), but in workbookB, there is another column added at the beginning with the value pulled from Sheet1 (workbookA) in A15. Here is what I am using so far. I just need to know how to get it to populate Column A with the value in A15.

e = 1
k = 2

Do Until IsEmpty(OldSheet.Range("I" & k))
e = e + 1
DbWb.Sheets("Sheet1").Rows(e + lNextRow - 2).Value = OldSheet.Rows(k).Value
k = k + 1
Loop

Any assistance would be greatly appreciated.

Thank you,
Josh

1 response

Réponse 1 / 1
Josh
19 Apr 2012 à 09:35
Ok. What I did is just write the value to the end of the row, in a new columnn, instead of trying to place it in front of the row. However, I'd still like to know how to do what I had originally asked.

Thank you,
Josh
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 766
19 Apr 2012 à 16:29
What you mean by populate column A with value from A15.
If I got it correct, it seems to me you are copying data from one sheet to another sheet. Once that data is copied, you want column A to be populated with what ever the value was in cell A15 in sheet 1. Is that so ?
Other thing is that it seems to me you are copying one row at a time . Any reason ? why not copy all in one go ?
Josh
20 Apr 2012 à 08:38
rizvisa1:
Yes, I am copying info from one sheet to another. However, I am doing this for about 30 other worksheets, which go to the same sheet in dbwb, and I didn't want there to be blank lines.
Thank you,
Josh
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 766
20 Apr 2012 à 09:53
Josh, one row at a time is not too efficient way. If blank rows are issue there are two approaches that you may want to consider.
1. Filter the source sheet for non blank rows and then copy and paste visible rows
2. Copy all rows and paste. Then filter on blanks rows and then delete them

having said that it seems to me that perhaps all these sheet do not have in-between any blank rows. All you want to do is copy the data from all these sheets into a new sheet in a continuous manner. In that case, you only copy the data and any thing more

Similar discussions

Can no longer paste text into insta
6hypnone -
Gordon -

7 responses
What hashtags to use on TikTok?
Thomascharlesbritton -
HelpiOS -

4 responses
Copying data from one Excel sheet to another.
Remedial -
Kav -

30 responses
How can I make my name text invisible in Discord
imbenmark -
imbenmark -

4 responses