i need a vba script that will select any cell interiorcolor = 36
and then copy special paste value?

Help is a lousy subject line and your explanation leaves a lot to mind read
over. Could you try again.

--
Don Guillett
SalesAid Software

"uobt" wrote in message
oups.com...
i need a vba script that will select any cell interiorcolor = 36
and then copy special paste value?

UOBT,

Try something like this . . .

Sub CopyData()
Dim Rng As Range
For Each Rng In Range("A1", "A10")
If Rng.Interior.ColorIndex = 36 Then
Rng.Copy
Rng.Offset(0, 2).PasteSpecial Paste:=xlPasteValues
End If
Next Rng
End Sub

You will need to change the copy destination to fit your needs.

----
Regards,
John Mansfield
http://www.pdbook.com


"uobt" wrote:

i need a vba script that will select any cell interiorcolor = 36
and then copy special paste value?

or

for each c in selection
if c.interior.colorindex=36 then c.formula = c.value
next c

--
Don Guillett
SalesAid Software

"John Mansfield" wrote in message
...
UOBT,

Try something like this . . .

Sub CopyData()
Dim Rng As Range
For Each Rng In Range("A1", "A10")
If Rng.Interior.ColorIndex = 36 Then
Rng.Copy
Rng.Offset(0, 2).PasteSpecial Paste:=xlPasteValues
End If
Next Rng
End Sub

You will need to change the copy destination to fit your needs.

----
Regards,
John Mansfield
http://www.pdbook.com


"uobt" wrote:

i need a vba script that will select any cell interiorcolor = 36
and then copy special paste value?