Whats wrong with this? MyWBAccRep.Sheets("Volumes").Cells.Find("latest").Copy.Offset(0,

S

Simon

MyWBAccRep.Sheets("Volumes").Cells.Find("latest").Copy.Offset(0,
1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

Thanks (I've put it all on one line).

It works as

MyWBAccRep.Sheets("Volumes").Cells.Find("latest").Copy

ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
S

Simon

MyWBAccRep.Sheets("Volumes").Cells.Find("latest").Copy
ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Click to expand...

In fact the above doesn't work either
 
D

Don Guillett

Modify this idea to suit
Sub findit()
Columns(3).Find("latest").Offset(, 1).Value = _
Columns(3).Find("latest").Value

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 1004 paste method of worksheet class failed 3
Something in this is causing a crash 2
conso macro 0
Help with condensing a lot of copying/pasting... 4
Run-time error '1004': Methor 'Range' of object '_Global' failed 3
What in the edited code below makes it crash????? 2
Run-time error '1004': 1
a few adjustment for a do-loop escape 4

Top