regel verwijderen onder bepaalde voorwaarden

[ewh]

wie kan helpen
in de bijlage een voorbeeld je gedaan

als op de eerste regel in kolom A het getal groter si dan 0 en in kolom C op dezelfde regel staat er niets dan moet de betreffende regel worden verwijder

 

[HSV]

Zoiets dus.

Sub hsv()
Dim cl As Range, Tb As Range
For Each cl In Sheets("Blad1").Columns(1).SpecialCells(2)
  If cl > 0 And cl.Offset(, 2) = "" Then
     If Tb Is Nothing Then
       Set Tb = cl
     Else
       Set Tb = Union(Tb, cl)
     End If
   End If
Next cl
If Not Tb Is Nothing Then Tb.EntireRow.Delete
End Sub

 

[ewh]

Zoiets dus.

Sub hsv()
Dim cl As Range, Tb As Range
For Each cl In Sheets("Blad1").Columns(1).SpecialCells(2)
  If cl > 0 And cl.Offset(, 2) = "" Then
     If Tb Is Nothing Then
       Set Tb = cl
     Else
       Set Tb = Union(Tb, cl)
     End If
   End If
Next cl
If Not Tb Is Nothing Then Tb.EntireRow.Delete
End Sub

Bijna ,
in jouw code gaat hij niet alleen de eerste regel controleren en eventueel verwijderen maar hij controleerd de helekolom
in het voorbeeld zal het altijd om regel 7 gaan
kan je ook uitleggen wat specialscells (2) zijn ?

 

[HSV]

Als het alleen om rij zeven gaat.

Sub hsv()
 With Sheets("Blad1").Range("A7")
  If .Value > 0 And .Offset(, 2) = "" Then .EntireRow.Delete
 End With
End Sub

Druk F1 in Vba over specialcells.

 

[ewh]

HSV, top
werkt prima