macro to delete cell value above row that is deleted

[Savuti]

Hello, when a row is deleted on the spreadsheet I need the value in the cell in column "D" immediately above the deleted row to be deleted.

Is this possible
Thanks

 

[Savuti]

Can someone tell me if what I am asking is even possible. I have tried a few methods but end up deleting a whole bunch of things that I don't want to. This is the last thing I need for the spreadsheet - help is much appreciated.

Thanks

 

[Savuti]

Please can someone help with this - as I said, is it even possible to do this. If not I will have to try something else.

Thanks

 

[FormR]

This will still clear the cell in column D if the entire rows content is cleared as well as deleted - maybe it is close enough for what you are trying to achieve.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i as Long
If Target.Address = Target.EntireRow.Address Then
    Application.EnableEvents = False
        For i = 1 To Target.Areas.Count
            If Target.Areas(i).Row > 1 Then
                If Evaluate("=COUNTA(" & Target.Areas(i).Address & ")") = 0 Then
                    Range("D" & Target.Areas(i).Row - 1).ClearContents
                End If
            End If
        Next i
    Application.EnableEvents = True
End If
End Sub

 

[FormR]

Please can someone help with this - as I said, is it even possible to do this. If not I will have to try something else.

BTW - You should try to be a little more patient, it's a little off putting for some people if you keep bumping your threads every hour/half hour or so.

 

[Savuti]

FormR, thank you for the response, the macro works great. Point taken with the patience - got a bit too eager with the project.

 

[FormR]

the macro works great

Great, thanks for letting us know

Point taken with the patience - got a bit too eager with the project.

I completely understand!