Příspěvky uživatele
< návrat zpět
veny napsal/a:
v excelu jsem použil pojmenovanou buňku "Date" se vzorcem DNES()
v PQ to co dával lubo pouze s úpravou aby dotaz načítal aktuální (dnešní) datum
když se podívám na stránky kurzy.cz a porovnám výstup v dotazu tak jsou načtená stejně jako na stránkách, ale aktualizace vaší tabulky je dělaná ve VBA a data se neaktualizují podle dotazu. VBA neholduji tak koukněte alespoň na tohle jestli by to vyhovovaloPříloha: 52079_kurzy-men.rar (31kB, staženo 1x)
Tak bohužel na MS Office 2016 mi to nefunguje
Sub Aktualisieren()
Dim wb As Workbook
Dim dotaz As String
Set wb = ThisWorkbook
DATUM = InputBox("Zadejte datum:", , Date)
dotaz = wb.Queries("Table 0").Formula
ActiveWorkbook.RefreshAll
End Sub
Myslel jsem, že by se to zadávalo přes InputBox, ale nevím jak.
Mám takový dotaz, jak nemám rád PQ, tak jsem si udělal takovou tabulku na kurz eura.
Problém je, že zdroj má proměnný odkaz. Tedy odkaz obsahuje datum. Nevíte, jak např. pomocí makra tento problém vyřešit?
Děkuji za pomoc.
=MOD(D2-A2;1)
Je to taková prasárna, ale účel to splní. Pokud by jsi nechtěl PowerQuery.
Ještě zkus tohle.
Někdo to musí dotáhnout. 
Sub Import()
Dim CESTA As String
Dim SOUBOR As String
Dim ZDROJ As String
Dim CIL As String
Dim LIST As String
CESTA = "C:\Users\Desktop\"
ZDROJ = "Zdroj.xlsm"
CIL = "CIL.xlsm"
SOUBOR = CESTA & ZDROJ
If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub
Workbooks.Open Filename:=SOUBOR, UpdateLinks:=0
LIST = Application.InputBox("Zadejte název listu:", Type:=2)
If LIST = "False" Then Exit Sub
Workbooks(CIL).Sheets("List1").Range("B2").Resize(14, 2).Value = Workbooks(ZDROJ).Sheets(LIST).Range("B2").Resize(14, 2).Value
Workbooks(ZDROJ).Close SaveChanges:=False
End Sub
Třeba
Sub Copy()
Dim POCET As Long
Dim RADEK As Long
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")
Application.ScreenUpdating = False
RADEK = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row - 1
If RADEK > 0 Then wsDATA.Range("B2").Resize(RADEK, 1).ClearContents
POCET = WorksheetFunction.Match("nic", wsDATA.Range("A:A"), 0) - 2
wsDATA.Range("B2").Resize(POCET, 1).Value = wsDATA.Range("A2").Resize(POCET, 1).Value
wsDATA.Range("B1:B" & POCET + 1).Sort key1:=wsDATA.Range("B1"), order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True
End Sub
Ještě úprava, před kopírováním nejprve smazat stará data a odstranění probliknutí.
Robo11 napsal/a:
Kedysi dávno som na jednom fóre videl ze to bolo robene cez rozbalovaci zoznam pri každej položke . A potom následne z rátalo bunky kde sa nachádzal text. Text do rozbalovacieho zoznamu by bral s tabuľky účel . S definovaním textom by som mal problém ze obi a bauhaus je záhrada lebo táto položka môže bytpre chatku a druha pre stavbu.
Snad jsem to pochopil správně.
Robo11 napsal/a:
Lugr super moze byt Dakujem.
Len skoda ze sa neda vytvorit este ten ucel pri kazdej polozke. Jedine ako to riesim je ze si dam automaticky sucet a vyklikam vsetky bunky kde je trebas tankovanie a vysledok dam pod text tankovanie
To by jste si musel ještě přidat další sloupec, aby bylo jasné, že OBI, Bauhaus, atd. je např. zahrada.
Já bych to taky řešil KT. Proč si to komplikovat.
husita napsal/a:
Moc děkuji, je to naprosto úžasné. Mám se ještě hodně co učit. Ještě jednou moc děkuji
J.
Není za co.
KT tam bude na pevno, jen se ti budou měnit data v tabulce. Pouze si KT nastav podle představ.
husita napsal/a:
Ahoj Lugre,
děkuji za tvůj příspěvek, jelikož v makrech trochu plavu, mohu požádat o popis funkcí makra? Předpokládám, že po sloučení jednotlivých listů do jednoho jsi KT udělal ručně
Děkuji za odpověď
J
Zjednodušil jsem ti to makro a popsal.
ještě by to šlo sjednotit do jedné tabulky a až potom KT.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články