Rijen verwijderen in kolom A indien een cel in die geen getal zijn en groter cijfers

Status
Niet open voor verdere reacties.

Veldenvdt

Gebruiker
Lid geworden
4 mei 2012
Berichten
23
Ik wil in kolom A alleen getallen overhouden die bestaan uit maximaal 3 cijfers. In kolom A staan nu behalve getallen < 4 cijfers, tekst, horizontale streepjes, lege cellen en getallen > 3 cijfers. Ik wil alleen de getallen van maximaal 3 cijfers overhouden. Het bereik moet variabel zijn.
 
Laatst bewerkt:
Code:
Sub hsv()
Dim i As Long
 With Sheets("blad1")
  For i = .UsedRange.Columns(1).Rows.Count To 1 Step -1
    If WorksheetFunction.Or(Not IsNumeric(.Cells(i, 1)), Not .Cells(i, 1) < 1000, .Cells(i, 1) = "") Then
      .Cells(i, 1).EntireRow.Delete shift:=xlUp
     End If
    Next i
  End With
End Sub
 
Hallo Giga Senior,

Het werkt perfect. Toen ik gisteren voor de 1e keer dit forum gebruikte waren de batterijen van mijn toetsenbord leeg en kon ik met de grootste moeite nog iets op papier krijgen. De titel van de vraag klopte daarom ook niet. Toen ik probeerde de batterijen te wisselen van plaats (ik had geen nieuwe batterijen) werd het bericht al verzonden zonder dat ik dat wilde.
Knap dat je er toch wijs uit bent gekomen. Je hebt me super geholpen. Bedankt daarvoor.

Groeten

Theo
 
Bedankt voor je respons Theo.
Wil je zo vriendelijk zijn de vraag als opgelost te zetten.
Bvd.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan