Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy and paste a partial row (i.e. not the EntireRow)
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
.Copy partial value | Excel Worksheet Functions | |||
MACRO: Selecting "Cancel" from a drop down to copy and paste entirerow to another sheet | Excel Discussion (Misc queries) | |||
MACRO: Selecting "Cancel" from a drop down to copy and paste entirerow to another sheet | Excel Worksheet Functions | |||
Partial copy | Excel Programming | |||
find specific data in row and select and copy entirerow | Excel Programming |