Sorry, Putta, but I need to correct my last mail:

In order to be get the "next row" in "Output", first go to that
sheet...

...
Dim lDone
...
'first find the new row in "Output"
Sheets("Output").Select
nRow = 1
lDone = False
While lDone = False
  If Len(Cells(nRow, 1).Value) < 1 Then
    lDone = True
  Else
    nRow = nRow + 1
  End If
Wend
...

Greetings

Paul Willekens

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
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 6,800 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

To unsubscribe, reply using "remove me" as the subject.

Reply via email to