Delete Row
 

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.

Delete Row
 

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.

Delete Row
 

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.

Delete Row
 

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

Delete Row
 

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 -

Delete Row
 

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