Thread
:
How to copy and paste a partial row (i.e. not the EntireRow)
View Single Post
#
4
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
How to copy and paste a partial row (i.e. not the EntireRow)
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett