Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy multiple rows
Hi
I have following code for row selecting based on number of column G and copy to sheet (winter), but i have 2 problem. 1) for example: when i input 38 to box, row with number of 13856 be selected. 2) i need to select multiple row for copy to sheet1 not one row. Sub CopyRow() Dim Answer As String Dim LastRowOnwinter As Long With Worksheets("sheet1") LastRowOnwinter = .Cells(.Rows.Count, "A").End(xlUp).Row If LastRowOnwinter = 1 And .Cells(1, "A").Value = "" Then LastRowOnwinter = 0 End If Answer = InputBox("Find which number in row G and copy it?") Worksheets("winter").Columns("G").Find(Answer).Ent ireRow. _ Copy .Range("A" & (LastRowOnwinter + 1)) End With End Sub Would you please guide me? regards |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy rows to multiple sheets | Excel Discussion (Misc queries) | |||
COPY MULTIPLE ROWS INSERTED BELOW EACH | Excel Discussion (Misc queries) | |||
Copy Multiple Rows Excel | Excel Discussion (Misc queries) | |||
Copy Multiple Rows into One Cell | Excel Discussion (Misc queries) | |||
copy multiple rows from a database | Excel Programming |