M
Mel
I have a spreadsheet with a number of tabs. From one tab (severance)
I want to copy values in cells A9 to F38 and paste into tab LSAC cells
A9 to F38. I have so far written but need it to do this
automatically. Also,
I have conditional formatting that I want to retain. Not sure how to
do both (past values and retain conditional format on cells I am
pasting to. (cells E9 to 38 have an indicator, if it is greater than
1, changes font color on row to red).
Sub paste_valueClick()
'
' paste_valueClick Macro
' Macro recorded 05-01-2011 by pilgrimm
'
Sheets("SEVERANCE").Select
Range("A9:F38").Select
Selection.Copy
Sheets("Long Service Awards Calc (2)").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A9").Select
End Sub
thx
Mel
I want to copy values in cells A9 to F38 and paste into tab LSAC cells
A9 to F38. I have so far written but need it to do this
automatically. Also,
I have conditional formatting that I want to retain. Not sure how to
do both (past values and retain conditional format on cells I am
pasting to. (cells E9 to 38 have an indicator, if it is greater than
1, changes font color on row to red).
Sub paste_valueClick()
'
' paste_valueClick Macro
' Macro recorded 05-01-2011 by pilgrimm
'
Sheets("SEVERANCE").Select
Range("A9:F38").Select
Selection.Copy
Sheets("Long Service Awards Calc (2)").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A9").Select
End Sub
thx
Mel