Toon posts:

vba-excel-automatische knop

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hallo,
Ik ben bezi met een spaarpot (nog steeds)
en in een overzicht kan ik waardes alleen laden door op een knop te drukken, maar dat mag niet volgens de opdracht. Met control source kan het ook niet want dan gooit hij de formule weg vanuit excel.

Nu is mijn vraag: Hoe maak ik een button (die ik onzichtbaar maak) die automatisch werkt als ik op de pagina kom?

  • onkl
  • Registratie: Oktober 2002
  • Laatst online: 22:59
Ik intepreteer: Er moet een macro gestart worden op het moment dat je op een bepaald worksheet komt (tabblad) komt.
Bedoel je dat? Zeg dat dan.
En gebruik deze code in je VBA-Sheet1 (of hoe de sheet mag heten)
Visual Basic:
1
2
3
Private Sub Worksheet_Activate()
MsgBox "hallo"
End Sub

Als je iets anders bedoeld is het misschien handig als je je uitleg minder focust op een knop (als je er niet op mag drukken hoef je 'm ook niet te hebben) en meer op wat je hoe wilt bereiken.

Verwijderd

Topicstarter
Oke ik zal eens proberen duidelijker te zijn.

het is de bedoeling dat als je op een userform komt, dat er een aantaal waardes geladen worden in een tekstbox vanaf een aantal cellen in excel
bijvoorbeeld:
Inkomen: ..... (<-- variabele waarde uit excel)
Uitgaven: .... (<-- variabele waarde uit excel)
en etc.

[ Voor 3% gewijzigd door Verwijderd op 26-09-2005 21:42 ]


  • Telco
  • Registratie: Juni 2001
  • Laatst online: 29-08-2024

Telco

Biertje?

Dus.... de knop en het aktiveren van de userform is geen probleem? Rest nog de waarden erin zetten?

Het makkelijkst is om in de 'Forms' te openen, en vervolgens naar 'Display code' view te switchen (F7).
Je kunt nu de volgende sub definieren (of kiezen uit de listbox):

code:
1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
'
'   Initialisatie van jouw userform
'
   ' Stel jouw tekstbox voor Inkomen heet txtInkomen
   txtInkomen.value = cells(x,y).value   ' x en y zijn de coordinaten van de cell in kwestie

   ' Stel jouw tekstbox voor Uitgaven heet txtUitgaven
   txtUitgaven.value = cells(x,y).value
    
End Sub


Deze routine wordt bij elke 'Show' opdracht uitgevoerd.

Vandaag geen signature


Verwijderd

Topicstarter
Dat was hem :)
Hartstikke bedankt! _/-\o_

  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

Mooi, maar dit:
Verwijderd schreef op maandag 26 september 2005 @ 21:36:
Oke ik zal eens proberen duidelijker te zijn.

het is de bedoeling dat als je op een userform komt, dat er een aantaal waardes geladen worden in een tekstbox vanaf een aantal cellen in excel
bijvoorbeeld:
Inkomen: ..... (<-- variabele waarde uit excel)
Uitgaven: .... (<-- variabele waarde uit excel)
en etc.
had dus in de topicstart gemogen...

[ Voor 3% gewijzigd door Lustucru op 27-09-2005 00:42 ]

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland

Pagina: 1