Cor-Assa
-
Items
396 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Berichten die geplaatst zijn door Cor-Assa
-
-
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
-
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
-
Op 29-3-2018 om 18:59, Grote Woef zei:
Beste Cor,
Een paar opmerkingen
Post één gelijkend vb bestand, en geen x aantal verschillende versies. (zorg voor +/- een tiental gelijkende ingevulde regeltjes, met Jan Piet, Tjorres, Katrien en Corneel gegevens)
Met plaatjes en filmpjes kan ik of andere helpers niets aanvangen in een VBA / EXCEL vraag.
VBA is nu eenmaal een taal, die moet je leren.
Voor deze vraag:
verander deze code:
Criteria1:="*" & TextBox1.Text & "*", Operator:=xlFilterValuesin
Criteria1:= TextBox1.Text & "*", Operator:=xlFilterValuesIk heb geen scanner maar:
Voor uw scan probleem heb ik een idee, daar krijg je morgen een voorzetje van. Maar als het kan, eerst een beter vb bestandje posten.
We komen er wel voor de volgende bijeenkomst in 2019.
'Helaas Grote Woef, deze geeft een foutmelding.
-
Op 29-3-2018 om 18:59, Grote Woef zei:
Beste Cor,
Een paar opmerkingen
Post één gelijkend vb bestand, en geen x aantal verschillende versies. (zorg voor +/- een tiental gelijkende ingevulde regeltjes, met Jan Piet, Tjorres, Katrien en Corneel gegevens)
Met plaatjes en filmpjes kan ik of andere helpers niets aanvangen in een VBA / EXCEL vraag.
VBA is nu eenmaal een taal, die moet je leren.
Voor deze vraag:
verander deze code:
Criteria1:="*" & TextBox1.Text & "*", Operator:=xlFilterValuesin
Criteria1:= TextBox1.Text & "*", Operator:=xlFilterValuesIk heb geen scanner maar:
Voor uw scan probleem heb ik een idee, daar krijg je morgen een voorzetje van. Maar als het kan, eerst een beter vb bestandje posten.
We komen er wel voor de volgende bijeenkomst in 2019.
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
-
10 minuten geleden, Cor-Assa zei:
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 (fCelwaarde heet nu fCelRange) plaatsen.
Dus zowel de 3 als de 70 zijn variabel, de K is vast.
Dit zonder trouwens fysiek naar cel K70 te springen.
-
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 StringSub 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 SubDe 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
-
Op 25-3-2018 om 14:18, Grote Woef zei:
Alles komt op tijd voor hij die wachten kan.
Probeer het maar eens met deze voorzet.
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
-
Op 25-3-2018 om 14:18, Grote Woef zei:
Alles komt op tijd voor hij die wachten kan.
Probeer het maar eens met deze voorzet.
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
-
8 minuten geleden, Grote Woef zei:
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
-
Bedankt Grote Woef.
De regel die de foutmelding gaf had ik uitgeschakeld.
Deze nieuwe aanpassing geeft geen problemen.
Gr. Cor
-
10 minuten geleden, Grote Woef zei:
Ja dat is mogelijk.
toevoegen op het einde van de code .
TextBox1 naam vervangen door de juiste naam van de textbox.
TextBox1.ActivatePost eens een recent vb bestandje, is wat makkelijker om uw twee andere vragen op te lossen.
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
Waarde naar variabele en naar cel
in Archief Excel
Geplaatst:
Beste kweezie, ik zocht de optie om te sluiten of moet dat via jullie?
M.vr.gr. Cor