Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[excel] nul waarden verwijderen uit reeks

Pagina: 1
Acties:

  • ronny
  • Registratie: Februari 2001
  • Laatst online: 16-02-2024

ronny

Trotse vader

Topicstarter
Ik heb een rij getallen. In deze getallen die wordt samen gesteld door checkboxen, zou ik graag een copy maken en daarbij de 0 getallen verwijderen.
code:
1
2
3
4
5
6
7
8
9
10
1       102 ONWAAR      0       103 
2       103 WAAR        103     105 
3       104 ONWAAR      0       106 
4       105 WAAR        105     110 
5       106 ONWAAR      0           
6       107 ONWAAR      0           
7       108 WAAR        108         
8       109 ONWAAR      0           
9       110 WAAR        110         ActiveSheet.Cells(5, 4).Select
                                ActiveSheet.Range("D5:D11").Select


Tuseen de 1 en 102 staat een checkbox. Deze geeft resultaat waar of onwaar :+
aan de hand hiervan wordt de 102 wel of niet gekopieerd.
Nu wil ik graag automatisch een colom wordt gevormt zoals in de laatste kolom te zien is.

Waar gaat het om?
Ik heb een lijst met leden. Door de checkbox kan ik aangeven dat ze meedoen aan een wedstrijd.
Hiervoor wil ik graag een lijst hebben met lidmaatschapnummer waardoor ik automatisch een lijst kan maken met mensen (die aan de hand van de lidnummer) die mee doen aan een wedstrijd.

Dus door slechts een paar vinkjes krijg ik een lijst met deelnemers. Voor een werkbaar reslutaat moet dan kolom E worden gereduceert tot Kolom F.

Nu heb ik uitgebreid lopen zoeken naar mogelijkheden.
Een veel gevonden oplossing is autosort en dan kopieren, maar dat wil ik niet want dan moet ik voor elke vink opnieuw en dan kan ik makkelijker met de hand de lid nummer overtypen.

Een macro zou volgens mij beter kunnen, maar ik kan geen voorbeeld code vinden dat ik een selectie de waarden <1 kan verwijderen Of natuurlijk alleen de waarden > 1 gebruiken.

Kan wat ik wil in Excel of vraag ik toch te veel?

specs werkpaard Youngtimer Touring Car Campionship


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Hier wil je geen voorbeeldcode gebruiken, daar is het te triviaal voor (no offense :* )

Pseudocode:
i = 1
Voor regel = 2 tot N
  als eneblad.D,%regel% = WAAR dan
      andereblad.A,%i% = eneblad.D,%regel% 
      i eentje ophogen
  hoppa
volgende


Zonder code zou je kunnen filteren: alles >1 of alles op WAAR .

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • ronny
  • Registratie: Februari 2001
  • Laatst online: 16-02-2024

ronny

Trotse vader

Topicstarter
Als je het zo zegt klinkt het wel heel eenvoudig. :D

Ik zal er vanavond even mee stoeien om het voor elkaar te krijgen.

Maar dat moet vast lukken.

specs werkpaard Youngtimer Touring Car Campionship


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

:P

Als je vanavond vast loopt: geef gerust de concept-code en dan denkt er vast iemand mee.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • ajakkes
  • Registratie: Maart 2004
  • Laatst online: 16-05 22:32

ajakkes

👑

Is een auto filter niet de oplossing?
Krijg je bovenaan een knop waar je alle regels waar ONWAAR in staat gewoon verbergen. En vervolgens de data kopiëren naar waar je het nodig hebt.

👑