Met één druk op de knop een regel met macro's toevoegen

[melshof]

Hallo,

In de bijlage heb ik een bestandje zitten waar mee we het bier bijhouden bij onze kameraden.
Nou komen er regel matig ook mensen die niet in het systeem staan.
Nou zou ik graag een knop willen waarmee ik hem ik het systeem kan toevoegen.

Is daar een oplossing voor?
Bekijk bijlage helpmij.xlsm
Hartelijk dank

 

[Cobbe]

Is dit ook goed?

 

[Ginger]

Wat denk je er zó van? Dit is een methode zónder buttons maar reagerend op het dubbelklik-event van de sheet...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True
    If Not Intersect(Target, Columns(3)) Is Nothing Or Not Intersect(Target, Columns(5)) Is Nothing Then  ' kolom C en E
        Target.Value = Target.Value + 1
        Cells(Target.Row, 11).Value = "BETALEN"
        Range("p1").Value = Range("p1").Value - 1
    End If
    If Not Intersect(Target, Columns(11)) Is Nothing Then   ' kolom K
        Range(Cells(Target.Row, 3), Cells(Target.Row, 5)).Value = 0  ' kolom C en E
        Cells(Target.Row, 11).Resize(, 2).Value = ""
        Cells(Target.Row, 11).Value = "BETAALD" & Chr(10) & Time
    End If

End Sub

In kolom K heb ik zelf even voor het gemak de knoppen verwijderd. In kolom C en E hoef je nu alleen nog maar te dubbelklikken op de gewenste Stamgast regel.

O ja, deze code plaats je in de module van de worksheet ipv in een algemene module!!!

 

[HSV]

Zo kan het ook Leo.

If Not Intersect(Target, Union(Columns(3), Columns(5))) Is Nothing Then

 

[snb]

Mijn toepassingen werken alleen met wijn.

 

[HSV]

Met bier op krijg je steeds van die niet aan een gesloten woorden (#1).

 

[Ginger]

Ha ha ha... Bij de grootste slijter van Nederland werkt 't met ALLE dranken...

Overigens - uiteraard - prima aanvulling met Union Harry!

 

[melshof]

Helaas is met de dubbelklik functie mijn vraag nog niet opgelost. We gebruiken namelijk een touchscreen en daar werkt het niet optimaal op.

graag zie ik nog andere opties

Met vriendelijke groet,

 

[abevleeming]

Ik denk dat je ook de macro's die je al hebt moet herzien, om per regel een macro te bouwen is echt van de zotte

Sub Biertje()

    Dim b As Object, cs As Integer
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        cs = .Row
    End With

Set C = b.TopLeftCell.Offset(, 1 - b.TopLeftCell.Column)
C.Offset(0, 2).Value = C.Offset(0, 2).Value + 1
End Sub

Sub BVO()

    Dim b As Object, cs As Integer
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        cs = .Row
    End With

Set C = b.TopLeftCell.Offset(, 1 - b.TopLeftCell.Column)
C.Offset(0, 4).Value = C.Offset(0, 4).Value + 1
End Sub

Zodoende kan je de regel gewoon kopiëren, die macro volgt zometeen...

Belofte maakt schuld:Bekijk bijlage helpmij.xlsm

 

[VenA]

Voor wat later op de avond. Een nieuwe stamgast mag je aanmaken maar deze moet een naam hebben en de naam moet uniek zijn. Anders klopt de volgende ochtend de inhoud van de portemonnee niet meer

 

[abevleeming]

Ik was onderstaande vergeten toe te voegen aan de rij invoegen

g.Offset(0, 2).Value = 0
g.Offset(0, 4).Value = 0
g.Offset(0, 7).Value = 0
g.Offset(0, 8).Value = 0

Hierbij de nieuwe:
Bekijk bijlage helpmijbiertje (1).xlsm

 

[snb]

@abe

Lijkt je dit niet voldoende ?

Sub BVO()
    With ActiveSheet.Buttons(Application.Caller).TopLeftCell
       .Offset(, 1) = .Offset(, 1) + 1
    End With
End Sub

Maar al die knopjes lijken me sowieso overbodig met:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Or Target.Column = 5 Then
       Cancel = True
       Target = Target + 1
    End If
End Sub