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

9 minuten geleden, stegisoft zei:

Ik ben hier geen specialist in.

Maar jij maak de barcode met de VBA code.

Wordt die barcode afgedrukt op etiket?

Dan met uw scanner de barcode scannen zodat je bestelling ingeboekt is?

Ik deed dat toen met de barcode van de verpakking.

Nota: een scanner kan geen cijfers lezen maar enkel barcode en zet die om in cijfers.

 

 

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

1 uur terug, Grote Woef zei:

Beste Cor,

De knop is een activeX button en het zwart omlijnde kadertje is een ActiveX textbox.

Tabblad Ontwikkelaars -> invoegen -> daar kan je betreffende elementen terugvinden

Om iets te veranderen aan de bestaande besturingselementen  ->Tabblad Ontwikkelaars -> Ontwerpmodus -> rechtermuisklik op het element dat je wilt aanpassen -> eigenschappen

De programmacode kan je vinden Blad1 -> rechter muisklik -> Programmacode weergeven

Uitleg code

Private Sub CommandButton1_Click() <- de knop
    TextBox1.Text = "" <- de textbox (zwart omlijnde kadertje wordt leeggemaakt
    ActiveSheet.ListObjects("Tabel3").Range.AutoFilter Field:=3 <- geen filter

End Sub

Tabel3 -> naam van de tabel, terug te vinden Formules -> Namen beheren

Field:=3 -> er wordt gefilterd op de waarden in de derde kolom (kolom C)

Private Sub TextBox1_Change() <-De textbox (zwart omlijnde kadertje)
    ActiveSheet.ListObjects("Tabel3").Range.AutoFilter Field:=3, _  moest het blad nog gefilterd zijn ->geen filter
    Criteria1:="*" & TextBox1.Text & "*", Operator:=xlFilterValues <- op wat moet er gefilterd worden

* is een wildcard

dus hier wordt gefilterd op de waarde ingegeven in de tekstbox en wat er eventueel voor en achter deze ingegeven waarde staat
End Sub

Hopelijk is het duidelijk

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

17 minuten geleden, Grote Woef zei:

Beste Cor,

Ik wil niet moeilijk doen, persoonlijk  zou ik het nooit zo aanpakken.

Maar goed, een paar opmerkingen.

Er ontbreken een paar sheets in uw vb bestandje , begrijpelijk want daar staan waarschijnlijk gegevens in die niet voor het forum bedoeld zijn (denk ik).

Gebruik nooit 150 rijen met gekleurde lijntjes, maak er een echte tabel van, (kan ook met oranje lijntjes) Tabel is dynamisch.

Voor vandaag

Een voorzetje, heb je meer hulp nodig, ik help je graag verder.

Volgens mij ben je op zoek naar zoiets?

Typ maar iets in het zwart omlijnde kadertje. (vb r van rosenstraat of j van Jan) niet hoofdletter gevoelig.

Laat maar iets weten.

Filter bij typen.xlsb

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