mark cell as completed...?

[andrew9993]

Hey, does anyone know,
, what I want to do is mark the cell as completed ontop of what I already have in my macro
maybe strikethrough the font...or something similar just so I know I've completed it
(I want to add it into my current macro so I only have to click the one button)...thanks

this is what i have in my macro so far:

Sub MoveToSameCellOnSheet2()

Sheets(2).Range(ActiveCell.Address).Value = ActiveCell.Value

End Sub

 

[VoG]

Try

Sub MoveToSameCellOnSheet2()
With Sheets(2).Range(ActiveCell.Address)
    .Value = ActiveCell.Value
    .Font.Strikethrough = True
End With
End Sub

 

[Peter_SSs]

Like this?

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> MoveToSameCellOnSheet2()<br>    <SPAN style="color:#00007F">With</SPAN> Sheets(2).Range(ActiveCell.Address)<br>        .Value = ActiveCell.Value<br>        .Font.Strikethrough = <SPAN style="color:#00007F">True</SPAN><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[sykes]

...............or you could use background colour:

Sub MoveToSameCellOnSheet2()
    With Sheets(2).Range(ActiveCell.Address)
        .Value = ActiveCell.Value
        .Interior.Color = vbGreen
    End With
End Sub

 

[andrew9993]

those macros change the moved cell, is there anyway to change the original cell

(sheet#1) ....

i select a cell on sheet#1 (this is the cell I need to strikeout / mark as completed)
and click my macro, which basically copies my values into sheet#2)

appreciate your help

 

[VoG]

Try

Sub MoveToSameCellOnSheet2()
Sheets(2).Range(ActiveCell.Address).Value = ActiveCell.Value
ActiveCell.Font.Strikethrough = True
End Sub

 

[sykes]

Sub MoveToSameCellOnSheet2()
    With Sheets(2).Range(ActiveCell.Address)
        .Value = ActiveCell.Value
    End With
Activecell.Interior.Color = vbGreen
End Sub