Příspěvky uživatele
< návrat zpět
co použít filtr?
Vlastní automatický filtr
Má na konci .com
Palooo:
díky 
užitečná rada určitě prostuduji
ale když tam bude mít víc slovíček (v řádcích), tak by se to muselo nadefinovat na víc sloupců kde by byly alternativy.
A pokud si to výslovně nebude žádat zadavatel, tak to zatím nebudu řešit.
Jaros:
Opraveno
Palooo:
-UCASE, TRIM jsem přidal
-LIKE a bez diakritiky jsem nepřidával. (ještě jsem se s těmi příkazy nikdy nepotkal) 
Při učení slovíček je dobré se naučit je správně i psát *5
Co tohle?
Slovíčka můžeš přidávat dle libosti do sloupce "A" (ale nesmí být prázdný řádek mezi slovíčky)
Kliknutím na vlajku se spustí makro.
Máš na výber z EN do CZ, nebo z CZ do EN
viz přílohu 
Tlačítko "delete" ti funguje, ale že to máš v Workbook_SheetChange tak při mazání se makro spustí ještě jednou a zas ti vyplní buňky
zkus makro spouštět jinším způsobem.
@marjankaj
marjankaj napsal/a:
Skús pozrieť, čo radí AL.
http://www.techonthenet.com/excel/formulas/filedatetime.php
díky za nasměrování
Snad si už z těch příspěvku PavelDe poradí i sám
stále nechápu v čem je problém.
Do souboru stav.xls musíš nakopírovat makro co jsem ti poslal(do souboru co používají skladníci),
který při ukládání ve skladu pošle do tvého souboru informaci kdy byl soubor stav.xls uložen.
Ještě by se mohlo upravit makro aby to do tvého souboru psalo pod sebe všechny záznamy o uložení.
Jinak už nevím mám asi krátké vedení
tady to máš.
počet listů jsem bral všechny listy v sešitu.
upravil jsem trochu msgbox, aby byl videt i název listu.
co tohle:
v makru si uprav cestu pro sesit pokus_1
Jako v jiném souboru?
Vba:
Vložit příkaz do "ThisWorkbook"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Range("A1") = Now()
End Sub
kde příklad:
do listu "List1" v buňce "A1" se při ukládání vloží datum a čas.
samotný excel neposleš, musíš nejdřív zabalit (rar,zip,...)
Upravil jsem řádek s "r_max" (vba), aby poslední řádek hledal v celém listu a ne ve sloupci "B".
Tohle by snad melo stačit.
Pokud ne, tak bych navrhoval upravit makro tak, aby se při otevírání zamkly již vyplněné buňky(řádky).
Tím by se předešlo nechtěnému mazaní již uložených dat.
Cyklovat by to šlo taky, ale je otázka či v těch ostatních listech budou povinné sloupce stejné.
Mno jo no, to je tak když někomu vezmeš práci a vpíchneš tam něco svoje
Nevím jak jsem se dostal k tomu, že mám tahat datum z "B7".
Ale naštěstí jsou tady borci, kteří to napraví
mosquito791 napsal/a:
Já vyzkoušel všech 12 měsíců a bez chybyPříloha: 21864_lisdd.zip
p.s. list1 v range("B7") ti nechybí datum?
zkus nahradit řadek:
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Range("B7"), "yy")
timto:
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Now, "yy")
Uživatelské menu
\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