MS Excel

Zdravím vás,

potřeboval bych poradit s touto věcí (přikládám soubor). Mám čárové kódy. V čárovém kódu je zafixované ID zaměstnance. V praxi to vypadá takto:

Příjdu, vezmu skener, naskenuji čárový kód zaměstnance a do tabulky se mi podle funkcí Svyhledat doplní jméno a příjmení. Potřeboval bych ještě ale také do tabulky automaticky doplnit aktualní datum a čas, kdy jsem sken provedl. Zkoušel jsem to přes =KDYŽ(A1=nějaká hodnota;=NYNÍ();"0") ... nějak takto. akorád nevím, jak mám v jazyku excelu napsat to "nějaká hodnota" a obecně, jestli to takto vůbec mohu udělat.

Děkuji za rady.

Zaslat odpověď >

Strana: 1 2 další »

Nekdo(23.5.2018 12:21)#040440

Když(A1<>"";.......citovat

Rejpal(23.5.2018 12:40)#040441

Zdravím, vzorec "NYNÍ" si myslím, že není ten pravý, jelikož se soustavně aktualizuje, při přepočtu listu. Použil bych raději makro na změnu v listu.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value <> "" Then Target.Offset(0, 3).Value = Format$(Now, "dd/mm/yyyy hh:nn:ss")
End If
End Subcitovat

1Novacek1(23.5.2018 12:45)#040442

Zdravím,

díky za odpovědi.

S =NYNÍ() máš pravdu, že se aktualizuje. To jsem neveděl. Zkusil bych tvé makro. Ale upřímně nechápu, co dělá. S makry zkušenost nemám. Jak ho vložit do modulu vím, ale co teď mám udělat, aby se mi po naskenování ID oběvilo ve sloupci aktuální datum, nevím.

Díkycitovat

elninoslov(23.5.2018 12:48)#040443

Vzorcom to fungovať nebude. Vzorec sa aktualizuje pri každom prepočítaní listu, teda by tam bol vždy aktuálny dátum, nie ten čo bol pri naskenovaní. Vzorec dokáže uchovať vlastnú hodnotu iba ak je zapnutý Iteračný výpočet v Nastaveniach Excelu. Problém ale je pri prenose takého súboru inde ako na takto nastavený Excel. Riešenie vidím v makre. Príklad, ktorý zvládne aj hromadné zmeny v A (Vám by stačilo na 1 bunku), pričom pri prázdnej A maže D, pri nejakej hodnote v A zapíše čas do D, všetko v daných riadkoch.

Inak vzorec pre Iteračný výpočet by mohol byť zhruba
=IF(A2<>"";IF(D2<>"";D2;NOW());"")
=KDYŽ(A2<>"";KDYŽ(D2<>"";D2;NYNÍ());"")

EDIT: Neskoro. Kým som to dopísal, už to tu máte :)

Příloha: zip

40443_40439_akt_datum.zip (14kB, staženo 43x)

citovat

Rejpal(23.5.2018 12:50)#040444

Zdravím, tento kod se nedává do modulu, ale přímo do listu.citovat

1Novacek1(23.5.2018 13:20)#040445

Super, moc děkuji :) přesně toto jsem potřeboval.

napadl mě ještě jeden dotaz. Příklad:

Naskenuju si třeba v pondělí 10 ID čísel a začal jsem na řádku 1. V úterý jdu skenovat znova a zase musím naskenovat 10 ID čísel. Jenže musím myškou označit buňku, která je na 11 řádku. Jde nějak nastavit, aby hned po spuštění excenu byla aktivní buňka (zeleně ohraničená) první volná v určitém sloupci? Abych jen naskenoval kod a hned se mi ulozil na 11 pozici? Chci se vyhnout tomu, že budu muset ještě myší označit první volnou pozici. Prostě jen otevřít excel a hned začít skenovat...

PS: V realitě se jedná o program pro lidi ve výrobě, na skenování výrobků... Musíme jím to co nejvííííce zjednodušit a doslova každý klik co je navíc je hodně diskutován, zda je opravdu potřeba -> každý klik je potenciální chyba.

Napadá někoho, jak hned po spuštění excelu se označí první možná volná buňka a né bunka (1,1)?

Díky moccitovat

Rejpal(23.5.2018 13:28)#040446

Například takto -
Private Sub Workbook_Open()
PrazdnyRadek = List1.Range("A1").End(xlDown).Row + 1 ' Ve sloupci A
List1.Range("A" & PrazdnyRadek).Activate
End Sub
Kod se dává do "ThisWorkbook"citovat

Rejpal(23.5.2018 13:43)#040447

Taková maličkost, posun při skenování je nějak zajištěn?citovat

1Novacek1(23.5.2018 14:10)#040449

Rejpal:

přikládám obrázek tabulky. V kodu pises něco o prazdnem řadku. On ten řádek ale prázný není, protože je všech buňkách #neni k dispozici. Ve všech buňkách je natažený vzorec SVYHLEDAT a proto tam je to #není k dispozici. Jak naskenuji kod, tak se #neni k dispozici změní v normální data... Neovlivní právě toto #není k dispozici tvůj kod? Protože po vložení kodu do ThisWorkbook a ulozeni a naslednem otevreni souboru, hodi VBA chybu prave v tomto makru.

Posun při skenování je zajištěn pravděpodobně automaticky. Protože žádný kod jsem nepsal ani nevkládal a po naskenování se autmaticky označí buňka pod naskenovanou atd...

Příloha: jpg