• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Zdravím, neporadíte jak upravit kód na filtrování grafu dle datumu.
Mám v Buňce B1 datum do kdy a v B3 datum od kdy bych chtěl Graf zobrazit.

Sub Datum()
With Worksheets("Mail")
DoData = Format(.Range("B1").Value, "dd.mm.yyyy")
OdData = Format(.Range("B3").Value, "dd.mm.yyyy")
End With
ActiveSheet.ChartObjects("Graf 2").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graf 2").Activate
AtiveChart.PivotLayout.PivotTable.PivotFields("Datum").ClearAllFilters
ActiveSheet.ChartObjects("Graf 2").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields("Datum").PivotFilters.Add2 Type:=xlAfter, Value1:=OdData
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh

End Sub

Ale prostě se mi nedaří, makro si načte datumy dobře, jsou ve formátu datum krátký dd.mm.yyyy - tak jsou i ve zdrojovém listu ze kterého je graf dělán.
(25.05.2023
xx.xx.xxxx
30.05.2023)
, poté graf vymaže původní zafiltrování, ale zastavuje se to filtraci dle mích představ
ActiveChart.PivotLayout.PivotTable.PivotFields("Datum").PivotFilters.Add2 Type:=xlAfter, Value1:=OdData
Případně v bunce B2 je kolik dní chci filtrovat jestli je to jednoduší pro makro.

Zdravím,
mohl bych poprosit jestli poradíte zda-li jde makrem otevřít soubor když neznám jeho prostřední část názvu ?

Mám soubor kam si přidávám různé data z reportu to mám vyřešeno. Jen mám problém že report z kterého data chci se mění konec názvu dle voleb v exportu. Tak že začátek názvu znám pak, ale pokračuje datum od kdy je ten report (většinou za měsíc, ale může být i třeba den, týden) tak zatím používám =HODNOTA.NA.TEXT(X1-30;"RRMMDD") kde v X1 mám dnešní datum a názve pak pokračuje datem do kdy je a to je současný datum. Problém je že měsíc má někdy 30 někdy 31 dní a únor je problém sám o sobě 28 vs 29 dní. Tak hledám jak toto ošetřit aby se otevřel soubor kde nebudu znát jeho prostřední část. Adresář bude stejný v buňce "W6" a počítám že bude soubor jediný kdy se bude jmenovat "kniha_jizd_-_zakladni_-_za_firmu_******_XXXXXX

Kde XXXXXX budu znát - je to dnešní datum ve formátu RRMMDD
ale ****** může být různá, zatím mám ošetřeno že při neshodě názvu musím vybrat ručně.

Zkoušel jsem nahradit * nebo 6x ? což funguje na půl, makro mě pozná že tam soubor je, ale již ho neotevře.

Děkuji za pomoc O2013,W10

Co takto, postačuje.
Při čemkoli jiném se ukáže vše.

Většina odkoukána zde z rad ostatních :)

Děkuji moc za rady.

@elninoslov
opět úžasné a elegantní řešení.

Zdravím poradil by někdo jak zprovoznit makro které bude filtrovat tabulku dle datumů.
Mám XY lidí a jejich denní výkaz z kterého se mi dělá KT+Graf a já bych si chtěl někdy vyfiltrovat jen třeba posledních 10 dni tak že mám buňku B1 kde je dnešní datum, v B2 mám kolik dní chci filtrovat a tím se mi dopočítá B3.

Pak mám Makro které do promněné načte datum z B1 a B3 do druhé a pak by se mělo KT zafiltrovat mezi daty B1 a B3.
Problém je že promněná:
DoData = Range("B1").Value
se datum uloží v CZ formátu dd.mm.yyyy ale v tabulce se mi pak chce filtrovat jako v US formátu mm/dd/yyy = z data 30.5.2022 to pak hledá jako by 5/30/2022 což mi pak žádná data nenajde.

Případně snad víc napoví přiložený soubor.

PS: dá se do grafu nějak upravit aby čas v levém sloupci byl na celá čísla, Např 4:00, 5:00, 6:00, 7:00, 8:00, 9:00, 10:00H. Našel jsem nastavení Min Max osy 0,15 až 0,5 ale touto změnou se moc dobře nemanipuluje

@marjankaj
Dík asi nejjednodušší řešení.

@Jiří497
Dobrý nápad, ale asi bych překopal si celou tabulku že bych měl pomocné sloupce kam zadám data a druhé buňce by byl výsledek. Použiju (jestli si teda vzpomenu) až budu dělat nový formulář pro výkaz.

Ještě mě napadlo makro asi při změně hodnoty v buňce ale protože formulář používá víc lidí tak to zavrhuji aby nemuseli povolovat makra při otvírání a tak.

Ale dekuji toto mě asi pomohlo.

Jo to že stačí napsat 7: vím.
Šlo mě o ulehčení při přepisování z papíru bych jen mačkal na numlocku číslo a enter a hned další číslo bez přehmatování na dvoutečku

zdravím ,
jde nějak udělat aby když do buňky napíšu například 7 bralo to jako čas = 7:00
Mám nastaven formát na hh:mm, ale když do buňky napíšu 7 tak to vzhledově napíše 00:00 (protože to bere jako 7 den tak že v buňce je 7.1.1900 00:00)

OK, díky za vysvětlení, tak že ten SUMA(C3:C123)/SUMA(B3:B123) je pro mě správně.
nerozlišuji velikost "pobočky" jde mi o % celkem provedené práce.

Zdravím, může mě někdo poradit kde dělám chybu ?
Mám tabulku

640 550 87,14% 85,94%

100 10 10%
90 90 100%
50 50 100%
100 100 100%
100 100 100%
100 100 100%
100 100 100%

kde mám sloupe B počet zakázek, sloupec C počet realizovaných zakázek ve sloupci D počítám procento provedení. K tomu použiju třeba na řádku 5 "=C5/B5" a buňku nastavím že se jedná o procenta. Toto je OK. Ale pak bych rád věděl celkovou úspěšnost v určitém rozsahu řádků. Čekal jsem že zadám do Buňky D1 "=PRŮMĚR(D3:D123)" Prostě rozmezí kam až chci vědět celkovou procentuální úspěšnost.
Ale je divné že výsledek je jiný než když sečtu vše v sloupci C a vydělí, součtem sloupce B. Tak že otázka je který výsledek je správný ? nebo jak toto jednoduše počítat ?

Děkuji, funguje, moc děkuji za pomoc

Zdravím, poradí mi někdo nějak jsme se zasel a nejde mě do funkce přidat to aby se při nenalezení textu nic neobjevovalo.

Mam tabulku kde v sloupci P je nějaký text
Například " bla bla DPH Jistina - hotovost převzata = ANO / NE 1 2000 0 21 2000 0 21 0 21 bla bla "

kdy je jasně dané ten začátek " Jistina - hotovost převzata = ANO / NE 1 " a konec " 0 21 "

Toto si vyhledám funkcí

=ČÁST(P11:P11;NAJÍT(" Jistina - hotovost převzata = ANO / NE 1";P11:P11)+1;NAJÍT(" 0 21 ";P11:P11)-NAJÍT(" Jistina - hotovost převzata = ANO / NE 1";P11:P11)-1)
A rád bych protože s toto buňkou dál pracuji že se mi přes CONCATENATE spojuje ještě s jinými buňky tak se vyhnul chybě v řádkách kde text není nalezen a pak se hodí chyba
#HODNOTA!

+ jestli jde aby se ukazovalo jen při nalezení v bunce ukázalo "Jistina - Částka" (může být třeba i nad deset tisíc a nebo desetikorunové )

Omlouvám se že se vracím k tomuto vláknu, pachtím se s tím makrem už delší dobu nepřišel jsme jak na to. A nedaří se mi makro správně zformulovat.

Postup by měl být že ve zdrojovém souboru spustím makro.
1) otevře se požadovaný CSV v exelu kde jsou data v pořádku v požadovaných sloupcích
2) v otevřeném souboru do sloupce BH se do všech řádků doplní název aktivního souboru (jde pro případné dohledání CSV souboru)
3) Pak krom záhlaví z prvního řádku vše nakopíruje do zdrojového souboru na začátek. To je na řádek 2
4) pak by se přes funkce Exelu Data>odebrat duplicity odebrali duplicitní řádky. Jestli jsme dobře koukal tak zůstane vždy ten nejvyšší řádek proto by se nové soubory přidávali na začátek.
5) CSV soubor se zavřel

Dim FileName As String
Dim MostRecentFile As String
Dim MostRecentDate As Date
Dim FileSpec As String

FileSpec = "*.csv"
Directory = ThisWorkbook.Path '
FileName = Dir(Directory & FileSpec)

With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.csv"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
SouborZ = SelectedItems
Workbooks.Open .SelectedItems(1)
ActiveSheet.Copy After:=Workbooks("Objednavky.xlsm"). _
Sheets(1)

End If
End With

Radek = Range("A1048576").End(xlUp).Row
Range("BH2").Select
ActiveCell.FormulaR1C1 = _
"=MID(CELL(""filename""),SEARCH(""["",CELL(""filename""))+1,SEARCH(""]"",CELL(""filename""))-SEARCH(""["",CELL(""filename""))-1)"
Range("BH2").Select
Selection.AutoFill Destination:=Range(Cells(2, 60), Cells(Radek, 60)).Select

Pak by pokračoval makro nakopírovat data do zdroje a smazání duplicit

Mám problém v makru že 1) soubor se otevře nějak jinak než když ho otevřu ručně (většina sloupců se mi spoji do asi 5)
2) doplní se mi název souboru ale již se mi nedaří to rozkopírovat na všechny řádky

3-5 mám nějak snad rozpracováno, ale když by někdo dokázal i toto bylo by super

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse