Look in the vba help index for FINDNEXT. There is a good example. After the
find you will want to copy to the next available row in the destination
sheet. You can use something like:
lastrow=cells(rows.count, "a").end(xlup).row+1
c.entirerow.copy cells(lastrow,"a")
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
<(E-Mail Removed)> wrote in message
news:0ab100b1-5b27-4438-92c2-(E-Mail Removed)...
> Here's a new one...
>
> I have an accounting workbook with some hidden sheets based on months.
> All month sheets have a Fixed heading with some accounting information
> below it and further down the sheet, a Unpaid From Last Month heading
> with some information. What I need is that if there are lines under
> the Fixed heading that have negative balances, I want that entire row
> inserted under the Unpaid From Last Month.
>
> For example...
>
> within the "November" worksheet...
>
> A B C
> D ... L
> 9 Fixed
> 10 Bill Frequency
> Amount Yet To Pay
> 11 ( blank
> cells )
> 12 Account
> 1
> (4100.00)
> 13 Account
> 2
> 3300.00
> 14 Account
> 3
> (4333.00)
> 15
> 16
> 17
> 18
> 19
> 20
> 21
> 22
> 23 Unpaid From Last Month
> 24 ( blank
> cells )
> 25
>
>
>
> On "December"...
>
> Rows 12 and 14 should be copied from "November" and placed in
> "December" under Unpaid From Last Month.
>
> The problem I'm having is that for "December" 'Unpaid From Last Month'
> might start on row 21 or 20. And for any given month, there might be
> a lot more accounts than accoutn 1, 2, or 3.
>
> So basically, the user clicks a button to create a new month sheet
> will be placed at the very end. I need the macro to access the
> previous sheet (which should be the previous month), search the rows
> only under the "Fixed" heading (which could be any number of rows) and
> find a negative number in column L. If there is a negative number,
> copy that entire row and place it on the new sheet under the heading
> "Unpaid From Last Month".
>
> I'm envisioning loops, but I'm still very new to Excel VBA. Any help
> would be greatly appreciated.