Příspěvky uživatele

Zkoušel jsem to, ale podařilo se mi jen vybrat daný sešit, pokut je excel aktivní, nedaří se mi ho aktivovat, vše běží jakoby na pozadí. Pak nemohu vkládat data, to je to co hledám.

Děkuji moc, vypadá to velmi slibně :) akorát to má háček, scanner nemá označený excel i když je excel na vrchu :) ještě tento detail a bude to dokonalé.

VBA běží automatcky, ale každý pátek mi naskočí nějaká tabulka s updaty, která mi znemožní použití excelu ovládaného čtečku kódů u PC není myš. Jediné řešení je vzít myš a kliknout na excel, hledám řešení VBA, které by udrželo excel v aktivním poli B1, aby mi čtečka kódů fungovala.

Dobrý den / Ahoj

Hledám způsob, jak při výpadku wifi kdy se vytvoří duplikát viz příloha a není možno soubor uložit "ani ten původní" protože je záhadným způsobem neuložitelný...

Jediné makro co používám, tak je že z jednoho disku nahrávám data každých 10s a ukládám přes VBA, pokud není wifi, tak to udělá tuto duplikativní chybu, soubor taktéž ukládám na vzdálený disk.

Prosím o pomoc, aby se zásadně nevytvářel duplikát a aby v případě nenalezeni cesty a nemožnosti se uložit na disk bylo vše uděláno tak, aby => se počkalo a uložilo se za dalších 10s + načtli data data.

Také nevím jak vyřešit v případě odpojení wifi ukládání, obvykle to prostě nejde uložit a nabízí mi to uložit jako něco jiného, což je absolutně nežádoucí.

Děkuji za rady.

Dobrý den, nevím si rady, jak místo chybné hlášky, že nemůže Test2.xlsm najít, aby bylo spuštěno makro, které se jmenuje aha, toto makro se bude v závislosti upravovat. Cílem zde je, aby mi to reagovalo na chybu, že nelze Test2.xlsm aktivovat spuštěním jiného makra, moc děkuji. :)

Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
Application.Windows("Test2.xlsm").Activate

On Error Resume Next
If Err = 0 Then Call aha
end sub

Sub aha()
MsgBox ("Není otevřený důležitý soubor pro nahrání dat")
End Sub

Trošku jsem to upravil a již funguje naprosto perfektně, jak jsem potřeboval, moc děkuji :) akorát by to nemuselo psát ty vzorce, pouze hodnoty.

Můj záměr je, aby makro reagovalo na "ano" ve sloupci, může reagovat klidně na přepsání B2, ale chci přehodnotit celý 8 sloupec, za splnění podmínek => převzetí aktuální hodnoty z řádku sloupce B. :)

Děkuji za rady, skvělá práce! ještě jsem zapomněl dodat, že neklikám do řádku, ale hodnota ano je ze vzorce, tudíž vůbec neklikám do řádků dalo by se to udělat automaticky? na základě toho, že je vzorec v buňce? A pokud je v poli například "B2" napsán 28.8.2017, tak aby se propsala hodnota ideálně, může být i ten vzorec.

Dobrý den / Ahoj

Řeším, jak se vyhnout nepřímým odkazům touto cestou:

Private Sub Worksheet_Calculate()

If Cells(2, 4) = "ano" And Cells(2, 8) = "" Then Cells(2, 8) = "=B2"
End Sub

Moc by mi pomohlo, kdyby mi někdo poradil, jak udělat, aby makro fungovalo na sloupce: pokud ve sloupci 4 je "ano" a zároveň ve sloupci 8 stejného řádku není prázdná buňka, tak do stejného řádku ve sloupci 8 zapiš vzorec =B(číslo řádku).

Moc by mi to pomohlo, děkuji.

Děkuji za rady, jedná se mi o to, že excel každý den vypnu a zapnu přes VBA a tím pádem mi běží makro 2* za dva dny se spouští 3* atd... což je velmi neefektivní a tak se musí počítač restartovat.

Sub CloseMe()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:00:10"), "OpenMe"
ActiveWorkbook.Save
ThisWorkbook.Close False
End Sub

Zavírám to, protože některá makra mi fungují jen 24h:

Application.Ontime TimeValue("21:59:00"), "OnTime"
Application.Ontime TimeValue("13:59:00"), "OnTime"
Application.Ontime TimeValue("05:59:00"), "OnTime"

kdyby fungovali neustále v tuto dobu, tak bych nemusel vypínat Sub RunEveryTwoMinutes(), neběželo by mi vícekráte.

A na otázku zda soubor narůstá je odpověď: z 800kb cca na 2MB za měsíc.

Dobrý den, chtěl bych poradit, jak napsat makro, co zastaví VBA on time: RunEveryTwoMinutes, aby se mi dokument neukládal, pokud nechci, když provádím změny a tak, děkuji moc za radu. :)

Private Sub Workbook_open()
RunEveryTwoMinutes
End Sub

Sub RunEveryTwoMinutes()
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
ActiveWorkbook.Save

End Sub

Ahoj / Dobrý den,

ve windowsu mi sem tam vyběhne okno a dostane prioritu, tímto se mi zastaví automatický fokus na pole B1, jak toto vyřešit, aby v případě vyskočení této hlášky se mi opět označilo pole B1? Děkuji moc za rady, tyto tabulky bych nejraději vůbec nezobrazoval.

"toto VBA je v jiném listu: "seznam" a rad bych ho spustil, pokud v poli A = ABC :) Neumím to zapsat, můžu poprosit ještě jednou o pomoc?

Sub Volejpromennou()
Dim Stlp As Integer

If WorksheetFunction.CountIf(Range("A:C"), "<>") > 0 Then
Application.ScreenUpdating = False
With Worksheets("Záloha")
Stlp = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range("A:C").Cut .Columns(Stlp).Resize(, 10)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Call jj

End If
End Sub

jde mi jen o to, jak aktivovat z jiného listu toto VBA a aby probíhalo na správném listě, kde je zadáno, děkuji.

Dobrý den, hodně by mi pomohlo, kdybych zjistil, jak volat při splnění podmínky A1 = ABC výpočtem a nebo zadáním ručně se spustilo VBA "Volej proměnnou" v listu "seznam"

call volej v listu seznam

Děkuji moc za rady :)

Dobrý den, moc prosím o makro na tisk dokumentu, které by dokázalo skrýt všechny prázdné řádky podle podmínky:

1. pokud buňky v řádku ve zmíněných sloupcích: AB, AD, AF, AH, AJ jsou prázdné.
2. pokud buňky v řádku ve zmíněných sloupcích: AB, AD, AF, AH, AJ, jsou rovny číslu a nebo prázdné.
3. vzorec by měl fungovat pro řádky 3 až 800.

Také by se dalo vyřešit kdyby ve sloupci C bylo napsáno "skryj" tak by sloupec zmizel, tato hodnota by se propisovala vzorcem, tekže by skryj mohlo zmizet a řádek by se automaticky objevil "pokud třeba kliknu na pole B1". :)

Děkuji moc. :)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje