Rows(arguments)???  
Author Message
OranL





PostPosted: Sun Jun 13 05:16:55 CDT 2004 Top

Excel Programming >> Rows(arguments)???

Hey all

another question

how do I use the Lastrow variable in the Rows argument???

Dim Lastrow As Long
With ActiveSheet
Lastrow = .UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1

Rows("1:Lastrow").Select
Selection.Copy


Thank

--
Message posted from http://www.hide-link.com/

Excel217  
 
 
Leo





PostPosted: Sun Jun 13 05:16:55 CDT 2004 Top

Excel Programming >> Rows(arguments)??? Hi

Rows("1:" & Lastrow).Select

--
Best Regards
Leo Heuser

Followup to newsgroup only please.



> Hey all
>
> another question
>
> how do I use the Lastrow variable in the Rows argument???
>
> Dim Lastrow As Long
> With ActiveSheet
> Lastrow = .UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1
>
> Rows("1:Lastrow").Select
> Selection.Copy
>
>
> Thanks
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>


 
 
Norman





PostPosted: Sun Jun 13 05:16:21 CDT 2004 Top

Excel Programming >> Rows(arguments)??? Hi Dabith ,

Change:
Rows("1:Lastrow")
to:
Rows("1:" & LastRow).

Also, you are missing an End With and there is no need to select your range.
Therefore, your code could read :

With ActiveSheet
LastRow = (.UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1)
End With
Rows("1:" & LastRow).Copy

---
Regards,
Norman





> Hey all
>
> another question
>
> how do I use the Lastrow variable in the Rows argument???
>
> Dim Lastrow As Long
> With ActiveSheet
> Lastrow = .UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1
>
> Rows("1:Lastrow").Select
> Selection.Copy
>
>
> Thanks
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>