Do I need a, do loop?
Morning all,
I have done a Macro in Excel 2003 to copy and paste infomation from one sheet to my form I have setup in another sheet.
Can someone add to my macro so it continues copying the the data down the rows until it reaches a blank row, please
Many thanks.
Please Login or Register to view this content.
Last edited by adkchum; 05-13-2009 at 02:54 PM. Reason: Added Code Tags
For a do until row is blank, you'd use something like this:
Does that help?Please Login or Register to view this content.
It's sorta hard to follow why your code is doing what it's doing without somewhat of a description, but that might give you something to work off of?
lemme know.
mew!
=IF(AND(OR(BLONDE,BRUNETTE,REDHEAD),OR(MY PLACE,HER PLACE),ME),BOW-CHICKA-BOW-WOW,ANOTHER NIGHT ON THE INTERNET)
Hi
Can you please attach an example file showing your source and output data and what goes where. There are a couple of bits missing in the code (eg the first output cell) and are you pasting just the values or are they formulas?
rylo
Originally Posted by rylo
I am trying to basicly copy just values from 'Sheet3' over to my Form then print it out.
But i need the macro to continue down the rows until it gets to a empty row.
i have attached my spreadsheet.
thank You.
Last edited by adkchum; 05-14-2009 at 06:17 PM. Reason: remove .xls file
You do not need to "SELECT" everything in Excel.
That being said, I've shortened your code and added a loop to get everything (you may want to confirm my TO and FROM ranges)...
Please Login or Register to view this content.
You do not need to "SELECT" everything in Excel.
That being said, I've shortened your code and added a loop to get everything (you may want to confirm my TO and FROM ranges)...
Please Login or Register to view this content.
Thank very much for you time and help
I changed a range (F42:I42) to (D49-G49) , but for some reason i cannot work out how to alter:
I need
'Sheet3' column G (Missing or Free Text) copied into sheet 'Print Forms' cell I49
'Sheet3' column E (DATE) copied in to 'Print Forms' cell F42
'Sheet3' column F (0000) copies in to 'Print Forms' cell F40
I hope this makes sense, and again i do thank you for your time and help.
The lines after the DO statement are your TO and FROM:
"TO"
Sheets(" Print Forms").Range("F42:I42, I49, F40, F42").Value
"FROM"
Sheets("Sheet3").Range("A" & iRow & ":D" & iRow & ", G" & iRow & ", F" & iRow & ", E" & iRow).Value
Sheets(" Print Forms").Range("D49:G49, I49, F40, F42").Value = _I changed a range (F42:I42) to (D49-G49) , but for some reason i cannot work out how to alter:
I need
'Sheet3' column G (Missing or Free Text) copied into sheet 'Print Forms' cell I49
'Sheet3' column E (DATE) copied in to 'Print Forms' cell F42
'Sheet3' column F (0000) copies in to 'Print Forms' cell F40
Sheets("Sheet3").Range("A" & iRow & ":D" & iRow & ", G" & iRow & ", F" & iRow & ", E" & iRow).Value
Sorry to be a complete pain but;
This does not seem to work, as in sheet 'Print Forms' cells I49 , F40 and F42.
When printed is has data from sheet 'Sheet3' Column A inputed in to each of the above cells.
so the data gets reapted from Column A.
Sorry about that, you are right the .Value only gets the first range.
Try this...
Please Login or Register to view this content.
You are a STAR !! Works Great.
Thank you very much for your time & efforts
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks