Příspěvky uživatele
< návrat zpět
Jak jinak Al mě bude vždy kritizovat, už jsem si zvykl.
Vše potřebné v příloze, jen jsem odebral 40 listů abych to zabalil a mohl vložit sem.
Al - těším se na další reakci.
Ahoj, chtěl jsem se zeptat, zda jde v průběhu makra vyčistit paměť, tak abych dostal dostatek systémových prostředků.
Mám sice PC kde je 16GB ramka, ale v průběhu makra vyhodí PC hlášku na nedostatek systémových prostředků.
Děkuji
https://ctrlv.cz/qfSX
No sice mi uniká smysl této otázky, ale říká, viz příloha.
njn to jsem celý já, ale jinak děkuji Jeza.m jeho nakopnutí stačilo a dostatečně pomohlo. Využil jsem to i jinde.
Co se Selecte týká, snažím se na to již dávat pozor, ale ne vždy se mi to podaří odbourat. NJN učím se.
Děkuji za tyto skvělé stránky a báječné lidi co sem chodí a nám méně zdatným otevřou oči či pomohou.
Moc díky.
Ahoj.
Níže uvedenou rutinu potřebuji provést na všech listech v sešitu.
Poradíte prosím jak zapsat aniž bych pořád využíval Call Krok1(Fallse) a pak zase Call Krok2(False) a takto 54x 
Jedná se o tuto rutinu
Sub Krok2(x As Boolean)
Workbooks("Plány kovo včera.xlsm").Activate
Sheets("20381").Select
Dim dDate As Date
Dim strDate As String
Dim lDate As Long, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
dDate = DateSerial(2017, 1, 0)
lDate = dDate
ActiveSheet.Range("F1:F" & LR).AutoFilter Field:=6, Criteria1:=">=" & lDate - 60, _
Operator:=xlAnd, Criteria2:="<" & lDate + 3
Range("R1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[2000]C)"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
x = True
End Sub
Snad jsem to popsal pochopitelně
Děkuji
Děkuji
Už jsem na to také došel, že funguje, problém byl v tom, že tam byl ukrytý ještě jeden prázdný řádek, který tak trochu zlobil.
Děkuji
Ještě jsem se chtěl zeptat jak správně zapsat
ActiveCell.FormulaR1C1 = "=RC[-1]/Range("C4")"
Potřebuji podělit dvě buňky s tím, že ta první je vždy první vlevo od aktivní a ta druhá je vždy C4
Díky moc
No nad to klidně může být, ale uvedený vzorec bere celý sloupec i se skrytými řádky. A to právě nepotřebuji.
Ahoj.
Ve sloupci F mám vyfiltrované řádky podle data (dnes -30 dní a dnes +3 dny). Nyní bych potřeboval pod poslední obsazený řádek ve sloupci R sečíst vyfiltrované hodnoty ze sloupce R.
Poradíte?
Děkuji
No spát chodím jak potřebuji. Na tlačítko kliká mistr, který má zrovna směnu.
Celkové makro běží 2x za hodinu 24 hodin denně. Já potřebuji porovnávat dvě tabulky cca 70 listů v každém cca 5000 řádků ze stejného okamžiku, ale s 24 hodinovým rozestupem.
Je to takové komplikovanější.
Tak by se neměla Sub UložVčera(x As Boolean) spustit a tím pádem je to ok.
Nebo se pletu?
Export leze vždy v hh:05 a hh:35. Já však potřebuji, aby se vytvořila záloha pouze z exportu, který vyleze v čase 10:05.
Každopádně druhá varianta, kterou jsem tu hned z kraje, uvedl mi funguje.
Jak poznamenal marjankaj, ano pouští se tlačítkem.
Call UložVčera(False) - je další makro, které se spustí při plnění výše uvedené podmínky a otvírá právě sešit, který byl vytvořen včera jako kopie a obsahuje data z předešlého dne.
Slouží mi to tak k porovnání toho, kolik bylo včera zaplánovaného celkového času a kolik je dnes. Jelikož oba exporty vyjedou ze systému ve stejnou dobu, porovnávám tak vždy úbytek času za stejné časové období.
Snad je to pochopitelné.
I tak děkuji za opravu.
Lol už to mám, omlouvám se že jsem rušil a třeba se bude někomu hodit
Sub Záloha() 'Spustí makro pouze v čase od 10:10 do 10:30
If ((Time <= "10:10:00") And (Time >= "10:30:00")) Then
Else
End If
If ((Time >= "10:10:00") And (Time <= "10:30:00")) Then
Call UložVčera(False)
Else
End If
End Sub
Sub UložVčera(x As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"\\STORAGE2\vyroba\Planovani_vyroby\Vyhodnocování plánů\Plány kovo vyhodnocení " & FORMAT(Date, "") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
x = True
End Sub
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