Macro for active row operations

[yabahut23]

Hello,

Could you please help me with one macro for excel? I think that it is easy, but I can't find the effective solution.

I have very big excel sheet where is many columns and I make similar operation many time per day, so I'm looking for the macro solution.

I need macro, which will on ACTIVE row delete value in column J, then change value in column N to "Done" and after that insert actual date and time (D.M.YY h:mm) in to column O.

I need to run only on active row. So If I have selected cell E8613, then macro will run mentioned operations only on row 8613. If I have selected cell D2562, than macro runs only on row 2562. etc.

Could you please help me with this?

Thanks a lot for all your advices.

 

[mumps]

try:

Sub ActiveRow()
    Dim x As Long
    x = ActiveCell.Row
    Range("J" & x).ClearContents
    Range("N" & x) = "Done"
    Range("O" & x) = Now()
End Sub

 

[yabahut23]

try:

Sub ActiveRow()
    Dim x As Long
    x = ActiveCell.Row
    Range("J" & x).ClearContents
    Range("N" & x) = "Done"
    Range("O" & x) = Now()
End Sub

Thanks a lot for your help.

 

[mumps]

You are very welcome.