About Us

reggie

Thanks everyone for all your Help! It works great

"Tom Ogilvy" wrote:

for posting you might use

Sub xCopy()
Sheets("Sheet1").Range("A13").Copy _
Sheets("Sheet2").Range("A1:H100") _
.Find(Empty, LookIn:=xlValues)
End Sub

Excellent approach except it misses A1 initially. you might do

Sub xCopy()
Dim r as Range
set r = Sheets("sheet2").Range("A1:H100")
Sheets("Sheet1").Range("A13").Copy _
r.Find(Empty, After:=r(r.count), LookIn:=xlValues)
End Sub

--
Regards,
Tom Ogilvy

"excelent" wrote:

hmm only 3 lines in this macro (formating goes crazy here)

Sub xCopy()
Sheets("Sheet1").Range("A13").Copy
Sheets("Sheet2").Range("A1:H100").Find(Empty, LookIn:=xlValues)
End Sub

"excelent" skrev:

Sub xCopy()
Sheets("Sheet1").Range("A13").Copy
Sheets("Sheet2").Range("A1:H100").Find(Empty, LookIn:=xlValues)
End Sub

"Reggie" skrev:

I have created a formula that generates about 1000 numbers and i need them to
filled into empty cells on another worksheet. For example:

The number is generated in sheet1 cell A13
I need that number to be placed in sheet 2 in the first empty cell, range
from A1 to H100

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete Rows with Empty Cells with empty column 1	Scott	Excel Programming	5	October 2nd 06 11:57 PM
Excel - Autom. Filter "Empty / Non Empty cells" should come first	Rom	Excel Discussion (Misc queries)	0	August 10th 05 04:32 PM
How can I convert empty strings to empty cells?	Shane	Excel Discussion (Misc queries)	2	July 19th 05 12:10 PM
macro to colour empty cells (cells not recognized as empty)	Gerben	Excel Programming	5	June 30th 05 03:29 PM
Can blank cells created using empty Double-Quotes not be empty??	JohnI in Brisbane	Excel Programming	6	September 7th 03 11:22 PM

Menu

About Us