artikelnummers vergelijken

[amh]

Doormiddel van een Userform voer ik gegevens in een artikelen bestand in, daar er op dit moment meer dan 2500 artikelen in staan wil ik de code uitbreiden met een zoekfunctie die mijn ingevoerde barcode eerst controleerd op aanwezigheid, en zoja dit ook aangeeft d.m.v. MsgBox Indien niet aanwezig kan ik gewoon het artikel als nieuw invoeren
Het lijkt mij niet moeilijk, maar met mijn minimale VBA kennis ben ik met VLOOKUP bezig geweest maar het lukt niet.
Wie kan mij helpen?
Als optie zou tijdens het inscannen een al aanwezig artikel direct ingevoerd moeten worden in de textboxen, zodat ik het kan wijzigen en overschrijven Bekijk bijlage userformprobeer.xls

 

[Warme bakkertje]

Private Sub OKButton_Click()


Dim EmptyRow As Long

'Make Sheet1 Active
Sheets(1).Activate

'Lege rij opzoeken
EmptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
With Sheets("Sheet1").Columns(2)
    If Not .Find(TextBoxBarcode, , xlValues, xlWhole) Is Nothing Then
        MsgBox "Het gekozen nummer bestaat reeds !": Exit Sub
    Else
'Export Data to worksheet
Cells(EmptyRow, 2).Value = TextBoxBarcode.Value
Cells(EmptyRow, 3).Value = TextBoxNaam.Value
Cells(EmptyRow, 5).Value = TextBoxPrijs.Value
Cells(EmptyRow, 6).Value = ListBoxGroep.Value
Cells(EmptyRow, 4).Value = TextBoxAantal.Value
    End If
 End With

End Sub

 

[ExcelAmateur]

amh,

Bedoel je het zo?
Voer een nummer in en hij zegt gelijk of die al aanwezig is.

 

[amh]

artikel vergelijken

He warme bakker en exelamateur,
perfekte oplossing en toch heel simpel, er is nog veel te leren voor mij
bedankt,
maar volgende vraag is wat ik al een beetje aangaf, als ik een aanwezig artikel tegen kom tijdens inscannen, is het de bedoeling dat het aantal van het reeds bestaande artikel opgehoogt word (Ik breng op dat moment de voorraad omhoog)Dus als progr. een bestaand artikel tegenkomt moet de vraag komen met hoeveel items het bestaande artikel opgehoogd moet worden. en dat dus ook doorvoerd.
Ik ben benieuwd

AmH

 

[ExcelAmateur]

amh,

Kijk eens wat je er zo van vind.
Ik heb een formulier gemaakt voor het toevoegen van het aantal.
Voer een ArtikelNummer in en druk op de TabToets.
De naam van het artikel word dan getoont.
Vul het aantal in en klik op Aantal toevoegen en het aantal word bijgewerkt.

 

[amh]

voorraad aanpassen

He Bedankt EA;
het probeer programmaatje werkt perfekt, en zo kan ik er wel mee werken, al was mijn bedoeling dat het ophogen van het aantal in hetzelfde Userform zou kunnen. Maar het is een kleine moeite en switch in geval van een bestaand artikel even naar de andere userform middels de knop. Groter probleem is, dat als ik jou toegevoegde stukje code in het officiele prog. copieer, loopt programma vast op regel "With Sheet1.Range("B2:B50") Ook als ik jou waarde van 50 ophoog tot 4900 (> aantal aanwezige artikelen) geeft ie een fout. Ook voerd ie soms gewoon bestaande artikelen in b.v 123456.
Wat doe ik verkeerd.
sluit het complete prog. even bij met onzin namen en barcodes Let wel, de echte barcodes zijn ook niet evenlang, en staan niet op volgorde, kan dat het probleem zijn.Bekijk bijlage artikelenvoorraad01.xlsx

Met vriendelijke groet AmH

 

[ExcelAmateur]

amh,

Ik denk dat het door de verschillende lengte van de Barcode komt.
Misschien dat het stukje code van Warme bakkertje beter werkt, bij mij kijkt hij of het nummer bestaat bij een lengte van 7 tekens.

Ik denk dat deze regel zo wel werkt.

With Sheets("artikelen").Range("B2:B250")

Ik zie geen macro in je bestandje.

 

[amh]

artikelen voorraad

Beste EA

Bedankt voor je moeite, het ophogen van de artikelen lijst lukt waarschijnlijk wel met jou userform. dus dat kan ik gebruiken.
de oplossing van het warmebakkertje werkte ook niet in het complete programma
code stopt bij regel - With Sheets("Sheet1").Columns(2) - en geeft melding
Fout 9 tijdens uitvoering; Het subscribt valt buiten het bereik."
terwijl ik nog steeds in het eerste sheet zit te werken, en zoek in de tweede kolom
Weet even niet hoe hier mee aan.
Ook deze oplossing werkt perfekt in het voorbeeld programma (vreemd)
Dat je geen macro's ziet, komt omdat ik het bestand met extensie xlsm niet kon invoegen (zal een beveiliging van het forum zijn) had het dus als xlsx meegestuurd waardoor de macro's niet meer werken. had het ook als RAR moeten meesturen.
bedankt voor het zoekwerk,
Misschien zie je nog een oplossing voor genoemde foutmelding.

Met vriendelijke groet AmH

 

[ExcelAmateur]

amh,

het ophogen van de artikelen lijst lukt waarschijnlijk wel met jou userform

Zoals het nu is werkt mijn Userform.

Als je de naam van het blad veranderd moet je dit ook in de code doen.
De fout melding in het stukje code van Warme bakkertje kom ook daar door, zie het rode.

With Sheets("Sheet1").Columns(2)
With Sheets("[COLOR="red"]artikelen[/COLOR]").Columns(2)

Een bestand met extensie .xlsm moet je inpakken, word hier niet toegelaten.

 

[amh]

Artikelen vergelijken

Sorry, had ik zelf ook kunnen bedenken.
Bedankt voor de tip.

Met vriendelijke groet,

AmH