Zdravím,
a zároveň prosím o radu ohledně použití excelu ve spojení se čtečkou čárových kódů.
Jde mi o to, že mám list1 a v něm dva sloupce A a B, kde ve sloupci A může být 6, 8, 10
místné číslo kód třeba 666666 a vedle ve sloupci B je množství třeba 19.
Pak mám list2 kam např. do buňky B2 čtečkou načtu čárový kód (čtečka dělá za každým
načtením ENTER).
Potřeboval bych, aby po načtení kódu excel na listu1 porovnal ve sloupci A všechny kódy
může jich tam být cca 300 i víc, a pokud najde ten správný kód, tak ve sloupci B u toho kódu
odečet "1", tedy u kódu 666666 by po načtení bylo místo 19 množství 18.
Je to nějak pomocí funkcí nebo makra řešitelné?
Předem všem děkuji za případnou pomoc
Excel a použití čtečky čárových kódů Vyřešeno
Re: Excel a použití čtečky čárových kódů
ještě mě napadlo zkusit použít funkci SVYHLEDAT tou dokážu z listu2 buňky B2 najít v listu1 sloupci
A ten kód 666666, ale už nedokážu nijak říct, aby na tom nalezeném řádku ve sloupci B provedl "-1"
a udělal z množství 19 to množství 18
A ten kód 666666, ale už nedokážu nijak říct, aby na tom nalezeném řádku ve sloupci B provedl "-1"
a udělal z množství 19 to množství 18
Re: Excel a použití čtečky čárových kódů
Těžko říct, když sem nedáte přílohu. Z toho, jak jste to napsal mi to vychází na funkci COUNTIF. Něco jako na (v B2)Počáteční stav PocStav můžete tahat z jiné buňky či tabulky nebo napsat natvrdo (nedoporučuji).
Anebo je to všechno úplně jinak...
Kód: Vybrat vše
=PocStav-COUNTIF(List2!A1:A300;A2)
Anebo je to všechno úplně jinak...
Re: Excel a použití čtečky čárových kódů
...tak nevím jestli jsem ten COUNTIF pochopil úplně správně, ale přidal jsem tedy ještě sloupec C,
ve kterém je ta funkce COUNTIF, ale omozená na jednotlivá pole, když jsem použil celý sloupec,
tak to po zapsání odečítalo u všech množství "-1" ,takhle to odepisuje množství jen na tom řádku,
u kterého to najde shodný kód.
Jenže to neřeší úplně můj problém , množství to odečte, když je na listu2 v buňce B2 ten kód,
ale jakmile ho přepíšu za jiný odečte to množství u jiného čísla a u toho původního to vrátí množství
zpět to neumím ošetřit... a nepamatuje si to ani to odečtení, kdybych chtěl například znovu zadat
666666 mělo by to skočit z 18 na 17 a pokud to budu opakovat, tak po "1" až třeba do "-10".
Vzorový excel přikládám
ve kterém je ta funkce COUNTIF, ale omozená na jednotlivá pole, když jsem použil celý sloupec,
tak to po zapsání odečítalo u všech množství "-1" ,takhle to odepisuje množství jen na tom řádku,
u kterého to najde shodný kód.
Jenže to neřeší úplně můj problém , množství to odečte, když je na listu2 v buňce B2 ten kód,
ale jakmile ho přepíšu za jiný odečte to množství u jiného čísla a u toho původního to vrátí množství
zpět to neumím ošetřit... a nepamatuje si to ani to odečtení, kdybych chtěl například znovu zadat
666666 mělo by to skočit z 18 na 17 a pokud to budu opakovat, tak po "1" až třeba do "-10".
Vzorový excel přikládám
Re: Excel a použití čtečky čárových kódů
Mno - asi takhle. Z toho Vašeho popsání problému by se jeden zbláznil.
OK - tzn. že hodnota bude vložena vždy do té samé buňky B2? Co tedy znamená "čtečka dělá za každým načtením ENTER"? Jakým způsobem dochází k zápisu do B2 - nějaký kód VBA nebo nějaká externí aplikace?
OK - tzn. že hodnota bude vložena vždy do té samé buňky B2? Co tedy znamená "čtečka dělá za každým načtením ENTER"? Jakým způsobem dochází k zápisu do B2 - nějaký kód VBA nebo nějaká externí aplikace?
Re: Excel a použití čtečky čárových kódů
ano hodnota se načítá pořád do stejné buňky B2 a žádné makro ani externí aplikace to nedělá
Připojím USB čtečku Symbol 2208 a stačí stát v buňce B2 a načíst čárový kód a ona ten kód
tam sama vloží a je nastavená tak, že zakaždým načtením udělá ENTER, ale to se dá v té čtečce
změnit ...to jsem chtěl případně využít, třeba ke spuštění makra.
Připojím USB čtečku Symbol 2208 a stačí stát v buňce B2 a načíst čárový kód a ona ten kód
tam sama vloží a je nastavená tak, že zakaždým načtením udělá ENTER, ale to se dá v té čtečce
změnit ...to jsem chtěl případně využít, třeba ke spuštění makra.
Re: Excel a použití čtečky čárových kódů
OK. Zapomeňte na COUNTIF a zkuste přidat do modulu listu List2 tento kód
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Not IsEmpty(Target) Then
On Error Resume Next
With Sheets("List1").Cells(Application.WorksheetFunction.Match(Target.Value, Sheets("List1").Columns(1), 0), 2)
If Err.Number = 0 Then
.Value = .Value - 1
Target.ClearContents
Else
MsgBox "Neznámý kód!"
End If
End With 'Sheets("List1").Cells(Application.WorksheetFunction.Match(Target.Value, Sheets("List1").Columns(1), 0), 2)
On Error GoTo 0
End If
End If
End Sub
Re: Excel a použití čtečky čárových kódů
přidal jsem to makro do toho modulu u listu2, uložil a znovu spustil a hádám, že to makro
po spuštění excelu kontroluje tu buňku B2 a po změně to vykoná tu akci s tím odečtem
množství u daného kódu nebo to kód nenajde a vyhodí to hlášku?
Excel přikládám, ale mě to nějak nefunguje prosím o kontrolu, jestli jsem to udělal správně,
když totiž zadám správný kód nic to neodečte, a když zadám chybný, tak hlášku to
nevyhodí
po spuštění excelu kontroluje tu buňku B2 a po změně to vykoná tu akci s tím odečtem
množství u daného kódu nebo to kód nenajde a vyhodí to hlášku?
Excel přikládám, ale mě to nějak nefunguje prosím o kontrolu, jestli jsem to udělal správně,
když totiž zadám správný kód nic to neodečte, a když zadám chybný, tak hlášku to
nevyhodí
Re: Excel a použití čtečky čárových kódů
Špatné místo
- Přílohy
-
- zkouska (1).xls
- (61.5 KiB) Staženo 396 x
Re: Excel a použití čtečky čárových kódů Vyřešeno
aha, tak to bylo těsně vedle, teď už to chápu... tohle makro funguje úplně perfektně a přesně tak,
jak jsem potřeboval, prostě super.
Děkuji mnohokrát za pomoc, tohle můj problém vyřešilo a zamykám.
jak jsem potřeboval, prostě super.
Děkuji mnohokrát za pomoc, tohle můj problém vyřešilo a zamykám.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
NT pro běžné domácí použití. Jde sehnat do cca 15 000Kč?
od elfin52 » 12 led 2024 22:00 » v Rady s výběrem hw a sestavením PC - 0
- 1160
-
od elfin52
Zobrazit poslední příspěvek
12 led 2024 22:00
-
-
- 16
- 7231
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 1
- 939
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 4000
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 2
- 2245
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti