Cor-Assa

Beste kweezie, ik zocht de optie om te sluiten of moet dat via jullie? M.vr.gr. Cor

Beste mensen, ik ben met een aardig excel stukje bezig waar ik hier in dit forum al de nodige hulp bij heb gekregen (met dank aan grote Woef). Nu zoek ik nog een oplossing waar vast een paar knappe koppen al mee bezig zijn, maar ik wil het zelf leren en begrijpen. Hopelijk wil iemand het mij uitleggen, bij voorkeur aan de hand van een voorbeeld. Het probleem voorbeeld; Ik heb een userform met bijvoorbeeld 3 text vakken. Textvak 1 daar moet een waarde in komen uit cel "B3". Textvak 2 daar moet een variabele in komen uit cel "D5" of "D6" afhankelijk waar op dat moment een "A" in staat. (Slechts een voorbeeld idee). Textvak 3 daar voer ik een cijferwaarde in en deze moet dan in cel "B6" komen. Is er iemand die dit begrijpend uit kan leggen, diverse voorbeelden via Google helpen mij niet echt verder en werken bij mij ook niet. B.v.d. Groetjes Cor

Beste vrienden knutselaars, in mijn eerste screenshot wordt de barcode in gewone karakters weer gegeven. Uit die code wordt (dmv een extra toegevoegde kolom) het regelnummer opgehaald. In de tweede screenshot is mijn eerste poging te zien met een MsgBox waar de gegevens in komen die gecontroleerd worden en waarna het aantal binnen komende gasten ingevoerd moet worden. Dat was dan met een extra popup. Deze komt te vervallen maar die gegevens heb ik nodig voor mijn nieuwe optie. Dat is een userform. De gegevens die er nu in staan heb ik handmatig in het ontwerp veld ingevoerd maar die moeten via Excel/VBA automatisch ingevuld gaan worden. Het tweede getal vakje moet handmatig ingevuld worden bij aanmelding van de gasten. Daarna moet er op de foto geklikt worden zodat deze gegevens in kolom "K" en in dit geval in rij 6 ingevuld wordt (rijnummer is dus variabel). De blauwe knoppen bovenaan zijn tijdelijk, zeker de linker die gaat verdwijnen. De bedoeling is als de gehele barcode gescand is dat daarna pas het userform opent, ook als de code handmatig ingetikt zou worden. Hopenlijk kan iemand mij bij deze laatste puzzelstukjes helpen. Alvast bedankt. M.vr.gr. Cor Excel Forum Help - 2018-04-02.xlsm

Heb al weer veel gesleuteld aan mijn bestand, lijkt mij wederom toch het beste om de laatste versie te uploaden en dan mijn (laatste) wensen/aanpassingen erbij te vermelden. Ik wil eigenlijk nog veel meer aanpassen maar dat moet maar wachten, heb helaas niet veel tijd meer tot 5 mei, moet af en toe nog werken ook. ;-) Gr. Cor

'Helaas Grote Woef, deze geeft een foutmelding.

Grote Woef, bedankt voor je reactie. Ik dacht er goed aan te doen steeds de laatste update te uploaden aangezien ik steeds adviezen door voerde waardoor het bestand steeds veranderde. Met de filmpjes hoopte ik aan te geven wat er gebeurd als ik mijn scanner gebruikt. Dus teveel goed bedoelde handelingen die niet helpen, sorry. M.vr.gr. Cor

Bleef zelf ook steeds rondjes draaien en kwam er niet meer uit. Eigenlijk wil ik nu een variabele waarde in een variabele cel plaatsen. B.v.b. nu is de variabele waarde 3 en die wil ik in de nu toevallige cel K70 plaatsen. Dus zowel de 3 als de 70 zijn variabel, de K is vast. Dit zonder trouwens fysiek naar cel K70 te springen.

Beste mensen, ik probeer het een en ander met variabelen. Zo probeer ik vaste data op te halen naar variabelen en variabelen naar cellen te verplaatsen. Er zitten echter wat koppelingen/verwijzingen in dat voorkomt dat het goed gaat. Ik denk dat alleen de vba code voldoet, zo niet dan hoor ik het graag. Public fAanmelding1 As String Public fAanmelding2 As String Public fOpkomst As String Public fCelwaarde1 As String Public fCelwaarde2 As String Sub Opkomst() Dim Aanmelding As String If Sheets("Lijst").Range("O2") = "" Then Exit Sub Else fCelwaarde1 = "L" & Sheets("Lijst").Range("O3") fCelwaarde2 = "K" & Sheets("Lijst").Range("O3") fAanmelding1 = fCelwaarde1 fAanmelding2 = Sheets("Lijst").Range(fAanmelding1) InputBox "Er zijn " + fAanmelding2 + " personen aangemeld" + Chr$(13) + _ "Exclusief kleine kinderen" + Chr$(13) + _ "Hoeveel personen melden zich nu aan?" Sheets("Lijst").Range(fCelwaarde2).Value = fOpkomst End If End Sub De waarde i n "O3" is variabel afhankelijk van een filter functie. Dit geheel hoort bij een ander stukje van mij, een gastenlijst met barcode. Zoek alleen even frisse mee denkers die het oude lijntje niet volgen. Gr. Cor

Een opsteker voor dit forum, hetExcel forum https://www.excelforum.com heeft mij eigenlijk nog nergens een echte oplossing gegeven. De enige waar ik wat aan heb gehad is ene LeoTaxi, die bracht mij echt hulp. Daar tegenover komt hier genoeg respons en zeker oplossingen vandaan, ook betreffende andere vragen. Ben bijna zover dat alles naar mijn zin werkt, dan zal ik een neutrale versie zonder data uploaden, misschien dat iemand anders er dan nog iets aan heeft. Gr. Cor Assa

Beste Grote Woef, Ben verder aan het testen geweest, gaat aardig de kant op die ik wil. Probleem echter bij alle filters dat deze direct reageerd op de eerste ingedrukte letter. Als ik b.v.b. meerdere achternamen met een W heb dan pakt hij altijd direct de eerste bij het indrukken van W en kan ik niet verder filteren. Voor de barcode is een ander verhaal, daar komt als resultaat altijd een nul in het venster en het gastnummer is altijd 001. Tevens wordt dan de opkomst ingevuld met de code die eigenlijk in het scan venster moet staan. Gr. Cor VID_20180329_104840.mp4 VID_20180329_104954.mp4

Beste Grote Woef, ziet er goed uit. maar als een barcode niet bestaat komt de popup ook? De bedoeling is dat het veld Opkomst leeg is en bij de entree pas ingevuld wordt. De ingevulde gegevens bij Opkomst worden in de juiste kolom ingevuld maar altijd in rij 6 en niet in de rij vanuit het filter bij de juiste persoon, wel als inde eerste 4 vakjes geselecteerd wordt maar niet met de barcode scanner. Waarschijnlijk kan ik dat nu zelf aanpassen, ga de code eens bekijken. Bedankt alvast weer voor deze stap vooruit. Gr. Cor

Was niet verkeerd bedoeld Grote Woef, heb juist heel veel respect voor jouw kunnen en kennis. P.s. zie deze reactie van jou vandaag (woensdag) pas ondanks dat ik iedere dag op het forum snuffel. Excuses voor de late reactie.

Beste Kweezie, momentje nog, ben nog niet helemaal klaar. Zou lullig zijn als ik daarvoor weer een nieuw topic moet starten toch. ;-) Gr. Cor

Bedankt Haije, ga ik uitproberen. Bedankt, zo makkelijk is gelukt ik zat te ver te zoeken. Gr. Cor

Beste mensen, Ik haal uit een bepaalde cel en waarde op die ik in een variabele stop (Public fFilterwaarde As String) Nu wil ik deze variabele in een specifieke cel, in dit geval O1 terug plaatsen. Dit lukt mij niet en ik weet dat het niet moeilijk is maar ik kan het nergens terug vinden. Iemand een idee? Gr. Cor

Beste mee denkers, ik wil deze vraag ook even in het 'excelforum.com' voor leggen in de hoop dat iemand een geschikte oplossing weet. Ik laat het wel weten als er iets uit komt. Gr. Cor

Ziet er netjes en professioneel uit Grote Woef, alleen staan alle naam en adressen er al in. Maar misschien voor een volgend evenement. Jij bent hier echt heel goed in, geef je ook cursussen? ;-

Klopt, dat is de versie met alle aanpassingen doorgevoerd.

Hierbij mijn laatste aanpassingen in het bestand met een screenshot ter verduidelijking en het laatste bestand. De bedoeling is dat wanneer een gast gescand is dan blijft hij d.m.v. het filter over in de lijst. Op dat moment moet er dus een invoer veld openen waarin het aantal personen ingevoerd moet worden dat binnen komt op deze persoonlijke uitnodiging. Dit wordt dan ingevuld in het vakje Opkomst, leuk om achteraf te weten hoeveel gasten er precies geweest zijn. V.b. door de scanner wordt 002 Excel Forum gefilterd, in de popup (invoerveld) wordt dan 2 ingevuld omdat er 2 personen komen, dit komt dan in de cel K7 te staan. Alvast bedankt Cor Assa Excel Forum Test - 2018-03-23.xlsm

Bedankt Grote Woef. De regel die de foutmelding gaf had ik uitgeschakeld. Deze nieuwe aanpassing geeft geen problemen. Gr. Cor

Het is ook zo makkelijk als je het weet. Wederom bedankt.

Is het trouwens ook mogelijk om na het klikken van de clean toets de cursor direct terug te plaatsen in het filter invoervak voor de barcode? Gr. Cor

Het werkt inderdaad Grote Woef, op een klein dingetje na. Als ik de clean toets indruk krijg ik een VBA foutmelding? Als ik deze blokker dan werkt alles goed. Gr. Cor

Oke, ja dat is inderdaad de oplossing. Zo schakel je voor het filteren de beveiliging even uit en daarna weer aan. Toppy Gr. Cor