I want to be able to run a macro which will delete the row selected if column
A is blank. If it is not blank then message box "Unable to delete this row!"
I've looked through code already available but can't find anything that does
this.
Could someone please help.

Hi Karen,

Try:

'=============
Public Sub Tester()
With ActiveCell.EntireRow
If IsEmpty(.Cells(1)) Then
.Delete
End If
End With
End Sub
'<<=============


---
Regards,
Norman



"Karen McKenzie" wrote in message
...
I want to be able to run a macro which will delete the row selected if
column
A is blank. If it is not blank then message box "Unable to delete this
row!"
I've looked through code already available but can't find anything that
does
this.
Could someone please help.

Hi
If Application.Worksheetfunctions.Counta(Range("A:A") ) = 0 then
Selection.EntireRow.Delete
Else
Msgbox "Unable to Delete this Row!"
End if

If your column A contains a formula which returns empty text "" then
that will also be counted, even though the cell looks empty, so just
be careful with that.
regards
Paul

On Apr 18, 9:36 am, Karen McKenzie
wrote:
I want to be able to run a macro which will delete the row selected if column
A is blank. If it is not blank then message box "Unable to delete this row!"
I've looked through code already available but can't find anything that does
this.
Could someone please help.

Hi Karen,

I forgot the MsgBox!

'=============
Public Sub Tester()
With ActiveCell.EntireRow
If IsEmpty(.Cells(1)) Then
.Delete
Else
MsgBox Prompt:="Unable to delete this row!"
End If
End With
End Sub
'<<=============


---
Regards,
Norman

On Apr 18, 9:48 am, wrote:
Hi
If Application.Worksheetfunctions.Counta(Range("A:A") ) = 0 then
Selection.EntireRow.Delete
Else
Msgbox "Unable to Delete this Row!"
End if

If your column A contains a formula which returns empty text "" then
that will also be counted, even though the cell looks empty, so just
be careful with that.
regards
Paul
Hi
I read your problem slightly differently to Norman Jones, but his
interpretation is probably correct. My response assumes you want to
delete when ALL of column A is empty. His assumes you want to delete
when the cell in column A for that row is empty.
regardfs
Paul


On Apr 18, 9:36 am, Karen McKenzie



wrote:
I want to be able to run a macro which will delete the row selected if column
A is blank. If it is not blank then message box "Unable to delete this row!"
I've looked through code already available but can't find anything that does
this.
Could someone please help.- Hide quoted text -

- Show quoted text -

works perfectly - Thanks!

"Norman Jones" wrote:

Hi Karen,

I forgot the MsgBox!

'=============
Public Sub Tester()
With ActiveCell.EntireRow
If IsEmpty(.Cells(1)) Then
.Delete
Else
MsgBox Prompt:="Unable to delete this row!"
End If
End With
End Sub
'<<=============


---
Regards,
Norman