[Howard]

Isn't there a plain jane 'one liner' to past special values?
This works to the .Resize(1, 2).Copy then fails.

Thanks.
Howard

For Each c In ActiveSheet.Range("B10", ActiveSheet.Range("B10").End(xlToRight))
If c = FiMo Then
c.Offset(7, 0).Resize(1, 2).Copy Range("A7").PasteSpecial(xlPasteValues)
Exit Sub
End If
Next

[isabelle]

hi Howard,

Range("A7:B7").Value = Range(c.Offset(7, 0).Resize(1, 2).Address).Value

isabelle

Le 2013-09-26 21:49, Howard a écrit :

Isn't there a plain jane 'one liner' to past special values?
This works to the .Resize(1, 2).Copy then fails.

Thanks.
Howard

For Each c In ActiveSheet.Range("B10", ActiveSheet.Range("B10").End(xlToRight))
If c = FiMo Then
c.Offset(7, 0).Resize(1, 2).Copy Range("A7").PasteSpecial(xlPasteValues)
Exit Sub
End If
Next

[GS[_2_]]

Isn't there a plain jane 'one liner' to past special values?
This works to the .Resize(1, 2).Copy then fails.

Thanks.
Howard

For Each c In ActiveSheet.Range("B10",
ActiveSheet.Range("B10").End(xlToRight)) If c = FiMo Then
c.Offset(7, 0).Resize(1, 2).Copy
Range("A7").PasteSpecial(xlPasteValues) Exit Sub
End If
Next

Perhaps...

Range("A7").Resize(1, 2) = c.Offset(7, 0).Resize(1, 2)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

[Howard]

And I did make this work for me.

But I prefer isabell and Garry's shorter ones.

Thanks to both of you.

Regards,
Howard

For Each c In ActiveSheet.Range("B10", ActiveSheet.Range("B10").End(xlToRight))
If c = FiMo Then
c.Offset(7, 0).Resize(1, 2).Copy
Sheets("Sheet1").Range("A7").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If
Next