macro for deleting row with conditionClosed

Question

Hello,

suppose I have one column in which there are 24 rows i.e. A1:A24 and these rows contain some value  

I need to make one macro in which I want to delete rows which have value greater than 5

husssaid · Accepted Answer

I have pasted table with some other information not in the table , needs to delete rows that the fourth column does not contain an number

provock · Answer

I'm not very fnd of creating macro or VBA stuffs, but if you want a good example of a macro use to delete rows , just copy and paste this link in the address bar of your browser :https://docs.microsoft.com/en-us/office/troubleshoot/excel/delete-every-other-row

Helper · Answer

Private Sub Delete()


Dim intRow
Dim intLastRow
intLastRow = Range("A65536").End(xlUp).Row


For intRow = intLastRow To 1 Step -1

Rows(intRow).Select
If Cells(intRow, 1).Value > 5 Then
Cells(intRow, 1).Select
Selection.EntireRow.Delete

End If

Next intRow

Range("A1").Select


End Sub

The macro above will not delete blank rows. If you need to delete blank rows also in the range then use this.

 Private Sub Delete()


Dim intRow
Dim intLastRow
intLastRow = Range("A65536").End(xlUp).Row


For intRow = intLastRow To 1 Step -1

Rows(intRow).Select
If Cells(intRow, 1).Value > 5 Or Cells(intRow, 1) = "" Then
Cells(intRow, 1).Select
Selection.EntireRow.Delete

End If

Next intRow

Range("A1").Select


End Sub

hero85 · Answer

do you do small macro work for small money?

critenlee · Answer

Thanks so much for sharing the post. 




Links removed as reported spam

arunv.cse@gmail.com · Answer

hi,,,,,i want to delete the empty column but,,having  values  in header.... that is in a1 cell...how to delete the entire column....also the heading...
.....

Macro for deleting row with condition

6 responses

Similar discussions

Subscribe To Our Newsletter!