You are actually very close. This will copy the entire row for you. My
question is I am a little unclear exactly where you want it pasted. On this
sheet? First Blank row? Column E is populated to the bottom?
Option Explicit
Sub findmax()
Dim c As Range
Dim x As Double
x = Application.WorksheetFunction.Max(Range("E:E"))
Set c = Range("E:E").Find(x, LookIn:=xlValues
If Not c Is Nothing Then
c.entirerow.copy _
Destination:=cells(rows.count, "E").end(xlup).offset(1,0).entirerow
End If
End Sub
On Nov 30, 12:33 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com> wrote:
> You are actually very close. This will copy the entire row for you. My
> question is I am a little unclear exactly where you want it pasted. On this
[quoted text clipped - 52 lines]
>
> - Show quoted text -
Hi Jim..
Thanks! your output was the one exactly what I wanted. I just added
")" at the end of this line
Set c = Range("E:E").Find(x, LookIn:=xlValues
I would like to paste c.entirerow values in the first blank row of
Sheet1 in another workbook, How would the following line be modified?
c.entirerow.copy _
Destination:=cells(rows.count, "E").end(xlup).offset(1,0).entirerow
I will have
Windows("test.xls").Activate
Sheets("Sheet1").select
c.entirerow,copy _
Destination:= ???????????????????????
Please let me know.. Thanks
Jim Thomlinson - 30 Nov 2007 23:05 GMT
There is no need to select...
c.EntireRow.Copy _
Destination:=Workbooks("test.xls").Sheets("Sheet1").Cells(Rows.Count, _
"E").End(xlUp).Offset(1, 0).EntireRow

Signature
HTH...
Jim Thomlinson
> On Nov 30, 12:33 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
> This-.com> wrote:
[quoted text clipped - 74 lines]
>
> Please let me know.. Thanks