Goedemiddag iedereen,

Voor een nieuw projectje ben ik via vba iets aan het proberen in elkaar te puzzelen maar ik loop een beetje vast.

Enerzijds heb ik een werkblad met een raster (telpatroon) met meerdere groepjes van telkens 100 cellen (10 x 10 cellen).
Anderzijds heb ik een UF met meerdere commandbuttons (aantal varieert per project) die als “caption” de waarde krijgen
van een bepaalde kolom cellen met waardes (telkens een letter ofwel een cijfer) vermeld op een tweede werkblad
+ 2 extra commandbuttons (“del” en “ok”).

De bedoeling is dat ik het volgende kan doen :
Ik selecteer de 1e cel van een bepaalde groep van 100 cellen en maak dan een toetsencombinatie op het UF dmv achtereenvolgens
indrukken van de corresponderende commandbuttons (wat, vermoed ik, in het geheugen opgeslagen moet worden via array of collection)
en welk na het klikken van de “ok”-commandbutton dient weggeschreven te worden op het werkblad in het groepje van 100 cellen
in de richting links naar rechts (1 tot 10) en boven naar onder (1 tot 10) te beginnen bij de eerder geselecteerde 1e cel.
De “del” commandbutton dient om een eventuele foute ingave onmiddellijk opnieuw te wissen.

Is het in eerste instantie mogelijk om een toetsencombinatie op een UF in een array of collection te plaatsen en vervolgens weg te
schrijven in de gewenste volgorde op de gekozen locatie? Zo ja, hoe pak ik dit het beste aan?

Zo niet, is er eventueel een andere mogelijkheid om het gewenste resultaat te bereiken?
Ik heb dus een telpatroon op papier dat ik wil overbrengen op een werkblad maar om elk vakje handmatig in te vullen (ruim 27000 vakjes
voor het eerste deel van 6 delen van het project) zou gewoon gigantisch lang duren. Vandaar dat ik een manier bedacht om via muisklikjes
(buttons op een UF) het overbrengen sneller en vlotter te laten verlopen.

In bijlage stuur ik een (uitgedund) testbestandje :
Werkblad “testjes” bevat het betreffende raster (telpatroon) en werkblad “dmcprjct” bevat de kolom met waardes die als ‘caption’ van de
commandbuttons worden opgenomen op het UF.
Het UF opent automatisch (.Show) bij het activeren van het werkblad “testjes” en verdwijnt weer (.Hide) bij het activeren van het werkblad “dmcprjct”.

Alvast mijn oprechte dank op voorhand voor enige hulp, tips en/of meedenken.

Groetjes,
BlackDevil

Hey Molly,

Inderdaad al ff geleden  ... het zijn zeer drukke maanden geweest waarbij ik begin januari mijn toenmalig borduurproject (huwkado dochter) dat voor 95% afgewerkt was, door omstandigheden volledig van nul moest herbeginnen met amper 5 maanden tot de deadline. Ik heb hem net gehaald (3 dagen voor het huwelijk laatste steek geborduurd  ) en het huwelijk is ondertussen al 10 dagen geleden. (ze waren superblij met het cadeau en vonden het prachtig  ).

Back on topic....
Ik zal inderdaad per vierkant 100x op een knop moeten klikken, vaak dezelfde knop na elkaar...

Nadat ik het topic hier gestart was deze middag ben ik ook nog blijven zoeken op het internet en daaruit was me al duidelijk geworden dat het gewenste enkel
via een klasse-module mogelijk zou zijn...
Echter, zoals je zegt, vba voor gevorderden en ik ben nog steeds mààr een amateurtje  dus had totaal geen idee hoe zulke klasse-module in zen werk ging.

Ik heb jouw versie eventjes bekeken en uitgetest en dit komt inderdaad al heel kort in de buurt van waar ik heen wil...
Ik heb wel één klein detail opgemerkt...
Als ik een reeks knoppen heb aangeklikt waarbij de laatste meerdere keren na mekaar dan geeft hij in de msg-box altijd 1x minder weer dan het aantal dat
ik heb aangeklikt... Dus als ik als laatste een knop 3x aanklik dan geeft hij maar 2x het resultaat weer.
Enkel als ik na die reeks, van meerdere keren dezelfde knop, nog een andere knop aanklik geeft hij het juiste aantal keren geklikt weer...
Dus dat ga ik eventjes moeten uitzoeken wat daar de oorzaak van kan zijn.

Verder zal ik ook al eens kijken hoe ik die "del" functie kan toevoegen en hoe ik dan het resultaat weggeschreven krijg in het juiste vierkant op het werkblad
in de juiste richting ipv via de msg-box.

Ik laat mijn verdere vorderingen en/of bijkomende vragen zeker hier nog weten.

Sowieso al van harte dank voor de grote aanzet in de juiste richting 

groetjes,
BlackDevil

Hey Molly,

  inderdaad, had zelf ook ondertussen gemerkt dat het met mijn kliksnelheid te maken had 

Aangezien ik van mezelf weet dat ik het "vooruit" wil laten gaan en automatisch vrij snel zal klikken neem ik alvast
jouw kleine toevoeging mee (heb het getest en dit werkt perfect om mijn sneller geklik op te vangen  ).

Ik had inderdaad het nut van de msg-box meteen door 

Jouw twee tips (2e del-knop voor een complete reeks te wissen én een textbox om de reeks zichtbaar te houden) zijn
inderdaad zeker nuttig om niet te zeggen noodzakelijk .
Dit zijn twee zaken die ik vermoedelijk zelf ook nog zou willen toevoegen hebben in de loop van de codering maar
ik was momenteel voornamelijk gefocust om in eerste instantie de algemene werking aan de praat te krijgen  .

De code voor die eerste "del"-knop had ik ondertussen al werkend gekregen en was nu volop bezig om het geheel
weggeschreven te krijgen op het werkblad.
Maar ik zal nu eerst die 2e "del"-knop en de textbox toevoegen aan het UF.

Ik hou je verder op de hoogte,

groetjes,
BlackDevil

Hey Molly,

Ik zie nu pas (20u35) je berichtje toen ik zelf een update wou plaatsen na enkele uurtjes goed gefocust doorgewerkt te hebben aan het bestand  ....

Zoals je reeds voorspelde is het in principe af (al kan de code volgens mij wel een pak mooier en efficiënter afgewerkt worden dan wat dit amateurtje er nu op enkele uurtjes van terecht heeft gebracht  ).

Ze zeggen altijd 'great minds think alike' ... wel, jouw laatste extra ideetje had ik ondertussen reeds zelf al toegevoegd aan mijn UF omdat ik zo iets had van "kunnen opvolgen welke reeks ik reeds ingevoerd heb is één zaak maar tzou toch ook handig zijn om te weten hoe lang de reeks nu uiteindelijk reeds is".

In bijlage mijn (voorlopig) afgewerkt testbestandje in afwachting van wat eventuele verfijning van de code  .


groetjes,
BlackDevil

@allen,

Ik heb nog een klein vraagje ivm de textbox om de invoer te kunnen volgen...
Met welke eigenschap/code kan ik ervoor zorgen dat ik altijd het laatste deel
van de ingevoerde reeks te zien krijg?
Nu zie ik enkel de eerste 26 karakters en al wat ik erna nog invoer zie ik niet meer.
Hoe zorg ik ervoor dat het reeds ingevoerde naar links verschuift telkens ik een extra
karakter invoer?

groetjes,
BlackDevil

@ JEC,

Inderdaad fijne aanvulling
Ik zou dan nog één stapje verder gaan en de DEL- en OK-knoppen daarvan uitsluiten. In mijn eigen versie heb ik dat al gedaan, maar BlackDevil staat ondertussen al een stuk verder, dus die houden we achter de hand

Mvg,
Molly

Hoi BlackDevil,

De TextAlign instellen op rechts maakte totaal geen verschil

Inderdaad, een beetje raar, want als je daar zelf tekst invoert (wat uiteraard niet de bedoeling is, dus bij wijze van test) maakt het wél een verschil. Het zal ook wel op te lossen zijn, maar aangezien het door je nieuwe plan om per 10 tekens te werken achterhaald is, ga ik er ook niet meteen naar zoeken

Het ziet er ondertussen zeker goed uit , het enige dat ik nog zou durven wijzigen is om bij "OK" klikken toch eerst een controle toevoegen of er écht wel 10 tekens klaar staan om weg te schrijven (vooral omdat je dat blijkbaar duizenden keren zal doen - ik spreek vooral voor mezelf: concentratie durft wel eens een beetje wegvloeien bij routinewerk )

Zag je ook nog heil in de suggestie van JEC? Anders wil ik die ook wel nog inbouwen voor je.

Groetjes,
Molly

Hoi BlackDevil,

Dus dat mag je zeker ook nog inbouwen

Versie 4.1 dus

extra controle achter de "ok" knop ... niet zo handig zijn, integendeel zelfs

Die snap ik even niet (hoeft natuurlijk ook niet), want die zou zonder dat je het merkt uitgevoerd worden. Enkel als je per ongeluk ooit eens OK drukt en je niet aan 10 zit zou er een reactie komen. Trouwens, ik zou het natuurlijk wél snappen als je soms bewust minder dan 10 tekens wil laten verwerken.

Met ondertussen te hebben gekookt, gegeten én afgewassen is er nog een vleugje nieuwe inspiratie ontstaan. In wat op je werkblad al verwerkt is (aangenomen dat dit een realistisch resultaat is) zie ik heel vaak reeksen van 10 identieke karakters, dat zijn dus telkens 10 kliks? Wat als we die tot 2 kliks herleiden?

Mogelijk verklaar je me nu gek, want compleet out of the box: je hebt het al helemaal op papier? zou het niet mogelijk zijn dat in te scannen met tekstherkenning?
Het zou kunnen betekenen: gedaan met (6 x 27000 maal) klikken, enkel herbeginnen met code schrijven

Groetjes,
Molly