About Us

Don Guillett

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"CROD" wrote in message
...
Don,

Thanks!!.....it runs great (I had placed dots in several locations but
could
not get the correct order).

Thanks again for all your help!,

Chris

"Don Guillett" wrote:

Sorry, I forgot to include the dot for the WITH

.Range(cells(c.row,"d"),cells(c.row,"z")).copy
or
.Range(.cells(c.row,"d"),.cells(c.row,"z")).copy

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"CROD" wrote in message
...
Don,

Thanks for the response!

I've replace "c.EntireRow" with your script
"Range(cells(c.row,"d"),cells(c.row,"z")).copy and get a "Run-time
error'1004". Your further assistance is greatly appreciated!

"Don Guillett" wrote:

Range(cells(c.row,"d"),cells(c.row,"z")).copy

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"CROD" wrote in message
...
I am looking to copy only a segement of a row from a primary database
to
a
summary sheet. Currently, my script below copies the EntireRow
(c.EntireRow.Copy_). Is there a way to set a range such that I only
copy
over...say "d to Z" versus the EntireRow?

Sub Rectangle2_Click()

CodeName = InputBox("Enter Project Code",
Range("a1:a3").Find(Cells(1,
1)).Offset(rowOffset:=2, columnOffset:=1).Value)

Range("a1:a5").Find(Cells(1, 1)).Offset(rowOffset:=1,
columnOffset:=2).Value
= CodeName

Worksheets("Extract").Select
Worksheets("Extract").Range("a8:z2000").ClearConte nts

RowCount = 8

With Worksheets("Database").Range("a1:z2000")
Set c = .Find(Cells(3, 2))

If Not c Is Nothing Then
firstAddress = c.Address
Do

c.EntireRow.Copy _
Destination:=Worksheets("APTS Extract").Rows(RowCount)
RowCount = RowCount + 1

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address < firstAddress
End If

End With

End Sub

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
.Copy partial value	Bishop	Excel Worksheet Functions	1	August 11th 09 07:20 PM
MACRO: Selecting "Cancel" from a drop down to copy and paste entirerow to another sheet	Nicole Hannington	Excel Discussion (Misc queries)	1	July 20th 09 07:11 PM
MACRO: Selecting "Cancel" from a drop down to copy and paste entirerow to another sheet	Nicole Hannington	Excel Worksheet Functions	1	July 20th 09 06:51 PM
Partial copy	DP7	Excel Programming	2	February 9th 07 04:42 PM
find specific data in row and select and copy entirerow	Junior728	Excel Programming	3	August 8th 05 01:31 PM

Menu

About Us