Delete row based on whether cell in alternate column in row has data

[essjayhaitch]

Hi There

So I need a code for deleting the single row where the active selected cell is, but only if the corresponding cell in column AQ of that row has not got data in it.

eg.

I've selected F6 and only want to delete that row if AQ6 is empty.

The active cell selection is dynamic so could be any row number or column.

Ultimately, what I'm trying to achieve is for certain rows never to be allowed to be deleted but I can't use sheet protection for other reasons so I am using data in column AQ (which will be hidden) as the reference.

Thanks in advance

 

[LazyBug]

Hello, @essjayhaitch!
Try this:

Sub DelRow()
    With ActiveSheet
        If Selection.Areas(1).Rows.Count > 1 Then Exit Sub
        If Cells(Selection.Row, 43) = "" Then Selection.EntireRow.Delete
    End With
End Sub

 

[essjayhaitch]

Hello, @essjayhaitch!
Try this:

Sub DelRow()
    With ActiveSheet
        If Selection.Areas(1).Rows.Count > 1 Then Exit Sub
        If Cells(Selection.Row, 43) = "" Then Selection.EntireRow.Delete
    End With
End Sub

Awesome

Appreciate it, that's the business!!!

That Cells(Selection.Row) bit will come in handy for a few other things too.

 

[LazyBug]

Glad to help & thanks for the feedback!