Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Vraag betreft werkende sheet

  1. #1
    Vraag is opgelost

    Vraag betreft werkende sheet

    Hallo allen,

    Ik heb een vraag over mijn sheet. Deze keer niet omdat het niet werkt maar de vraag of de code die ik gebruikt heb ook kleiner kan.
    (Waarschijnlijk wel)
    Zoals ik al aangaf werkt het wel maar de code is extreme groot en ben benieuwd of iemand deze kleiner kan maken.

    In tabblad Week Menu staan 7 pull down om elke dag een keuze te maken welk gerecht er op welke dag gegeten gaat worden.
    In tabblad producten komen dan de producten te staan die nodig zijn voor de gekozen gerechten waardoor er een boodschappenlijst ontstaat.
    In VBA heb ik de code aangemaakt die aan de hand van de keuze die gemaakt wordt in tabblad Week menu, het tabblad producten filtert.

    De code is een beetje lang dus post ik deze hier nu niet.
    Zie bijlage voor mijn bestand.

    Ben benieuwd wie de code kan verkleinen.
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 March 2013
    Alle code weghalen achter het blad 'Week Menu' en deze achter het blad 'Producten'

    Code:
    Private Sub Worksheet_Activate()
      Cells(1).CurrentRegion.Resize(, 13).AutoFilter 11, IIf(Application.CountA(Sheets("Week Menu").Range("B3:B9")), "<>", "")
    End Sub
    Voor het leegmaken is dit voldoende.
    Code:
    Sub Clear()
      Range("B3:B9").ClearContents
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    @VenA

    Wow... ik wist niet dat het zo ook kon.
    Thnx!!! kan ik weer wat van leren.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren