Filteren op waardes met inhoud

[JulesH]

Ik heb een werkblad van +/- 1000 regels.
Om uit te leggen waar het voor is lijkt me niet verstandig.
Wat ik hieruit wil filteren zijn de regels die blauw zijn en waar volgend wéér een blauwe regel zit.

Zoals te zien is in het bestand staat er ‘’FCL-xxx’’, ik wil alleen deze regels hebben die inhoud hebben.
Zoals bij FCL-005 staat er ‘’boeiboord algemeen reinigen’’ ‘’gootbekleding zink vervangen’’ etc.
Echter staat er bij FCL-013 weer helemaal niets onder, deze regels moeten er uit. Zonder dit telkens handmatig te doen, het is voor 1 keer sneller maar dit gebeurd vaak.

Hoe haal ik deze regels zonder inhoud uit het werkblad?
Het maakt niet uit hoe dit gebeurd, een extra cel creëren, kleuren toevoegen.. als de regels maar naar boven kunnen komen/worden verwijderd.

Alvast bedankt!:thumb:

---------------------------------

Opgelost, bedankt!
Slotje kan er op

 

[richard1970]

Je kunt van kolom G een hulpkolom maken met de formule:

=ALS(EN(LENGTE(F2)=4;OF(LENGTE(F1)=4;LENGTE(F3)=4));1;0)

Op iedere regel met een 1 staat dan een invoer van vier cijfers. Het viel me namelijk op dat alle blauwe regels een jaartal hebben in kolom F en niet een datum.
Kleuren achterhalen kan alleen met VBA, maar als iets met formules kan ben ik daar voorstander van.

Kun je hiermee verder?

Groeten,
Richard

 

[jolivanes]

Op een copy van je workbook proberen

Sub Misschien()
    Application.ScreenUpdating = False
    Dim i As Long, lr As Long
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    For i = lr To 2 Step -1
        If Cells(i, 2) Like "FCL-*" And Cells(i, 2).Offset(-1) Like "FCL-*" Then Cells(i, 2).EntireRow.Delete
    Next i
    Application.ScreenUpdating = True
End Sub

 

[JulesH]

Je kunt van kolom G een hulpkolom maken met de formule:

=ALS(EN(LENGTE(F2)=4;OF(LENGTE(F1)=4;LENGTE(F3)=4));1;0)

Op iedere regel met een 1 staat dan een invoer van vier cijfers. Het viel me namelijk op dat alle blauwe regels een jaartal hebben in kolom F en niet een datum.
Kleuren achterhalen kan alleen met VBA, maar als iets met formules kan ben ik daar voorstander van.

Kun je hiermee verder?

Als ik dit in de G kolom plaats staat overal een 0 klopt dit, wat doe ik verkeerd?

Op een copy van je workbook proberen

Sub Misschien()
    Application.ScreenUpdating = False
    Dim i As Long, lr As Long
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    For i = lr To 2 Step -1
        If Cells(i, 2) Like "FCL-*" And Cells(i, 2).Offset(-1) Like "FCL-*" Then Cells(i, 2).EntireRow.Delete
    Next i
    Application.ScreenUpdating = True
End Sub

Ik wil dit graag uitproberen, weet dat dit via VBA moet maar waar kan ik deze code invoegen?


Beide bedankt!

 

[richard1970]

Vanaf rij 7 heb ik geen nullen meer maar enen omdat je dan twee keer achter elkaar het jaar 2014 hebt in plaats van een maand.

Bekijk bijlage Forumvraag excel.xlsx

Groeten,

Richard

 

[JulesH]

Kijk eens aan, hij was andersom bedoeld.
Stom natuurlijk, had de formule nog niet helemaal door.

Richard bedankt!

 

[richard1970]

Als dit voldoet, zet je dan de vraag nog even op opgelost?

 

[JulesH]

Hij staat nu op opgelost.
Zou het mogelijk zijn om de geposte bijlage uit dit topic te halen?
Dit i.v.m. bedrijfsgegevens die ik graag zoveel mogelijk van het internet vandaan heb.

Bedankt :thumb:

 

[jolivanes]

Volgens mij schuilt er een addertje onder het gras met de formula van Richard.
Zie bijlage (Lees de Textbox op Blad1)