Delete line in a Table when the the cell is empty

[Romano_odK]

Good morning,

Is it possible to delete a whole line with VBA when in my case in column W the values in the cells starting from line 7 until the end are empty with the push of a button?

Thank you for your time?

Romano

 

[Romano_odK]

Try the below... ( @bebo021999 ) can confirm also if correct....

Sub Del_Blank()
  Dim Rng As Range
  On Error Resume Next
  Set Rng = Range("Table_Query_from_A100[[[COLOR=rgb(226, 80, 65)]Column15[/COLOR]]]").SpecialCells(xlCellTypeBlanks) 'Change the text in red to your column header name...e.g. Column15 to whatever your header name is
  On Error GoTo 0
  If Not Rng Is Nothing Then
    Rng.Delete Shift:=xlUp
  End If
End Sub

So like this

Sub Del_Blank()
Dim Rng As Range
  On Error Resume Next
  Set Rng = Range("Table_Query_from_A100[[[COLOR=rgb(226, 80, 65)]Nieuwe Ikp  €[/COLOR]]]").SpecialCells(xlCellTypeBlanks) 'Change the text in red to your column header name...e.g. Column15 to whatever your header name is
  On Error GoTo 0
  If Not Rng Is Nothing Then
    Rng.Delete Shift:=xlUp
  End If
End Sub

If this is correct then nothing happens unfortunately.

 

[Jimmypop]

Sub Del_Blank() Dim Rng As Range On Error Resume Next Set Rng = Range("Table_Query_from_A100[[Nieuwe Ikp €]]").SpecialCells(xlCellTypeBlanks) 'Change the text in red to your column header name...e.g. Column15 to whatever your header name is On Error GoTo 0 If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp End If End Sub

Use this...

Sub Del_Blank()
Dim Rng As Range
  On Error Resume Next
  Set Rng = Range("Table_Query_from_A100[[Nieuwe Ikp  €]]").SpecialCells(xlCellTypeBlanks) 'Change the text in red to your column header name...e.g. Column15 to whatever your header name is
  On Error GoTo 0
  If Not Rng Is Nothing Then
    Rng.Delete Shift:=xlUp
  End If
End Sub

 

[Romano_odK]

Use this...

Sub Del_Blank()
Dim Rng As Range
  On Error Resume Next
  Set Rng = Range("Table_Query_from_A100[[Nieuwe Ikp  €]]").SpecialCells(xlCellTypeBlanks) 'Change the text in red to your column header name...e.g. Column15 to whatever your header name is
  On Error GoTo 0
  If Not Rng Is Nothing Then
    Rng.Delete Shift:=xlUp
  End If
End Sub

It works, thank you for your efforts. Have a nice day.

 

[Jimmypop]

Glad we could help.