| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Marco Editing Help
Hi, Very Simple. I dont know macro programming and use the record
functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
Hi
Try Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' Dim lastrow as long lastrow = ws.Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V" & lastrow) End Sub I don't think you needed that last Select line. If you do, then amend it to Range("J2:V" & lastrow).Select -- Regards Roger Govier "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
othanks but i get an error message -
run time error 424 object required debuuger highlights this line lastrow = ws.Cells(Rows.Count, "J").End(xlUp).Row -- Rob Gaffney "Roger Govier" wrote: Hi Try Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' Dim lastrow as long lastrow = ws.Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V" & lastrow) End Sub I don't think you needed that last Select line. If you do, then amend it to Range("J2:V" & lastrow).Select -- Regards Roger Govier "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
Sorry
I shouldn't have included ws in front of cells, unless I had set some Worksheet to be ws first. It should have read lastrow = Cells(Rows.Count, "J").End(xlUp).Row -- Regards Roger Govier "Gaffnr" wrote in message ... othanks but i get an error message - run time error 424 object required debuuger highlights this line lastrow = ws.Cells(Rows.Count, "J").End(xlUp).Row -- Rob Gaffney "Roger Govier" wrote: Hi Try Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' Dim lastrow as long lastrow = ws.Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V" & lastrow) End Sub I don't think you needed that last Select line. If you do, then amend it to Range("J2:V" & lastrow).Select -- Regards Roger Govier "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
Hi Don
Amazing how "blind" I could be to those 2 Selects<bg -- Regards Roger Govier "Don Guillett" wrote in message ... two lines only. If col J does not have the row desired change col on first line lr=cells(rows.count,"J").end(xlup).row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
Now i get error message 438 obejct does not support this property or method
here is my full macro Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) End Sub -- Rob Gaffney "Don Guillett" wrote: two lines only. If col J does not have the row desired change col on first line lr=cells(rows.count,"J").end(xlup).row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
When all else fails, follow instructions
lr= Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Now i get error message 438 obejct does not support this property or method here is my full macro Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) End Sub -- Rob Gaffney "Don Guillett" wrote: two lines only. If col J does not have the row desired change col on first line lr=cells(rows.count,"J").end(xlup).row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#9
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
my oh my - stupid me. working perfectly now ive copied your full macro
tkls rob -- Rob Gaffney "Don Guillett" wrote: When all else fails, follow instructions lr= Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Now i get error message 438 obejct does not support this property or method here is my full macro Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) End Sub -- Rob Gaffney "Don Guillett" wrote: two lines only. If col J does not have the row desired change col on first line lr=cells(rows.count,"J").end(xlup).row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
|
#10
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Marco Editing Help
We're glad you got it to work -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... my oh my - stupid me. working perfectly now ive copied your full macro tkls rob -- Rob Gaffney "Don Guillett" wrote: When all else fails, follow instructions lr= Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Now i get error message 438 obejct does not support this property or method here is my full macro Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Cells(Rows.Count, "J").End(xlUp).Row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) End Sub -- Rob Gaffney "Don Guillett" wrote: two lines only. If col J does not have the row desired change col on first line lr=cells(rows.count,"J").end(xlup).row Range("J2:V2").AutoFill Destination:=Range("J2:V" & lr) -- Don Guillett Microsoft MVP Excel SalesAid Software "Gaffnr" wrote in message ... Hi, Very Simple. I dont know macro programming and use the record functionality. I used the record facility to create the following. I copied formulas in cells j2 - V2 down to row 14. This created the macro below i see when i do the 'step into' button. Sub Test() ' ' Test Macro ' Macro recorded 05/02/2008 by gaffneyr ' ' Range("J2:V2").Select Selection.AutoFill Destination:=Range("J2:V14") Range("J2:V14").Select End Sub Every time I run it, it goes to row 14 only. I want it to run to the last row of data whatever row the data goes down to, be it 14 or 33,213 etc. Can anybody edit the above to help me? Thanks so much rob -- Rob Gaffney |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Marco | Excel Discussion (Misc queries) | |||
| Marco Help | Excel Discussion (Misc queries) | |||
| I need some help with a Marco | Excel Discussion (Misc queries) | |||
| use marco to consolidate | Excel Worksheet Functions | |||
| Marco | New Users to Excel | |||
Hybrid Mode
