VBA: copy only cell value (without format) ?

[chrisignm]

Hey, I got the following code, but the problem is that it replaces the formatting of the cells:

Sub CopyIndustry1Weights()
Sheets("Tool").Range("L27").Copy Sheets("Tool").Range("I49, P49, I68, P68, I87, P87, I106, P106, I125, P125")
End Sub

Could somebody tell me how I can only copy+paste the value of cell L27 into the others?

Many thanks!

 

[mjbeam]

Range("I49").Value = Range("L27").Value
Range("P49").Value = Range("L27").Value
Range("I68").Value = Range("L27").Value
Range("P68").Value = Range("L27").Value
Range("I87").Value = Range("L27").Value
Range("P87").Value = Range("L27").Value
Range("I106").Value = Range("L27").Value
Range("P106").Value = Range("L27").Value
Range("I125").Value = Range("L27").Value
Range("P125").Value = Range("L27").Value

 

[Snakehips]

chrisignm,

If using Copy then need to Paste Special > Values

Sub CopyIndustry1Weights()
Sheets("Tool").Range("L27").Copy
Sheets("Tool").Range("I49, P49, I68, P68, I87, P87, I106, P106, I125, P125").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Or just ....

Sub CopyIndustry1Weights()


Sheets("Tool").Range("I49, P49, I68, P68, I87, P87, I106, P106, I125, P125") = Sheets("Tool").Range("L27")


End Sub

Hope that helps.

 

[chrisignm]

Thanks to you both, I got it working