Excel macro variable to delete rows

[JPGargoyle]

Who can help me with a piece of VB code which provides for:

Removing a row (in excel) in a column where there are empty cells. So I want all rows in a tab of the empty cells in a specific column.

So in column B, come on, for example, B6 and B35 or empty cells. I would like the corresponding delete rows.

Who can help me ??

[leight]

Here is a piece of code that does what you want.

  Public Sub pfDelRows () 

  totalrows = ActiveSheet.UsedRange.Rows.Count 

  For Row = 1 To totalrows 
      If Cells (Row, 2). Value = vbEmpty Then 
          Rows (Row). Delete 
      End If 
  Next Row 

  End Sub

The macro assumes that the actions to be carried out on a worksheet that is currently active. The column where the values are empty in this case, column 2, which you can customize to your own liking.

[SergioSantos]

Hi,

Run this in macro :

Sub DeleteBlankRows1 () 'deletes the entire row within the selection if the ENTIRE row contains no data. 'We use Long in case they have over 32.767 rows selected. Dim i As Long 'We turn off calculation and screen updating to speed up the macro. With Application. Calculation = xlCalculationManual. Screen Updating = False 'We work backwards because we are deleting rows. For i = Selection.Rows.Count To 1 Step -1 If WorksheetFunction.CountA (Selection.Rows (i)) = 0 Then Selection.Rows (i). EntireRow.Delete End If Next i. Calculation = xlCalculationAutomatic. Screen Updating = True End With End Sub