quote]omdat er maar 4 bijlages kunnen geplaatst worden[/quote]
Je kan altijd Wetransfer gebruiken en hier een linkje plaatsen.
https://wetransfer.com/

Jou pogingen schieten inderdaad niet echt op als ik de pdf bekijk.
In bijlage een paar SVG bestanden die al in het TTF bestand zitten.

@pagadder,


Dat ziet er inderdaad veel beter uit dan de resultaten die ik verkregen heb met de online conversies 

Laat maar weten wat ik jou eventueel nog kan bezorgen om het proces efficiënter te maken.


groetjes,
BlackDevil

@Pagadder,

In bijlage een rar-file met alle 150 svg-files  .

Enorm bedankt dat je dit wil doen voor mij   


groetjes,
BlackDevil

Nen ouwe sasa die niet graag in de tuin werkt moet zich toch met iets bezighouden.

***UPDATE*** inzake opbouw sjabloon-bestand

Zowel de sub voor het maken van het raster als voor het opzoeken van de RGB-codes zijn succesvol afgewerkt doch dienen ze nog correct gekoppeld te worden tussen UF_nieuw en mod_nieuw.
Ik hang alvast een recente versie (2.1) aan.

Mijn volgende stap is een UF-je voor het toewijzen van de symbolen en dan de UF voor het inkleuren van het raster ontwerpen.


groetjes,
BlackDevil

Dag Molly,

Betreft verdere inkorting van “sub rastermaken()” neem ik de aanpassingen mee in mijn laatste versie (momenteel 2.2).

Inzake de “sub dmctorgb()” heb ik dat gebruik van “gevonden = false/true” overgenomen van iemand die mij jaren geleden met een ander project had geholpen waarbij de bedoeling louter was om aan VBA duidelijk te maken wat er moest gebeuren bij waarde ‘false’ en wat er moest gebeuren bij waarde ‘true’.
Naarmate mijn kennis voor VBA toenam heb ik daar eigenlijk nooit verder bij stil gestaan van het effect en/of gevolgen van dat gebruik.
Na jouw bemerking hierover was ik eens gaan testen wat de sub doet als ik een onbestaand nummer opgeef en toen merkte ik eigenlijk een ander (al dan niet gerelateerd aan dat “gevonden”-gebruik) resultaats-probleem op.
Namelijk het DMC-nr “38” is onbestaande in de DMC-nrs maar toch geeft de sub hierbij een resultaat, namelijk van de eerste cel waar “38” in voorkomt, in dit geval dmc-nr 738 wat dus een compleet fout resultaat is.
Dus zou er eigenlijk in de controle (of het nr wel bestaande is) moeten voorzien worden dat het echt wel een exacte match moet zijn. En die controle (of het nr wel bestaande is) zou dan inderdaad misschien wel beter onmiddellijk binnen de UF gebeuren maar die code-structuur gaat dan toch even mijn petje te boven ;-) .
Anderzijds is er ook nog het probleem dat er altijd een typ-fout kan gemaakt worden en dat het ingevoerde nr wel degelijk bestaat maar dat het ingevoerde nr gewoon een verkeerd nr is maar hoe ik die controle dan moet implementeren in de code is mij een compleet raadsel . Dat zal dan puur op grobdige handmatige controle moeten neerkomen denk ik .

Omdat mijn UF’s voor de symbool-keuze enerzijds en voor het inkleuren van het patroon anderzijds reeds afgwerkt zijn (sinds gisterenavond al) en er nu best eerst eventjes verder wordt gecodeerd (om te voorkomen dat ik nav gewijzigde code mijn verdere ontwerpen volledig zou moeten wijzigen) voeg ik mijn recentste versie 2.2 (mét bijgewerkte sub rastermaken) ook alvast nog eens toe.

Dus eerst en vooral is het nu die ‘sub dmctorgb()’ eens grondig ontleden en herschrijven.


Groetjes,
BlackDevil

Hoi BlackDevil,

Ja hoor, zonet ook 2.2 bekeken

gebruik van “gevonden = false/true” overgenomen van iemand die mij jaren geleden met een ander project had geholpen

Daar is ook niets mis mee! De kwestie is dat 'gevonden' zomaar een variabele is en 'false' of 'true' zomaar waarden. VBA zal daar niets spontaan mee doen, het komt mij meer over als een duidelijke manier om de code te begrijpen, dus afhankelijk van die waarden kan je coderen wat er verder moet gebeuren.

Anderzijds is er ook nog het probleem dat er altijd een typ-fout kan gemaakt worden en dat het ingevoerde nr wel degelijk bestaat maar dat het ingevoerde nr gewoon een verkeerd nr is

Dát krijg je natuurlijk nooit goed, want dan zou vba al in je hoofd moeten kunnen kijken, maar dat voelde je zelf ook al

het DMC-nr “38” is onbestaande in de DMC-nrs maar toch geeft de sub hierbij een resultaat, namelijk van de eerste cel waar “38” in voorkomt, in dit geval dmc-nr 738

Dat daarentegen mag geen probleem zijn, met een kleine toevoeging aan de Find-methode lukt dat al:
Set doel = .Range("a2:a490").Find(arDMC(nr), lookat:=xlWhole)

En die controle (of het nr wel bestaande is) zou dan inderdaad misschien wel beter onmiddellijk binnen de UF gebeuren maar die code-structuur gaat dan toch even mijn petje te boven

Dat komt ook wel goed, ik kijk wel eens wat de beste aanpak is, maar wou je de bovenstaande liever al meteen meegeven.

Groetjes,
Molly

__VERVOLG_2__

Ik kon het (helaas? ) niet laten (was heel weinig werk) om het als voorbeeldje uit te werken. Ik heb wel zo maar ergens een listbox zonder franjes neergezet.
Sub 'dmctorgb' bestaat nog enkel als commentaar, de volledige code zit onder CommandButton3_Click van UF_nieuw.
Controles en arrays zijn daarmee allemaal overbodig geworden. Bekijk het misschien gewoon eens als principe.
Opschonen kan later nog altijd mits goedkeuring

Groetjes,
Molly

__VERVOLG_2__

Ik kon het (helaas? ) niet laten (was heel weinig werk) om het als voorbeeldje uit te werken. Ik heb wel zo maar ergens een listbox zonder franjes neergezet.
Sub 'dmctorgb' bestaat nog enkel als commentaar, de volledige code zit onder CommandButton3_Click van UF_nieuw.
Controles en arrays zijn daarmee allemaal overbodig geworden. Bekijk het misschien gewoon eens als principe.
Opschonen kan later nog altijd mits goedkeuring

Groetjes,
Molly

Bekeken en goedgekeurd   

Ik zal me dan eventjes bezighouden met het aanpassen van het ontwerp van het UF_nieuw en voeg ik het resultaat hier nog eens toe.

groetjes,
BlackDevil