Posted to microsoft.public.excel.programming

Christian[_8_] Christian[_8_] is offline

external usenet poster

Posts: 17

Pasting rows below the last row with data?

Hi flurry

try the following

LCopyToRow = Application.CountIf(Worksheets("Diary").Range("A:A "),
"<")

'Select row in January or February to copy
Rows(LSearchRow).Copy Destination:=Worksheets("Diary").Rows(LCopyToRow
+ 1)

'Move counter to next row
LCopyToRow = LCopyToRow + 1

Cheers Christian

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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
Pasting filtered rows	Annie	Excel Discussion (Misc queries)	1	October 3rd 06 07:47 PM
Pasting on Filtered Data Sheets without pasting onto hidden cells	CCSMCA	Excel Discussion (Misc queries)	1	August 28th 05 01:22 PM
Pasting in Rows?	FattyLumpkin	Excel Discussion (Misc queries)	6	July 24th 05 04:56 PM
Controlling odd even rows when pasting data	[email protected]	Excel Discussion (Misc queries)	1	February 23rd 05 07:11 PM
Pasting formulas to different rows	herbertgroover	Excel Worksheet Functions	1	January 20th 05 06:29 PM

All times are GMT +1. The time now is 12:34 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us