For currentRow = firstRow to lastRow
If cells(currentRow, 1).value >1 then
Rows(currentRow).copy
Rows(currentRow+1).select
Selection.paste
lastrow = lastrow +1
end if
Next currentRow
Rajesh - you will need to dim currentRow, firstRow and lastRow as
integers or longs.
You'll also need to assign values to firstrow and lastrow
Unless you have an equation in Column A or something that changes its
value based upon what row it's in - this will be a never-ending loop.
-Damion
On Jun 3, 7:20 am, Rajesh D <rajesh...@gmail.com> wrote:
> Dear All
>
> Please help on below
>
> I want macro in worksheet like *If range a1 value is >1 then entire row
> (with formulas in row)should be copied to next row until column cell value
> = 0*
>
> * *
>
> Thanks
>
> Rajesh
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
