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

  • Thread starter Thread starter Simon
  • Start date Start date
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
 
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
 
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
Problem using Copy:=Destionation across different workbooks 3
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

Back
Top