LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 81
Default Append Below

Thanks Joel, that works fine
donwb
"joel" wrote in message
...

You probably has a macro in your personnel.xls file that got lost. This
code will work



Sub AppendBelow(MyRange As Range, MyLine As String)

MyColumn = MyRange.Column

Set LastRow = Sheets(MyRange.Parent.Name).Cells(Rows.Count,
MyColumn).End(xlUp)
LastRow.Offset(1, 0) = MyLine

End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=154400

Microsoft Office Help



 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do you append one row to another? BobVanS Excel Worksheet Functions 3 August 30th 07 02:04 PM
What can I append David Excel Programming 6 July 19th 05 10:03 PM
how to know which row to append for the last row tango Excel Programming 2 October 16th 04 02:23 PM
Qn: How to Append??? Michael Vaughan Excel Programming 1 September 19th 04 05:32 PM
append row Joe Excel Programming 4 July 30th 04 04:47 PM


All times are GMT +1. The time now is 07:43 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"