Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: MAcro o.b.v. formule in cel

  1. #1
    Member
    Geregistreerd
    12 maart 2012
    Locatie
    Kaatsheuvel
    Vraag is opgelost

    MAcro o.b.v. formule in cel

    Beste mensen,

    Ik wil op basis van een celwaarde kolommen verbergen. Wanneer ik cel $Z$5 handmatig of middels validatie vul lukt prima middels deze code:

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    
      If Range("Z5").Value <= 5 Then Columns("F").Hidden = True
      If Range("Z5").Value >= 5 Then Columns("F").Hidden = False
    
      If Range("Z5").Value <= 5 Then Columns("E").Hidden = False
      If Range("Z5").Value >= 5 Then Columns("E").Hidden = True
    End Sub

    Echter, ik wil processen samen laten voegen en $Z$5 vullen met een formule. Ik kan een =ALS vergelijking maken of simpelweg een een verwijzing. Echter, de macro werkt niet o.b.v. een formule. Ik heb hier en het net afgestruind, maar kom niet tot een oplossing waarbij ik de formule kan omzeilen.

    Is dit geheel niet mogelijk of zijn er toch oplossingen voor?
    Mijn dank is groot!

  2. #2
    Giga Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Zet de code in het Worksheet_Activate event of het Workbook_open event (dan wel met bladverwijzing natuurlijk).

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    En dan zo:
    Code:
      Columns("E:F").Hidden = Range("Z5").Value <= 5
    Laatst aangepast door edmoor : 25 maart 2020 om 16:54
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  4. #4
    Giga Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Wel met bladverwijzingen toch, Edmoor?

  5. #5
    Member
    Geregistreerd
    12 maart 2012
    Locatie
    Kaatsheuvel
    Waarom kan het soms zo eenvoudig zijn...??
    Werkt perfect, weer een stapje wijzer.

    Dank !

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    Quote Origineel gepost door SjonR Bekijk Bericht
    Wel met bladverwijzingen toch, Edmoor?
    Uiteraard.
    Maar dat mag TS zelf invullen
    Laatst aangepast door edmoor : 25 maart 2020 om 17:06
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Member
    Geregistreerd
    12 maart 2012
    Locatie
    Kaatsheuvel
    Quote Origineel gepost door edmoor Bekijk Bericht
    En dan zo:
    Code:
      Columns("E:F").Hidden = Range("Z5").Value <= 5
    Nog aangepast naar
    Code:
    Private Sub Worksheet_Activate()
      Columns("E").Hidden = Range("Z4").Value >= 5
      Columns("F").Hidden = Range("Z4").Value <= 5
    End Sub
    en werkt perfect. Weliswaar zonder bladverwijzing omdat het in een enkele sheet wordt uitgevoerd.

    Voor lering en vermaak: Wat geeft deze code als voordeel?

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    En waarom niet zo?
    Code:
    Columns("E:F").Hidden = Range("Z4").Value <= 5
    Het grote voordeel is dat je maar 1 regeltje heb in plaats van vier om hetzelfde te doen.
    Laatst aangepast door edmoor : 25 maart 2020 om 21:05
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    Member
    Geregistreerd
    12 maart 2012
    Locatie
    Kaatsheuvel
    Quote Origineel gepost door edmoor Bekijk Bericht
    En waarom niet zo?
    Code:
    Columns("E:F").Hidden = Range("Z4").Value <= 5
    Omdat daarmee kolom E en F worden verborgen wanneer $z$4 <=5

    In Z4 komt een uitkomst van een keuzemenu uit een ander tabblad. Deze uitkomst ligt tussen 1 en 9.
    Wanneer de uitkomst 1,2,3,4,of 5 is dient op dit tabblad kolom E te worden verborgen en kolom F zichtbaar.
    Wanneer de uitkomst 6,7,8,of 9 is dient kolom E zichtbaar te zijn en F verborgen.

    Zo staat het ook in de code in de OP, of zie ik iets over het hoofd.
    Behoudens dat jouw code korter is (waar ik voorstander van ben) dan in de OP ben ik gewoon nieuwsgierig :-)

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    Ok, daar had ik even overheen gelezen.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren