Hello
On sheet1,column H is numbered 1 to 16000 irregularly. i want to copy
multiple rows entirly to sheet2 when i select number of rows at column H (4
example: 15 ,12600,358,.... ). my prior question locate at 10/11/2008(row
selecting).
Rick respond me with a well macro for only 1 row. at present i need to
multiple row because i have many large matrix.
Would you please guide me?
best regards

post the macro you already have to see if somebody can ammend it.
susan


On Oct 22, 9:28*am, climate wrote:
Hello
On sheet1,column H is numbered *1 to 16000 irregularly. i want to copy
multiple rows entirly to sheet2 when i select number of rows at column H (4
example: 15 ,12600,358,.... ). my prior question locate at 10/11/2008(row
selecting).
Rick respond me with a well macro for only 1 row. at present *i need to
multiple row because i have many large matrix.
Would you please guide me?
best regards

Hi Susan
This is macro that Rick send me:
Sub CopyRow()
Dim Answer As String
Dim LastRowOnSheet2 As Long
With Worksheets("Sheet2")
LastRowOnSheet2 = .Cells(.Rows.Count, "A").End(xlUp).Row
If LastRowOnSheet2 = 1 And .Cells(1, "A").Value = "" Then
LastRowOnSheet2 = 0
End If
Answer = InputBox("Find which number in Row H and copy it?")
Worksheets("Sheet1").Columns("H").Find(Answer).Ent ireRow. _
Copy .Range("A" & (LastRowOnSheet2 + 1))
End With
End Sub


"Susan" wrote:

post the macro you already have to see if somebody can ammend it.
susan


On Oct 22, 9:28 am, climate wrote:
Hello
On sheet1,column H is numbered 1 to 16000 irregularly. i want to copy
multiple rows entirly to sheet2 when i select number of rows at column H (4
example: 15 ,12600,358,.... ). my prior question locate at 10/11/2008(row
selecting).
Rick respond me with a well macro for only 1 row. at present i need to
multiple row because i have many large matrix.
Would you please guide me?
best regards

hi climate......... i ammended the macro that rick sent you so that it
asks for the row number, not the number to look for in column H. i
don't know how to make it work for multiple rows, but you could redo
it several times.......... sorry i can only get you halfway!
'----------------------------------------
Sub CopyRow()
Dim Answer As String
Dim LastRowOnSheet2 As Long
Dim LAnswer As Long

With Worksheets("Sheet2")
LastRowOnSheet2 = .Cells(.Rows.Count, "A").End(xlUp).Row
If LastRowOnSheet2 = 1 And .Cells(1, "A").Value = "" Then
LastRowOnSheet2 = 0
End If
Answer = InputBox("Find which row number and copy it?")

LAnswer = Answer

Worksheets("Sheet1").Range("A" & LAnswer).EntireRow. _
Copy .Range("A" & (LastRowOnSheet2 + 1))

End With
End Sub
'------------------------------------------------------
good luck!
:)
susan



On Oct 23, 2:07*am, climate wrote:
Hi Susan
This is macro that Rick send me:
Sub CopyRow()
* Dim Answer As String
* Dim LastRowOnSheet2 As Long
* With Worksheets("Sheet2")
* * LastRowOnSheet2 = .Cells(.Rows.Count, "A").End(xlUp).Row
* * If LastRowOnSheet2 = 1 And .Cells(1, "A").Value = "" Then
* * * LastRowOnSheet2 = 0
* * End If
* * Answer = InputBox("Find which number in Row H and copy it?")
* * Worksheets("Sheet1").Columns("H").Find(Answer).Ent ireRow. _
* * * * * * * * * * Copy .Range("A" & (LastRowOnSheet2 + 1))
* End With
End Sub



"Susan" wrote:
post the macro you already have to see if somebody can ammend it.
susan

On Oct 22, 9:28 am, climate wrote:
Hello
On sheet1,column H is numbered *1 to 16000 irregularly. i want to copy
multiple rows entirly to sheet2 when i select number of rows at column H (4
example: 15 ,12600,358,.... ). my prior question locate at 10/11/2008(row
selecting).
Rick respond me with a well macro for only 1 row. at present *i need to
multiple row because i have many large matrix.
Would you please guide me?
best regards- Hide quoted text -

- Show quoted text -