On 1 Jun., 16:41, Gord Dibben <gorddibbATshawDOTca wrote:
You must have Option Explicit at top of module.

Add a line after *Public Sub DeleteRowOnCell()

Dim coltocheck as Range

Aplogies for that.

Gord

On Mon, 31 May 2010 20:54:02 -0700 (PDT), andreashermle



wrote:
On May 31, 6:27*pm, Gord Dibben <gorddibbATshawDOTca wrote:
Public Sub DeleteRowOnCell()

* * Set coltocheck = Columns(3)

* * 'if you want user-selectable column use inputbox

* *'Set coltocheck = Application.InputBox(prompt:= _
* * * * * ' *"Select A Column", Type:=8)

* * coltocheck.SpecialCells(xlCellTypeBlanks).EntireRo w.Delete

End Sub

Gord Dibben *MS Excel MVP

On Mon, 31 May 2010 08:52:37 -0700 (PDT), andreashermle

wrote:
Dear Experts:

I got a multi-column, mulit-row table with numerous data records. Some
records do not have any entry in Column 'C'.

I now would like to be able via a macro to delete all records that do
not have any entry in Column C.

How is this achieved?

Thank you very much in advance for your great help.

Regards, Andreas- Hide quoted text -

- Show quoted text -

Hi Gord,

thank you very much for your swift help. I am afraid to tell you that
I am getting a compile error telling me that the variable 'coltocheck'
is not defined.

Regards, Andreas- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

ok, thank you very much for your terrific support