verschillende knoppen met 1 procedure verwerken

Status
Niet open voor verdere reacties.
K

kenzootje

Gebruiker
Lid geworden
22 aug 2016
Berichten
37
Ik heb in excel een pagina waarop verscilllende knoppen staan met de verschillende dranken die we verkopen
Nu zou ik graag met behulp van 1 procedure.... een aantal acties uitvoeren.
Dus als ik op een knop druk, opent hij de procedure.
In het kort komt het hier op neer
elke knop heeft een naam ( van de drank of snack die we verkopen) die moet hij kopieren in een andere cel in een ander tabblad
om de waardes op de eerste vrije rij te zetten heb ik reeds geregeld da's geen probleem daarvoor gebruik ik het volgende :
Code: 
Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("bestellingen")

    Dim vrij As Long

    vrij = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count
'MsgBox (" lijn " & vrij & " is vrij")

Worksheets("bestellingen").Range("a" & vrij + 1).Value = Now()
Worksheets("bestellingen").Range("b" & vrij + 1).Value = "ricard" '==> dit zou dan telkens de naam van knop moeten worden

Ik ziou het graag met 1 procedure doen, anders moet ik voor elke knop telkens die code kopieren en gewoon de value veranderen die hij moet in de cel zetten.

Ik weet dat het mogelijk is, maar vind he tniet meer direct hoe ik het moet doen.
alvas bedankt
 
En zijn die knoppen Formulier- of ActiveX besturingselementen?
Of misschien Shapes?
Voorbeeldocumentje?
 
Zoiets dan:
Code: 
Private Sub ricard_Click()
    BehandelKnop ("Ricard")
End Sub

Private Sub zero_Click()
    BehandelKnop ("Zero")
End Sub

Sub BehandelKnop(Knop As String)
    MsgBox Knop
End Sub
 
dus er moet toch nog op elke knop apart een click actie geplaatst worden 't is niet zo dat als ik op 1 knop druk dat hij automatisch een procedure start ( tenzij ik ze in een group zou zetten? of is da niet mogelij?

Als ik klik op een knop zou hij een paramter of zo moeten meegeven met de actie, want ik wil de caption gebruiken, die ik wegschrijf in een tabel op een ander tabblad om mijn bestellingen simpel te houden, verder gebruik ik dan in excel ene pivottabel om de rest te verwerken van de gegevns
 
Laatst bewerkt:
Ieder knop heeft z'n eigen Click event.

En dat gebeurt toch?
Als je op een knop klikt wordt er automatisch 1 en dezelfde procedure gestart.
Die Sub Behandelknop is er dus maar 1x, ongeacht het aantal knoppen.
 
Ik heb een voorbeeld voor je gemaakt met een Class Module, dan hoef je geen actieroutine per knop te maken:
Bekijk bijlage kassa.xlsm
 
Laatst bewerkt:
dank u
en wat is de logica hierachter, want geraak er niet echt aan uit.
Als ik op een knop druk, doe thij blijkbaar nogniks ? ondanks da je een msgbox gemaakt hebt als je klikt op een knop .....
 
Sla het document eerst op en open hem dan.
Dan werken de knoppen goed.
Wat je wilt dat er gaat gebeuren als er op een knop wordt geklikt kan je zelf maken in de Sub BehandelKnop, waar nu die MsgBox in staat.
Je hebt daar de naam van de knop en het opschrift beschikbaar.
 
Laatst bewerkt:
ja maar dat geeft ie momenteel nog niet weer als ik druk op de knoppen
 

Bijlagen

  • kassa.xlsx
    90,8 KB · Weergaven: 22
Uiteraard niet.
Je bijlage in #10 is een .xlsx en die bevat per definitie geen VBA code.
Wat ik voor je maakte zit daar dus niet in.
 
inderdaad, had hem verkeerd opgeslagen, mijn excuses.....
alvast bedankt, ik ga er verder mee aan de slag, als ik nog hulp nodig heb hoor je mij nog wel
 
Geen probleem :)
 
Als je formulierknoppen (geen Active-X) gebruikt kun je aan iedere knop dezelfde macro hangen:

Code: 
Sub M_snb()
   sheets("bestellingen").cells(rows.count,2).end(xlup).offset(1)=application.caller
End sub
 

Bijlagen

  • __kassa_snb.xlsm
    52,3 KB · Weergaven: 31
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan