Hey there,
|
Hello,
Sub testDelete()
Dim plage As Range
Dim numlig As Integer
Dim numcol As Integer
Dim cpt As Integer
Dim nblig As Integer
Dim nbcol As Integer
Set plage = Range("A65536").End(xlUp).CurrentRegion
nblig = plage.Rows.Count
nbcol = plage.Columns.Count
For numlig = nblig To 1 Step -1
cpt = 0
For numcol = 1 To nbcol
If plage.Rows(numlig).Columns(numcol) = "Blocked" Then
cpt = cpt + 1
End If
Next numcol
If cpt = 0 Then
Rows(numlig).delete
End If
Next numlig
End Sub
Best regards "Pour trouver une solution � ses probl�mes, il faut s'en donner la peine." |
3. use excel random number generation to delete randomly 10 out of 50 rows. Delete rows in excel if value = x Delete rows in excel macro Delete rows on condition Deleted all files still no space Excel how to delete rows which contain a date Excel, vba, delete rows How to delete and rename the text file in java How to delete autorun.inf from pen drive How to delete autorun.inf virus How to delete virus using cmd How to restore permanently deleted files Macro delete rows range Macro to delete all empty rows and columns and cells in excel all in one time Macro to delete rows Need help deleting duplicates and combine rows Recover deleted contacts iphone Sed delete line