Filteren o.b.v. doorgehaalde tekst

[radar]

Excellenties,

Kent Excel de mogelijkheid om te filteren op basis van criterium dat tekst in cel is doorgehaald ?
Evt. met behulp van macro ?
Bijgevoegd nonsens bestand heeft in kolom C een aantal doorgehaalde namen staan; kan ik deze filteren/selecteren op basis van deze opmaak ?
Bekijk bijlage Doorgehaalde tekst filteren.xlsx?

 

[WHER]

Zie bijlage voor één van de mogelijkheden:

 

[gast0660]

Hoi,

kan je hiermee aan de slag.
Greetz

 

[radar]

@ WHER,
Dank je wel voor de snelle reactie !
Filteren op de hulpkolom kan natuurlijk en levert gewenst resultaat... ik snap echter niet de opbouw en dus hoe dit toe te passen in het werkelijk bestand ?
Zou dit graag begrijpen...


@ gast0660
Dank je wel voor jouw reactie !
De macro achter de knop doet waar ik om vroeg.
Kan dit aanpassen voor mijn oorspronkelijk bestand.

Radar

 

[snb]

Waarom zou je, in plaats van doorhalen, de cel niet gewoon leegmaken ? Dan ben je met autofilter zo klaar.

 

[WHER]

@Radar,

Kolom H (H2:H9) bevat de genaamde formule "Strike".
Selecteer bijvoorbeeld H2, druk op ctrl+F3 (=Name Manager), en kijk wat er in de "Refers To" formule staat.
Google ook eens op "Get.Cell arguments"
http://www.mrexcel.com/forum/excel-questions/20611-info-only-get-cell-arguments.html

 

[gast0660]

Radar,
Is daarmee je vraag opgelost of heb je nog kleine wensen?
Anders eventjes de vraag op opgelost zetten.

Greetz

 

[radar]

@snb

Helemaal mee eens !! Kreeg echter een behoorlijk groot bestand waarin men voor doorhalen gekozen had...
Een extra kolom met een kenmerk was ook wat makkelijker geweest... maar helaas...
Binnen Excel gezocht en op diverse fora naar oplossing zonder macro's.
Vandaar mijn vraag hier.
@WHER
Ga met die extra info aan de slag ! Dank je wel !
@gast0660
Met de aanvullende info van WHER ga ik aan de slag en vooralsnog jouw oplossing implementeren in mijn bestand.
Dus hij gaat nu status opgelost krijgen.
Allen dank voor de reacties en oplossingen !!

Radar

 

[gast0660]

Graag gedaan,

There is never time to do it right but there is always time to do it over

Greetz

 

[radar]

@WHER:

https://www.templatebuilding.com/index.php/excelleren/wetenswaardigentipstrucs/9353-wwcellezen geeft de uitleg in het nederlands.
Tot zover volg ik je...blijft over je aanvulling in het sheet in J3 en de bijbehorende uitleg in het sheet:

gebruik deze cel om met de Format Painter de cellen in kolom C met "strikethrough" te formatteren

Ook daar moet ik vooralsnog passen...

Radar

 

[WHER]

@Radar,

In J2 heb ik een willekeurige letter gezet (in dit geval "a"), en deze de opmaak "doorgehaald" gegeven.
Vervolgens gebruik ik deze om met "borstel" de opmaak naar de cellen in kolom C over te brengen.
Maar misschien krijg jij de gegevens aangeleverd met die opmaak reeds toegepast?

 

[radar]

Ok, helder !
Diverse cellen in die kolom hebben inderdaad al die opmaak.
Dat was ook de reden voor mijn vraag.

Dank voor de uitleg.

Radar

 

[snb]

Je kunt inderdaad op 'doorgehaald' zoeken.
Dat kan ook met de hand met de gewone zoekfunktie in Excel.

Sub M_snb()
    With Application.FindFormat.Font
        .Strikethrough = True
        .Superscript = False
        .Subscript = False
        .TintAndShade = 0
    End With
    c01 = Cells.Find("*", Cells(1), xlFormulas, xlPart, xlByRows, xlNext, False, False, True).Address
    
    Do
      c00 = c00 & "," & c01
      c01 = Cells.Find("*", Range(c01), xlFormulas, xlPart, xlByRows, xlNext, False, False, True).Address
    Loop Until InStr(c00, c01)
    
    Range(Mid(c00, 2)).Select
End Sub

 

[WHER]

@SNB

Eentje om bij te houden...kan nog van pas komen.

 

[snb]

@Wher

Dat staat je natuurlijk volledig vrij.