[Excel] rijen automatisch verbergen gebaseerd op celwaarde

Pagina: 1
Acties:

Onderwerpen

Vraag


Acties:
  • 0 Henk 'm!

  • Sientja
  • Registratie: Augustus 2024
  • Laatst online: 02-09-2024
Hallo,

Ik zou in volgende tabel elke rij waarin in kolom G het woord "OK" wordt getypt, automatisch willen verbergen. Met een filter moet ik het verbergen telkens opnieuw verversen, en ik hoop dat dat met een macro wel automatisch kan. Of op een andere manier?

Ik ken letterlijk niets van macro's; ik vind weliswaar tips online maar telkens voor een Engelstalige versie van Excel, daar geraak ik niet mee verder. Kan iemand helpen?

De tabel:

Code Dienst Drager Naam Datum Antwoord OK?
code1 dienst1 drager1 naam1 datum1 antwoord1 OK
code2 dienst2 drager2 naam2 datum2 antwoord2 OK
code3 dienst3 drager3 naam3 datum3 antwoord3
code4 dienst4 drager4 naam4 datum4 antwoord4


Relevante software en hardware die ik gebruik:
Windows PC
MS 365 Excel Nederlandstalig

Alvast enorm bedankt!

Beste antwoord (via Sientja op 02-09-2024 11:07)


  • dix-neuf
  • Registratie: Juli 2018
  • Niet online
- Rechtsklik links-onderaan op de bladnaam waarin je gegevens staan en kies in het verschijnende menu: 'Programmacode weergeven'.
- Plaats aan de rechterkant onderstaande macro (de nummers die vóór alle regels staan niet mee-kopiëren).
- Sluit het venster door op het kruisje rechtsboven te klikken.
- Sla het bestand op als *.xlsm-bestand (= Excel-werkmap met macro's).
- Test de macro door in kolom G OK of ok in te voeren.
- Verdiep je in de beginselen van vba, het Engels daarin is niet moeilijk.
code:
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Columns("G"), Target) Is Nothing Then
If LCase(Target.Value) = "ok" Then
Rows(Target.Row).Hidden = True
End If
End If
End Sub

[ Voor 4% gewijzigd door dix-neuf op 31-08-2024 13:04 ]

Alle reacties


Acties:
  • Beste antwoord
  • +1 Henk 'm!

  • dix-neuf
  • Registratie: Juli 2018
  • Niet online
- Rechtsklik links-onderaan op de bladnaam waarin je gegevens staan en kies in het verschijnende menu: 'Programmacode weergeven'.
- Plaats aan de rechterkant onderstaande macro (de nummers die vóór alle regels staan niet mee-kopiëren).
- Sluit het venster door op het kruisje rechtsboven te klikken.
- Sla het bestand op als *.xlsm-bestand (= Excel-werkmap met macro's).
- Test de macro door in kolom G OK of ok in te voeren.
- Verdiep je in de beginselen van vba, het Engels daarin is niet moeilijk.
code:
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Columns("G"), Target) Is Nothing Then
If LCase(Target.Value) = "ok" Then
Rows(Target.Row).Hidden = True
End If
End If
End Sub

[ Voor 4% gewijzigd door dix-neuf op 31-08-2024 13:04 ]


Acties:
  • 0 Henk 'm!

  • Sientja
  • Registratie: Augustus 2024
  • Laatst online: 02-09-2024
GENIAAL!!!!

Bedankt, dix-neuf, dit is EXACT wat ik bedoelde en zocht!

Ik vind macro's nu al geweldig, ik ga me er zeker in verdiepen.

Bedankt!!

P.S. Ik had niet door dat je in een NL-talige Excel ook EN-talige macro's kon gebruiken :*)

[ Voor 24% gewijzigd door Sientja op 02-09-2024 11:08 ]