MsgBox 2 kolommen appart aantal weergeven

[Warme bakkertje]

Zoals eerder al gevraagd, welke formule gebruik in je voor je VW ???

 

[Justfabulous]

Hoi,

Ik gebruik voor kolom 8 deze formule.

ActiveSheet.Range("$B$2:$J$5000").AutoFilter Field:=8, Criteria1:= _

ActiveWorkbook.IconSets(xl3Symbols2).Item(1), Operator:=xlFilterIcon

Lukt dus niet deze ook in 1 msgbox te krijgen. Is het ook mogelijk dat met bovenstaande formule bij geen symbool er ook geen regel in de msgbox verschijnt?


Groeten

 

[Warme bakkertje]

Heb je eigenlijk enig idee wat Voorwaardelijke Opmaak wil zeggen ??
Al tig keren vraag ik je de formule van de VW waar jij het al heel de tijd over hebt, en het enige dat jij me geeft zijn codes van Autofilters ?????
Wat moet ik daar nu mee ???
Worden die cellen nu handmatig gekleurd of via VW ?????
Nu haal je d'r ineens weer icons bij ???
Ik ben het HELEMAAL kwijt nu

 

[Justfabulous]

Lees bericht 26 juni 20:38 is... daar staat toch duidelijk mijn vraag.

Voorwaardelijke opmaak met kleur werkt niet in excel 2010! Vandaar mijn vraag op 26 juni 20:38

De code werkt in de msgbox voor kolom i. Nu zou ik graag deze regel willen toepassen in de reeds bestaande msgbox van kolom B zoals in het voorbeeld bestand.

Als dit niet duidelijk is :shocked:

 

[Justfabulous]

Hoi,

Gaat niet lukken? Kan iemand mij dan wel helpen dat als er geen Symbol in kolom 8 staat er ook geen 2e MsgBox verschijnt?

    ActiveSheet.Range("$B$2:$J$5000").AutoFilter Field:=1, Criteria1:= _
    "A"
    Dim rng As Range
    Set rng = ActiveSheet.AutoFilter.Range
    MsgBox rng.Columns(1). _
    SpecialCells(xlCellTypeVisible).Count - 1 _
    & "  aantal", vbInformation, "MsgBox1"

  
    ActiveSheet.Range("$B$2:$J$5000").AutoFilter Field:=8, Criteria1:= _
    ActiveWorkbook.IconSets(xl3Symbols2).Item(1), Operator:=xlFilterIcon
    Dim r As Rang
    Set r = ActiveSheet.AutoFilter.Range
    MsgBox r.Columns(8). _
    SpecialCells(xlCellTypeVisible).Count - 1 _
    & "  aantal", vbInformation, "MsgBox2"