Když(A1<>"";.......citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vložení data po splnění podmínky
MS Excel
Téma: Vložení data po splnění podmínky 
Zaslal/a 1Novacek1 23.5.2018 11:50
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.
Příloha: 
40439_akt_datum.xlsx (9kB, staženo 37x)
40439_akt_datum.xlsx (9kB, staženo 37x)(23.5.2018 12:21)#040440
(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
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
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
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
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 :)
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: 
40443_40439_akt_datum.zip (14kB, staženo 44x)
citovat40443_40439_akt_datum.zip (14kB, staženo 44x)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
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
(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
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:
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...citovat
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...citovat
40449_pic.jpg
ještě obrázek chybycitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články