Cor-Assa

Helaas Grote Woef deze werkt niet, alle streepjescodes zijn hetzelfde, ook staat er nog een + achter de streepjes. M.vr.gr. Cor Assa

Beste stegisoft, dat is mij bekend, maar de bedoeling is dat met een combinatie van hp-nummer en postcode een barcode gegenereerd wordt met de VBA code. Een cel font omzetten naar EAN code is niet voldoende die is niet te scannen. De barcode wordt naderhand met adres gegevens op een etiket uitgeprint. M.vr.gr. Cor Assa

Sorry had niet alles gekopieerd, bij deze. Barcode zelf maken[bewerken] VBA[bewerken] Gebruik: Te gebruiken lettertype bij deze code: Code EAN-13 van Eaglefonts Met of zonder controlecijfer, dit wordt ALTIJD gegenereerd. VBA: EANtekst = EAN(MijnString) EANtekst = EAN("12345") EANtekst = EAN("1234567890123") Excel (in cellen): =EAN(MijnCel) Function EAN(Invoer As String) As String Dim C(1 To 13), CS, i As Integer Const L = 65, G = 75, R = 97 ' Opruimen Invoer = Right(String(12, "0") & Left(Invoer, 12), 12) ' Klaarzetten For i = 1 To 12 C(i) = Val(Mid(Invoer, i, 1)) Next 'CheckSum maken CS = C(1) + C(3) + C(5) + C(7) + C(9) + C(11) + ((C(2) + C(4) + C(6) + C(8) + C(10) + C(12)) * 3) 'Controlegetal genereren C(13) = (10 - (CS Mod 10)) Mod 10 '1e cijfer EAN = Left(Invoer, 1) '2e t/m 7e cijfer EAN = EAN & Chr(C(2) + Choose(C(1) + 1, L, L, L, L, L, L, L, L, L, L)) EAN = EAN & Chr(C(3) + Choose(C(1) + 1, L, L, L, L, G, G, G, G, G, G)) EAN = EAN & Chr(C(4) + Choose(C(1) + 1, L, G, G, G, L, G, G, L, L, G)) EAN = EAN & Chr(C(5) + Choose(C(1) + 1, L, L, G, G, L, L, G, G, G, L)) EAN = EAN & Chr(C(6) + Choose(C(1) + 1, L, G, L, G, G, L, L, L, G, G)) EAN = EAN & Chr(C(7) + Choose(C(1) + 1, L, G, G, L, G, G, L, G, L, L)) 'Middelste scheiding EAN = EAN & "*" 'Rechtse cijfers EAN = EAN & Chr(C(8) + R) & Chr(C(9) + R) & Chr(C(10) + R) & Chr(C(11) + R) & Chr(C(12) + R) & Chr(C(13) + R) 'Afsluiten EAN = EAN & "+" End Function

De optie bestand toevoegen is er ineens weer? Waarom was die er gisteren niet? M.vr.gr. Cor Assa Gasten-Lijst Meista 05-05-2018 test.xlsm

Ik ben onderstaande tekst tegen gekomen maar snap het nog niet helemaal. Function EAN(Invoer As String) As String Dim C(1 To 13), CS, i As Integer Const L = 65, G = 75, R = 97 ' Opruimen Invoer = Right(String(12, "0") & Left(Invoer, 12), 12) ' Klaarzetten For i = 1 To 12 C(i) = Val(Mid(Invoer, i, 1)) Next 'CheckSum maken CS = C(1) + C(3) + C(5) + C(7) + C(9) + C(11) + ((C(2) + C(4) + C(6) + C(8) + C(10) + C(12)) * 3) 'Controlegetal genereren C(13) = (10 - (CS Mod 10)) Mod 10 '1e cijfer EAN = Left(Invoer, 1) '2e t/m 7e cijfer EAN = EAN & Chr(C(2) + Choose(C(1) + 1, L, L, L, L, L, L, L, L, L, L)) EAN = EAN & Chr(C(3) + Choose(C(1) + 1, L, L, L, L, G, G, G, G, G, G)) EAN = EAN & Chr(C(4) + Choose(C(1) + 1, L, G, G, G, L, G, G, L, L, G)) EAN = EAN & Chr(C(5) + Choose(C(1) + 1, L, L, G, G, L, L, G, G, G, L)) EAN = EAN & Chr(C(6) + Choose(C(1) + 1, L, G, L, G, G, L, L, L, G, G)) EAN = EAN & Chr(C(7) + Choose(C(1) + 1, L, G, G, L, G, G, L, G, L, L)) 'Middelste scheiding EAN = EAN & "*" 'Rechtse cijfers EAN = EAN & Chr(C(8) + R) & Chr(C(9) + R) & Chr(C(10) + R) & Chr(C(11) + R) & Chr(C(12) + R) & Chr(C(13) + R) 'Afsluiten EAN = EAN & "+" End Function

Beste stegisoft, met de ean13 mag je wel degelijk vrij zelf codes maken, daarvoor zijn er o.a. ook de generators die aangeboden worden. Bepaalde sets codes zijn echter geregistreerd en die zijn verboden. Ik wil de codes die ik in excel wil genereren gebruiken om toegangs kaartjes te maken. Ben al zo ver dat ik ze met een generator kan produceren en inplakken, maar dat moet automatisch in excel gaan. Dat lukt me al met de 39 code maar deze is voor mijn doel te groot vandaar dat ik de 13 wil gebruiken. M.vr.gr. Cor Assa

Beste Excel vrienden, Ik heb een excel bestand daar zitten diverse kolommen met data in. Nu heb ik de data van 2 kolommen samengevoegd om daarvan een ean13 barcode te genereren. Zo staat er b.v.b. in cel F10 de cijfers van een postcode v.b. 5638 In cel I10 staat een gsm nummer v.b. 687349812 Deze 2 heb ik samen gevoegd in cel Q10, dan staat er 6873498125638 Nu is het de bedoeling dat in cel P10 een ean13 barcode gegenereerd wordt. Alleen het lettertype aanpassen naar ean13 werkt niet dan kan de scanner m niet lezen. Wie weet een goede oplossing, de opties via google werken tot op heden niet. M.vr.gr. Cor Assa

Ik kom nog een klein probleempje tegen. Als de ingevoerde gegevens in het ActiveX textbox handmatig gedelete worden dan blijft het filter actief staan met alles gedeselecteerd. Dit is niet met de resetknop voor het filter te herstellen, dan moet je het filter weer handmatig instellen. Is hier een oplossing voor in de reset knop? B.v.d. Cor

Alles werkt perfect, nu kom ik echter een ander probleem tegen. Als ik het werkblad beveiligd doet hij het niet dan moet ik de beveiliging uitzetten. Hoe los ik dit op, welke optie moet ik in de beveiliging vrij geven of gaat dit helemaal niet? M.vr.gr. Cor

Bedankt Grote Woef, precies wat ik bedoelde. Nu nog uitzoeken hoe jij dat gedaan hebt. Het lukt me bijna maar toch net niet, op de ene kolom wel en dan de andere weer niet. Ga het eens rustig ontleden. Nogmaals bedankt en straks een fijne jaarwisseling.

Na vele dagen zoeken lijk het dat ik de oplossing gevonden te hebben HOE ik het moet doen, https://www.exhelp.be/vba/filteren-tijdens-het-typen-vba/ Bedankt voor de hulp Grote Woef door jou weet ik in welke richting ik moest zoeken.

Beste Grote Woef, Begin me een beetje te schamen, het wil nog steeds niet lukken. Ik heb eerst Namen gedefinieerd op mijn kolom Achternaam en het bladbereik opgegeven. Toen de Active-X knop gemaakt onder de cel Achternaam. Gaarna de Active-X textknop en het bereik opgegeven. Als ik nu wat intik in het textvak krijg ik gelijk een vba error. Als ik de filter inschakel verdwijnt alles behalve de gevulde cellen. Wat doe ik fout. Gasten-Lijst Meista 05-05-2018.xlsm

Duidelijk bedankt.

Oke bedankt, maar opgeslagen als binaire accepeert hij dan ook de macro's? Wat adviseer jij? M.vr.gr. cor

Ik zie dat het bestand is opgeslagen als binaire werkmap, kan ik dat gewoon wijzigen naar opgeslagen met macro's of geeft dat problemen? Deze is namelijk nieuw voor mij. M.vr.gr. Cor

Bedankt Grote Woef, hier kan ik wat mee het meeste begrijp ik zo ga het vanavond uitproberen. M.vr.gr. Cor

Beste Grote Woef, nu ben ik benieuwd hoe jij dat gedaan hebt, kan het zo even niet vinden? M.vr.gr. Cor

Alvast bedankt, ga het eens bekijken. En de mening van een ander is altijd belangrijk, die kijkt er anders tegenaan dan degene die het maakt. M.vr.gr. Cor Was snel gezien, fantastisch is precies wat ik bedoeld.

Alvast bedankt, ga het eens bekijken. En de mening van een ander is altijd belangrijk, die kijkt er anders tegenaan dan degene die het maakt. M.vr.gr. Cor

Hoop dat je hier iets mee kan, dit is mijn bestand. De bedoeling is niet dat d.m.v. de filter optie in het gegevens menu die hele optie lijst komt maar direct de filtering d.m.v. de ingegeven waarde in cel B4 gebruikt wordt. Gasten-Lijst Meista 05-05-2018.xlsm

Beste mensen, ik ben op zoek naar een oplossing in Excel 2010 een filter toe te passen. Nu is het mijn bedoeling dat ik in een cel een bepaalde waarde invoer en dat dan alleen de gegevens van die rij beschikbaar worden en de rest onzichtbaar wordt. Nu heb ik gevonden dat dat goed gaat met de Filter knop in het tabblad gegevens, alleen geeft die er nog meer opties bij zoals sorteren en dat wil ik niet. Hoe krijg ik het voor elkaar dat ik in b.v.b. cel A1 een naam invoer en dat de regel er onder alleen de gegevens van de genoemde waarde verschijnt? B.v.d. Cor