Should be easy...what's missing?
Using c.Select resulted in a run-time error '1004 Select method of range
class failed
"Rick Rothstein" wrote:
Address is a String value... you can't select a String. Try just c.Select
and see if that works for you.
--
Rick (MVP - Excel)
"MovingBeyondtheRecordButton"
.com wrote in message
...
Code doesn't work due to error on line: c.Address.Select
With Worksheets("Sheet2").Range("G2:G76")
Set c = .Find(F.Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Worksheets("Sheet3").Range("Q2:V2").Select
Application.CutCopyMode = False
Selection.Copy
c.Address.Select
ActiveCell.Offset(0, -6).Range("A1").Select
ActiveSheet.Paste
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With
I want to..
1) find where F.Value = the Value of a cell in
Worksheets("Sheet2").Range("G2:G76")
2) paste values from cells Worksheets("Sheet3").Range("Q2:V2") into
columns
A through F (in the same row as the cell that was just found in .Find)
.
|