Příspěvky uživatele
< návrat zpět
€Ł мσşqμΐτσ napsal/a:
Ahoj,
u Insert Formu jsem showModal nastavil z True na False, a teď jde vyhledávat i nadále.
Přidal jsem i časovač, tak se na to mrkni, popřípadě dej vědet jestli jsem to nepochopil špatně, to zadání Příloha: 57066_oprava.zip (112kB, staženo 1x)
Děkuji moc sice jsem ještě pár úprav udělal. Přidal jsem ten časovač do tlačítka a přidal jsem tam minuty a neresetoval se čas při úpravě textboxu, ale vše funguje perfektně a podle mého přání.
Děkuji moc krát za ochotu.
€Ł мσşqμΐτσ napsal/a:
Ahoj,
u Insert Formu jsem showModal nastavil z True na False, a teď jde vyhledávat i nadále.
Přidal jsem i časovač, tak se na to mrkni, popřípadě dej vědet jestli jsem to nepochopil špatně, to zadání Příloha: 57066_oprava.zip (112kB, staženo 0x)
Mrknu na to ve středu a dám vědět. Jsem mi PC
Zatím děkuji
Zdravím,
chtěl bych Vás požádat o pomoc. Už si nevím rady.
Mám makro (viz příloha), když kliknete na kartě Program na tlačítko tak se Vám spustí UserForm.
Když kliknete na tlačítko v UserFormu (CommandBurron1) tak Vám vyskočí další UserForm ve kterém po vyhledání kódu např. 357, tak Vám to ukáže veškeré parametry.
Ale problém nastane v tom, když dáte odhlásit a vrátí se zpět na první UserForm a chtěl bych se přihlašovat ID kartou (momentálně je nastaveno 1234567890 nebo 1122334455), tak se správně přihlásíte do druhého UserFormu, ale nejde mi nic vyhledat. 
Mohl by jste mi někdo poradit?
Pak mám ještě druhý problém, ve kterém chci při druhém UserFormu spustit časovač vypnutí a vrácení do prvního UserFormu. To sice teď nemám puštěně mám tam '', ale chtěl bych, aby mi to při spuštění UserFormu pustilo časovač vypnutí např. 10sekund.
A když kliknu na jakékoliv jiné tlačítko, tak se vypne první časovač a zapne druhý časovač ze stejným časem. (takové automatické odhlašování).
Mockrát děkuji za jakokouliv radu
elninoslov napsal/a:
No a aký máte Office? Lebo tam je tých funkcií viac použitých.
Môžete to urobiť obdobne pomocou Kontingenčných tabuliek s WC vo Filtre, materiálom ako Riadky, a Hodnota bude UKONČENÍ s voľbou Maxima.Příloha: 56903_56900_sesit10kt.xlsx (20kB, staženo 2x)
Díky kontingenční tabulka mě nenapadla
elninoslov napsal/a:
Napr. takto?
=IFERROR(LET(p;$B$2:$B$27=Y$4;g;FILTER($G$2:$G$27;p);e;FILTER($E$2:$E$27;p);u;UNIQUE(g);HSTACK(u;BYROW(u;LAMBDA(x;MAX(FILTER(e;g=x))))));"N/A")
=IFERROR(LET(p;$B$2:$B$27=Y$4;g;FILTER($G$2:$G$27;p);e;FILTER($E$2:$E$27;p);u;UNIQUE(g);SROVNAT.VODOROVNĚ(u;BYROW(u;LAMBDA(x;MAX(FILTER(e;g=x))))));"N/A")Příloha: 56901_56900_sesit10.xlsx (14kB, staženo 2x)
Nemůžu použít fukci UNIQUE nemám office 365
Zdravím,
potřeboval bych pomoct při zobrazení jedinečných hodnot a u poslední hodnoty, aby to vypsalo datum a čas z jiného sloupce.
Děkuji za jakoukoliv radu.
elninoslov napsal/a:
Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.
elninoslov napsal/a:
Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.
Díky, díky a ještě jednou díky.
Fantasyk napsal/a:
To bylo velké nakopnutí...
Díky zítra vyzkouším, ale jak Vás znám tak to bude fungovat perfektně.
Ještě jednou díky
Samozřejmě, že to fungovalo perfektně, ale já jsem trochu nemyslel.
Potřeboval bych všechny listy s 0, 1, 2 a 3
Nějak mi nedošlo, že měsíc ma více dnů než 9
To bylo velké nakopnutí...
Díky zítra vyzkouším, ale jak Vás znám tak to bude fungovat perfektně.
Ještě jednou díky
Podmíněné formátování
Dát si vlastní podmínku např. =A1>0. Pro zelenou a pro červenou- =A1<0
Zdravím,
Nevíte náhodou jak můžu smazat všechny listy začínající vždy na 0? Mám listy např. 01.09.2023, 02.09.2023..... a potřeboval bych vždy na konci měsíce tyto listy smazat.
Děkuji za jakékoliv nakopnutí.
Díky
elninoslov napsal/a:
Namiesto ActiveWorkbook dajte ThisWorkbook
Děkuji
Zdravím mám makro:
Sub SaveMyFile()
ActiveWorkbook.SaveCopyAs Filename:="\\Fantasyk\Report_2023_autosave.xlsm"
Call Timer_auto
End Sub
Sub Timer_auto()
Const MINUTES As String = "45"
Application.OnTime Now() + TimeValue("00:" & MINUTES & ":00"), "SaveMyFile"
End Sub
Které mi každých 45minut uloží kopii na server, ale problém je v tom, že když někdo nebo já nechám otevřený jiný excel soubor a nechám ho aktivní, tak se mi v daný čas spustí makro jak má, ale uloží to aktuální zobrazený excel soubor místo toho původního.
Nevíte jak by to šlo ošetřit, aby to vždy uložilo jen ten soubor, ve kterém je makro?
PS: soubor, který chci uložit je proměnný, ale vždy začíná "Report_" a končí.xlsm
Díky za jakokoliv radu
Tak jsem to udělal následovně:
ThisWorkbook:
Private Sub Workbook_Open()
Const MINUTES As String = "01"
Application.OnTime Now() + TimeValue("00:" & MINUTES & ":00"), "SaveMyFile"
End Sub
Modul1:
Sub SaveMyFile()
ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Zaloha\autosave.xlsm"
Call Timer
End Sub
Sub Timer()
Const MINUTES As String = "01"
Application.OnTime Now() + TimeValue("00:" & MINUTES & ":00"), "SaveMyFile"
End Sub
čas 01 byl jen pro test..
To jsem před tím taky našel, ale nějak mi to nefunguje tak jak bych si to představoval.
Při otevření sešitu bude běžet interval např. 30 minut a každých 30 minut se mi soubor uloží jako kopie na disk C:\Users\NOOB\desktop\zaloha.xlsm
,Ale zůstane aktivní stále ten původní soubor.
Abych mohl v případě pádu ihned zareagovat a otevřít tu kopii
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