• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Zdravím,

mám (věřím že pro mnohé z vás) triviální dotaz. Potřeboval bych vyrobit makro, které mi po spuštění smaže poslední řádek v tabulce. Mám tabulku, a v ní je třeba 10 obsazených řádků (sloupce A:G) a po stisku tlačítka se desátý řádek vymaže. Po opětovném stisknutí tlačítka se vymaže devátý řádek apod... Když třeba zase 8 řádků přibyde (8+8 = 16) tak po stisku tlačítka se vymaže 16. řádek.

Dokázal by někdo toto vytvořit?

Děkuji moc

Už jsem na to přišel. Pro info -

založil jsem si proměnnou strbody as string
pak jsem do teto promenne uložil v HTML kodu to co jsem potřeboval - > Link, tučne pismo, apod a pak jsem dal .HTMLbody = strbody a bylo to :)

Rejpal... Mohu ještě dotaz?

mám takovýto kód -

.Body = "A part was removed from the cabinet 1 - C:\parts... "

Mám kod, ktery mi posílá po stisknutí tlačítka automaticky email. Text toho emailu je práve to .Body...
Potřeboval bych ale, aby ta cesta - C:\parts... byl po přijetí do emilové schránky hypertextový. Abych neměl v emailu jenom čistě text jako cestu, ale aby se na tu cestu dalo kliknout...

Nevěděl bys prosim, jak na to? V Latexu stacilo před požadovanou URL jen nějaký backslash a příkaz... tady jsem nic takového nenašel.

Díky moc

Supr, diky moc :) dělá to přesně to co potřebuju. Moc děkuji za rady :)

ještě obrázek chyby

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

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 moc

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íky

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.

Tak jsem udělal (za pomocí netu :D) toto -

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")

Set EMail = Outlook.CreateItem(0)

With EMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Spare parts"
.Body = "A part was removed from the cabinet - /Link/ "
.Display 'or use .Send to skip preview
End With

Set EMail = Nothing

Set Outlook = Nothing

End Sub

Funguje to superně. Já sem si dal u toho posledního příkazu .Send a dělá to přesně to co má... takže pro inspiraci ostatním posílám :)

Zdravím všechny,

obracím se zde, na Vás profíky s otázkou ohledně excelu. Situace je taková:

Představte si skříň, kde máte díly (jakékoliv náhradní díly - hřídelky, ložiska apod). Každý náhradní díl má svoje označení v podobě čárového kódu. Čárový kód je na lístečku, který je přilepený v krabičce, ve které se daný díl nachází. Příjde opravář a vezme si díl, který potřebuje. Nyní (jelikož lidi jsou nepoučitelní) nikomu neřeke, ani nikam nenapíše, že si díl vzal a na druhý den díl chybí a jsou už zbytečné prostoje. Napadlo nás, že bychom na skříň připevnili scaner, pomocí kterého opravář naskenuje čárový kód, který je na lístečku a vyplní se automatzicky řádek v excelovské tabulce - tabulka bude na síti (jak udělat bar kód a vyplnení řádku pomocí sceneru v excelu vím). Problém ale nastává nyní. Jak se dozvím, že opravář díl naskenoval? Musel bych pořád tabulku otvírat a kontrolovat. A zde je můj dotaz - lze nějakým způsobem (třeba po uložení tabulky) automaticky poslat jakýkoliv email? Třeba s textem - byl odebrát náhradní díl (a jelikož máme těch skříní asi 11) tak třeba ještě - Byl odebrán náhradní díl ze skřině 4. Hotovo... nebo jenom čistě obrdžet nějakou notofikaci. Věřím, že se bude spoustě z vás zdát, že se jedná o zbytečnou věc a stačilo by, kdyby opravář třeba poslal sms, zavolal nebo napsal email on sám... ale bohužel to takto nechodí a opráváři to nedělají. A diskutovat na téma že je máme vyhodit a nabrat nové je úplně zbytečné :)... Pokud by tedy někdo věděl, jak takový to automatický email napsat, byla by to pecka. Pokud někoho napadne třeba ještě jiný způsob oznaámení o odebrání dílu, sem s ním :)).

Díky všem

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse