56 commandbuttons benoemen...

[Spiesse]

2 klassenmodulen: extrakn en knoppen

in extrakn heb ik volgende code

Public parent As Object
Public WithEvents kn As CommandButton

Sub kn_Click()
Dim beleg As Variant
beleg = ActiveCell.Offset(0, 2).Value
If beleg = "" Then
    MsgBox ("kies een soort beleg")
    Else
End If

    ActiveCell.Offset(0, 2).Value = beleg & " " & kn.Caption
    parent.updatebox
End Sub

in knoppen heb ik volgende code

Public parent As Object
Public WithEvents kn As CommandButton

Sub kn_Click()
    ActiveCell.Offset(0, 2).Value = kn.Caption
    'Sheets("bestelling").[i1].Value = kn.Caption
    parent.updatebox
    'ActiveCell.Offset(0, 1).Value = "1"

End Sub

 

[Spiesse]

ExcelAmateur,

in mijn mailbox zie ik dat je een bericht geplaatst hebt, maar op het topic zie ik niks verschijnen.
Kan je eventueel es opnieuw plaatsen? Of ligt het aan het feit dat er in de banner bovenaan staat dat helpmij niet bereikbaar is?

 

[ExcelAmateur]

Spieste,

Sorry, Ik heb het verwijderd, was niet belangrijk.

 

[Spiesse]

lol excelamateur,

dan zou ik lang kunnen zoeken e

feel free to join the topic e, hoe meer experten hoe beter voor mijn bestand

 

[snb]

Dan herhaal ik mijn voorlaatste bericht over klassemodules.

 

[Spiesse]

ik heb de code userform_initialize aangepast aan de enkele regels die jij voorstelt, en zie geen rare dingen gebeuren

nu nog achterhalen wat je wil zeggen met de klassenmodule

 

[snb]

Eerst nog doorgronden wat de verbeteringen zijn in de Initialize code.

 

[Spiesse]

jij of ik?

 

[schuurar]

Bekijk bijlage broodjes opmaak idee.xlsm

Hierbij nog een opmaak idee.
Ik vind het persoonlijk iets overzichtelijk maar wil niemand beledigen. Het is maar een idee.

 

[Spiesse]

goedemorgen schuurar,

ziet er niet slecht uit. ik had al een paar dagen tegen mijn vrouw gezegd dat ik niet 100% tevreden was van de layout de bevestiging is er

ik bekijk om het bestand wat ik nu heb aan te passen.

tips zijn altijd welkom

 

[schuurar]

Gezien de knoppen die je gemaakt hebt ging ik er van uit dat het de bedoeling is dat je het op een touchscreen gaat gebruiken.

 

[Spiesse]

euh, ja en nee tis met de muis te doen. maar wel de look van op een touchscreen

indien er nog ideeën uit jouw mouw komen mag je die altijd posten

 

[snb]

Nog een suggestie:

Zie de bijlage



Waarom kun je hier geen .xlsb bestanden uploaden ??

 

[Spiesse]

SNB, deze is knap!

zie wel dat de UFAfrekenen weg is. Krijg een foutmelding.

kan je bekomen dat ik anders op de UF de bestelling per persoon te zien krijg, en zo kan afrekenen?

grasjas!