Příspěvky uživatele
< návrat zpět
1. Prosím, nekopíruj furt dokola předchozí vzkazy. K ničemu to většinou není a jen to zabírá místo. Stiskni tlačítko Zaslat odpověď. Děkuji
2. V podstatě to řídí buňka A1, která odkazuje na AG6. Na buňku A1 se pak odkazují ostatní vzorce.
3. Není otázkou jestli to jde, ale spíš proč to měnit, když to funguje. A pokud to chceš skutečně měnit, tak nedělej kolem toho tanečky a řekni rovnou jakou máš předstsvu (a to platí pro všechny ostatní).
Takže samozejmě, že to může řídit jiná buňka nebo form. Otázka je, co vlastně chceš ty. Jak to má fungovat?
1. Chybu to háže, protože se snažíte zapisovat do neexistujícího list. Nevím, co jste chtěl vyřešit tímto příkazem: Worksheets(Sheets.Count).Ran...
Tímto příkazem říkáte, že chcete všechno ukládat do listu 14, který ale neexistuje. Sheets.Count je 14 a list číslo 14 tam nemáte. V závorkách musí být jméno listu, do kterého data chcete vkládat. A to jsou jednotlivá jména podle tabulky v listu Celkem.
2. Sice jste si rozšířil sloupce pro kopírování, ale nezměnil jste velikost cílového pole, takže pokud by se vám to podařilo uložit, uložily by se jen dva sloupce.
3. Opravil jsem ještě načítání hlavičky. Tak jak jste si to upravil by to hlavičku nezkopírovalo.
Vyzkoušejte a dejte vědět případné další úpravy.
Nevím, jestli dobře chápu dotaz.
Když se v AG6 změní rok, tak na to regují vzorečky v řádku 6,7 pak 13,14 atd.
Pak je tam Podmíněné formátování, které barví buňky podle toho, jestli je svátek, sobota nebo neděle.
stačí takto? Nebo se ptáš na něco jiného?
Jen tak narychlo
DecredCZ napsal/a:
Děkuji. Během dne vyzkouším. Vypadá to jako dost těžký porno :D Kolik ti ldužím.
úpravy:
Mazání kalendáře jen od zadaného data
Díly - nemají soboty a neděle o svátcích (1.1,31.12,24 - 26.12)
Odpolední není na silvestra
Kontrola zadání všech údajů ve formuláři při aktualizaci kalendáře
Zaregistrujte se a pak vložte přílohu z které bude poznat, co vlastně chcete. Kolik je těch datumů, je to rozmezí jen v rámci jednoho měsíce, kdy má akce proběhnout....
Jinak k bodu 2.:=RANDBETWEEN(1;12)
Pošli příklad, jak bude vypadat tabulka.
lubo napsal/a:
A nestačí přesunout jméno do stránkového pole a pak v možnoste kont. tabulky vybrat "Zobrazit stránky filtru sestavy"?
Do třetice všeho dobrého a zlého (když už jsem to vytvořil): Sub Prejmenuj_listy()
Dim pvtTable As PivotTable
Dim pvtitem As PivotItem
Dim novyList As Worksheet
Dim jmeno As String
Dim stejne As Boolean
stejne = False
Set pvtTable = Worksheets("Celkem").PivotTables("Kontingenční tabulka6")
For Each pvtitem In pvtTable.PivotFields("Zodpovídá").PivotItems 'Načítám všechny položky
On Error Resume Next
a = pvtitem.DataRange.Row 'Pokud pložka není zobrazena, nastane chyba
If Err.Number = 0 Then 'Pokud chyba nenastane
jmeno = pvtitem.Value 'načtu si jméno položky
For Each novyList In ActiveWorkbook.Sheets 'Kontrola, jestli neexistuje list se stejným názvem
If novyList.Name = jmeno Then
stejne = True
Exit For
End If
Next novyList
If Not stejne Then 'Pokud list ještě neexistuje, tak jej vytvoří
Sheets.Add.Name = jmeno
End If
End If
stejne = False
Next
On Error GoTo 0
End Sub
lugr napsal/a:
Klobouk dolů. Dost dobrý.
Tak, nechal bych na hlavě. Ale pravda, čekal jsem, že to půjde podstatně hůř.
Tady jsou i měsíční souhrny.
Ridder napsal/a:
Dále se chci zeptat, jestli je možnost, aby mi Excel na konci měsíce sám napsal útratu. Viz řádek 11 IJK, co jsem udělal manuálně za říjen.
Takhle by to šlo, jen kdyby se na řádek 11 už nepsalo. Ale předpokládám, že řádky budou přibývat. Součet by musel být někde mimo tabulku nebo vždy na konci měsíce manuálaně vložit vzoreček na součet. Také mu musíš říct, který měsíc chceš sčítat.
Hlavně to pořádně vyzkoušej. Čekal jsem např. reklamaci, že díly mají o Vánocích sobotu a sobotní šichta ne, podle mě by být neměla, ale v zadání to nebylo řečeno.
A stále to beru jen jako pracovní verzi, takže testovat jen na kopii.
Ještě bych chtěl doplnit, aby se při aktualizaci nevymazalo to co už proběhlo...
Nová verze
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