Auteur Topic: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen (gelezen 70939 keer)

Ex-lid · « **Reactie #30 Gepost op:** 18 december 2018, 18:21:15 »

@ emields.
mooi:

Citaat

Probeer om te leren en wat niet lukt zal er altijd wel iemand helpen.

Citaat

wat bedoel je met "2 userform buttons combineren met elkaar"?

Ik vraag het mij ook af.

SoftAid · « **Reactie #31 Gepost op:** 18 december 2018, 21:41:57 »

Citaat van: AnthonyVDD op 18 december 2018, 15:59:55

vandaar ik me even de vraag stel, of dit forum wel bedoeld is op mij te helpen met de code, of staan jullie in om die volledige code op maat te schrijven?

Hallo AnthonyVDD,

Wij (oplossing.be en zijn helpers) zijn geen "software-op-maat-tegen-vergoeding" bedrijf.
We willen je helpen van A tot Z, maar je moet zelf leren en produceren.
Elke vraag wordt (gratis) beantwoord.

Citaat van: AnthonyVDD op 18 december 2018, 15:59:55

mijn finale vraag zal nog altijd dezelfde zijn, 2 userform buttons combineren met elkaar.

Je kan zeker 2 buttons combineren. Veronderstel dat je button1 drukt, dan wordt button2 in- of uitgeschakeld, of veranderd (van tekst of dergelijke). Maar stel je vraag met goede voorbeelden die duidelijk maken wat je verlangt van die wisselwerking tussen die knoppen.

Voor elke vraag is er een oplossing.....

SoftAid

AnthonyVDD · « **Reactie #32 Gepost op:** 19 december 2018, 13:01:55 »

Goedemiddag,

in bijlage de desbetreffende excel.

wat ik heb gedaan ondertussen:
-een index gemaakt van alle materialen
-heel wat materialen eraan gelinkt (niet allemaal) dat de correcte rows weergegeven worden (dit loopt allemaal gesmeerd)

maar de knop om dikte te combineren met het materiaal lukt me niet, ik krijg steeds een foutmelding bij deze regels :

Function setThickness()

End Function
Dim cellName As Double
cellName = CStr(ActiveCell.Text)
checkIfVisible (cellName)
End Function

wat de bedoeling van de excel en de knop Thickness :

-er zijn 2 kliks nodig om je doel te bereiken; materiaal soort, en dikte.
-1ste keuze is materiaal soort, klik op "een" materiaal > alle diktes in dat soort materiaal worden weergegeven (<- dit is al in orde)
-2de keuze is de dikte > als je eerst op materiaal soort "DC01" klikt, en vervolgens op dikte "2", mag alleen het materiaal DC01 en dikte 2 weergegeven worden (<- en dit krijg ik niet in orde)

pitufo · « **Reactie #33 Gepost op:** 19 december 2018, 13:09:52 »

Hallo,
Ik zie dat al heel wat helpers zich hierover gebogen hebben, dus 'k ga er (alvast voorlopig) liever afblijven (zou ook veel uitpluiswerk betekenen in alle voorgaande posts).
Wat ik wel onmiddellijk zie is dat je als eerste regel binnen je function al "End function" hebt staan. Nogal logisch dat er dan niets gebeurt, behalve een foutmelding (heel waarschijnlijk doordat er verder nog eens "End Function" staat)
Haal die eerste eens weg, en kijk of het iets oplevert.
Groeten,
pitufo

AnthonyVDD · « **Reactie #34 Gepost op:** 19 december 2018, 13:18:29 »

zie afbeelding bijlage van foutmelding wanneer End function naar Function veranders is : syntaxis fout

Haije · « **Reactie #35 Gepost op:** 19 december 2018, 14:32:06 »

Ik denk niet dat je End Function zou moeten vervangen door Function, maar helemaal moet weghalen

AnthonyVDD · « **Reactie #36 Gepost op:** 19 december 2018, 14:38:33 »

heb ik ondertussen gedaan, zie afbeelding met volgende foutmelding

het enige wat nog niet werkt is wanneer je wisselt tussen 2 diktes (zonder het materiaalsoort te wijzigen), er nog een lijn code tekort in zit dat eerst alle rows UNhide

maar ik zie niet waar ik die regel moet zetten

AnthonyVDD · « **Reactie #37 Gepost op:** 19 december 2018, 14:43:31 »

de foutmeding is weg door volgende aanpassing, maar de knopppen combineren nog niet goed zoals op mijn vorige post beschreven

Function setThickness()
Dim cellName As Double
If IsNumeric(CStr(ActiveCell.Text)) Then
cellName = CStr(ActiveCell.Text)
End If
checkIfVisible (cellName)
End Function

AnthonyVDD · « **Reactie #38 Gepost op:** 20 december 2018, 11:45:20 »

alles werkt

nu alleen nog een kwestie van meer data in te voeren

bij deze wens ik nogmaals iedereen vriendelijk te bedanken voor hun inzet en hulp!

topic mag afgesloten worden :-)

mvg
Anthony

SoftAid · « **Reactie #39 Gepost op:** 20 december 2018, 11:54:35 »

Hallo Anthony,

fijn te horen dat alles werkt en dat je tevreden bent.

Je kan zelf een topic dat je gestart hebt afsluiten, onderaan het topic vindt je de knop.
andere mensen kunnen nu wel niet meer reageren !!
Mocht je toch nog bijkomende vragen hebben, kan je het topic met een knop terug openen.
Belangrijker dan het topic te sluiten is het topic op "Opgelost" te zetten.

Groeten,

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics