Case werkt niet... Ik wordt er gek van....

[Interface]

Oke ben nu al een aantal dagen bezig met een macro en ik kom geen steek verder...

Probleem: ik doorzoek een waarde en kijk naar de lengte van de tekenreeks aan de hand daarvan ga ik de regels die niet aan de voorwaarde voldoet verwijderen.

Waarom werkt in Godsnaam deze macro niet?!

in de bijlage een voorbeeld bestand, de macro is denk ik duidelijk genoeg wat er moet gebeuren.

Even voor de duidelijkheid ik heb in een later stadium x toegevoegd en als "b"en x leeg is ,dan moet heel de regel verwijdert worden. Ik had dit in eerste instantie toegevoegd aan het stukje van "b"& i met case else(je raadt het al dit werkt ook niet)....

 

[AlexV]

Je macro werkt toch goed.
Alleen vergeet je naar het delete x = x - 1
Loop x over je stop heen. Kijk oon naar cel A ipv B
B geeft waarde 4 omdat daar de eerste lege cel is

    For x = 2 To Range("A2", Range("A2").End(xlDown)).Count + 1
        If Range("b" & x) = "" Then
            Rows(x).Delete
            x = x - 1
            If x > Range("A2", Range("A2").End(xlDown)).Count Then Exit Sub
        End If
     Next x

Kan mooier maar deze werk.

Gr,
Alex

 

[snb]

Ik dacht hieraan:

Private Sub CommandButton1_Click()
  With Cells(2, 2).CurrentRegion.Columns(2)
    For Each cl In .Cells
      If Len(cl) > 3 Then cl.Clear
    Next
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  End With
End Sub