Excel a použití čtečky čárových kódů

[jiri255]

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

[jiri255]

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

[eLCHa]

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)

Kód: Vybrat vše

=PocStav-COUNTIF(List2!A1:A300;A2)

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...

[jiri255]

...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

zkouska.xls

(47 KiB) Staženo 156 x

[eLCHa]

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?

[jiri255]

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.

[eLCHa]

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

[jiri255]

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í

zkouska.xls

(57.5 KiB) Staženo 153 x

[eLCHa]

Špatné místo

[jiri255]

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.