Příspěvky uživatele

Super, díky

Zdravím, už si nevím rady. Mám makro. Zkontroluje jestli soubory existují, pak ukáže kdy byly naposledy aktualizované a nakonec spustí nebo nespustí makro. Nemůžu přijít na to, aby mě v MSgBoxu zobrazoval jenom soubory, které neexistují. Jakmile chybí jeden, zobrazí všechny. Nevím jak to zapsat. Díky za pomoc.

Sub AktualizaceDat()

Dim Cesta As String
Dim Soubor1 As String
Dim Soubor2 As String
Dim Soubor3 As String

Cesta = ThisWorkbook.Path & "\"
Soubor1 = "01.xlsx"
Soubor2 = "02.xlsx"
Soubor3 = "03.xlsx"

If Len(Dir(Cesta & Soubor1, vbNormal)) = 0 _
Or Len(Dir(Cesta & Soubor2, vbNormal)) = 0 _
Or Len(Dir(Cesta & Soubor3, vbNormal)) = 0 Then

MsgBox "Soubor:" & vbCrLf & vbNewLine & Soubor1 & vbCrLf & Soubor2 & vbCrLf & Soubor3 & vbCrLf & vbCrLf & "neexistuje.", vbCritical, "Kontrola souborů."

Else

I = MsgBox(Soubor1 & " - " & FileDateTime(Cesta & Soubor1) & vbCrLf & _
Soubor2 & " - " & FileDateTime(Cesta & Soubor2) & vbCrLf & _
Soubor3 & " - " & FileDateTime(Cesta & Soubor3) & vbCrLf & vbCrLf & _
"Zahájit aktualizaci?", vbYesNo, "Vygenerováno.")

Select Case I
Case vbNo
Exit Sub
Case vbYes
MsgBox ("Call Aktualizace")
'Call Aktualizace
End Select
End If

End Sub

Super, díky. Vložil jsem kód do zdrojového souboru a trochu ho upravil a vypadá, že vše funguje jak má. Ještě jednou díky.

Přikládám ořezaný soubor, kde je vidět stávající stav. Jen tu část s přepínači a zaškrtávací tlačítka přesunout do pásu karet. Pro hodnoty true/false použít stejné buňky. I pro přepínač použít A4.

Možná vložit do nového listu např.: "parametry"?

Jde pouze o lokální soubor. Jen nevím jak to v Custom UI vytvořit.

Dobrý den. Lze do pásu karet použít přepínače a zaškrtávací tlačítka? Chtěl bych si do pásu karet vložit dva přepínače a tři zaškrtávací tlačítka. Momentálně je mám dané na listu a fungují. Jen mě napadlo, že bych je dal do pásu karet. Ale nikde nemůžu přijít na to, jestli to vůbec lze.

Makro "CopyFormula" - kopírování dat bez formátů, ve sloupečku A:A jsou vždy hodnoty, je bez mezer. Tak ta funguje úplně přesně. Moc děkuji.

Zdrojový sešit není nutné otevírat?

To jsem právě na netu nikde nezjistil.
Není tam žádný vzorec, ani rámování. Jediné co se mění je počet řádků. Zkopírují se jen sloupečky A:K a bez jakéhokoli formátování vloží do cílového souboru. V něm se teprve provádí operace pomocí dalších maker.

Dobrý den, mám makro pro kopírování dat z jednoho souboru do druhého. Občas potřebuji přejmenovat cílový soubor "výkaz hodin.xlsm" např. na "výkaz hodin 2024.xlsm", pak bez úpravy makra nic nefunguje.
Pokouším se přijít na to, jak udělat aby si makro zapamatovalo název souboru, do kterého se má vrátit po zkopírování dat z "PorovnaniHodin.xlsx". Vložit si název do paměti? Pro ukázku jsem makro ořezal jen na základ. Díky za pomoc.

Sub test()

Dim Cesta As String
Dim uzivatel As String

Cesta = "C:\Users"
uzivatel = Application.UserName

Application.DisplayAlerts = False 'potlačí excelová hlášení (např při zavírání souborů)

Workbooks.Open (Cesta & "\" & uzivatel & "\Downloads\PorovnaniHodin.xlsx")

Sheets("Data").Range("A:K").Select
Selection.Copy

Windows("výkaz hodin.xlsm").Activate
Sheets("PorovnaniHodin").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("PorovnaniHodin.xlsx").Activate
ActiveWindow.Close False

Application.DisplayAlerts = True 'opětovné povolení excelovských hlášené

End Sub

Díky moc za popostrčení. Skombinoval jsem obě varianty vzorců.
=SVYHLEDAT($C3;NEPŘÍMÝ.ODKAZ("'rozbor_"&F$2&"'!B:F");5;0)

Zdravím, nevíte někdo jak "zablokovat" název listu ve vzorci?
Mám vzorec, např: =SVYHLEDAT(C3;rozbor_9!B:F;5;0). Vzorec odkazuje na list, který se při aktualizaci vymaže a pod stejným názvem vytvoří. V té chvíli se ztratí odkaz ve vzorci. Potřebuji ho tam nechat. Nebo mě napadlo, jestli ten název listu nemít v nějaké jiné buňce a na ni se odkázat. Jenže na nic z toho nemůžu přijít. Napadá někoho nějaké řešení? Díky

Měl jsem pocit, že jsem už prošel všechno. Ale je vidět, že mě to pořád nedocházelo. Asi únava. Dík za postrčení.

Funguje Vám to krásně.

Pokusil jsem se to použít v jiném souboru a nechce mě to zpřístupnit tlačítka. Co jsem kde udělal špatně. Nic mě už nenapadá, ale někde mám zádrhel.

Plán - “tisk do PDF“, “složka PDF“, “Plán“
Data - “tisk do PDF“, “složka PDF“, “data“
doklad - “tisk do PDF“, “složka PDF“, “data“, “doklad“

díky

Tak to nevím, můžu se pokusit, jestli to pochopím.

Mám Office 2016, už se mě podařilo vše vyřešit s tím prvním makrem co jste sem dal. Pohrál jsem si se systémem, z kterého exportuji data a ořezal jsem počet řádků. Vše funguje. Díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje