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

Příspěvky uživatele

Začnu od konce:
mail: není chyba zde
ActiveSheet.Range ("A9: Q11"). Select
jsou vybrány jen 3 řádky

tisk: oblast tisku nastavit v ROZLOŽENÍ STRÁNKY možná je dobré ji pojmenovat

u zamčeného listu mi to normálně funguje, pokud list skryju, pak to hází chybu, ale jde to v makru ošetřit třeba doplněním dvou řádků.

Rem --- vzorový řádek ---
Sheets("List2").Visible = True
Sheets("List2").Select
Range("A2:R2").Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = False

Tady je to i s MSBoxem + nastavená nějaké výšky nového řádku. Je třeba nastavit podle potřeby.
Kody jsou v Module1, můžeš je volat "z tlačítka" Call makro xx nebo je dát rovnou do kodu tlačítek na List.

pozn. nový řádek umísťuje pod poslední a toto místo hledá podle poslední neprázdné buňky ve sl. A. Ačkoli se zdá, že tam nic není, je tam jeden znak a to mezerník. Pokud ve vzorovém řádku na Listu2 mezera nebude, nevyhledá poslední řádek správně.

Zítra (dnes) to upravím. Než jsem zjistil, že jsi tu neco dal jsem zkusil jako příklad tohle. Mazání je udělané tak, že maže nebo odstraní vždy ten řádek, kde je právě kurzor. Lze to udělat i tak že budeš muset zadat číslo řádku.

Vzorec na Listu 2 se liší podle toho, jakou jazykovou verzi Excelu máš nainstalovanou.

=(KČ((”4/”&A1)/7+MOD(19*MOD(A1;19)-7;30)*14%;)*7-6)+1
=(SK((”4/”&A1)/7+MOD(19*MOD(A1;19)-7;30)*14%;)*7-6)+1
=(DOLLAR((”4/”&A1)/7+MOD(19*MOD(A1;19)-7;30)*14%;)*7-6)+1

První řádek je určen pro český, druhý pro slovenský a třetí pro anglický Excel

ve vzorci zde je jako bunka s rokem použita A1, ve tvém případe to může být (a je) samozřejmě jiná

Těžko něco vytvořit,když není jasné co.
Nový řádek zřejmě má obsahovat nějaké formátování nebo i vzorce. Udělej si vzorový řádek,včetně vzorců a formátování(třeba na jiný list) a ten překopíruj na první volný řádek.
Makro na to samozřejmě jde napsat, aby našlo první prázdný řádek.
Odstranit znamená co?
- vymazat hodnoty a ponechat vzorce, takže jako nový nevyplněný řádek
- nebo smazat komplet, jako kl. Del
- nebo odstranit celý řádek Ctrl mínus

Doplněné o svátky, ALE české.
Na listu 2 je seznam svátků, musíš upravit na slovenské. Na listu 1 kvůli tomu přidán skrytý řádek 4 a přidány výsledky pro svátky sobotní, nedělní a Po-Pá. Nevím jakou máš verzi Excelu, ve vzorci co počítá velikonoce je podle verze nutná změna fce Kč na SK nebo dollar. Fce je použita jako zaokrouhlení.
Třeba se ti něco z toho hodí, ale asi to budeš muset upravit do svého sešitu.

Pouze pro inspiraci:
Ve Tvé tabulce musíš každý měsíc "vyladit" dny nad datumy, což se mi zdá pracné. Tady je možnost automatického přiřazení dne k datumu. Pouze přepíšeš rok nebo měsíc vlevo nahoře. Svátky samozřejmě zakomponovat lze. Je to upravené v původní verzi od Stalkera ale počeštěné

Oblasti pojmenovat:
hodnoty sloupců a řádků přiřadit proměnným:

jmena = Range(Cells(10, 12), Cells(18, 12))
hodnoty = Range(Cells(10, 11), Cells(18, 11))
ActiveCell.FormulaR1C1 = "=SUMIF(jmena,""Jan"",hodnoty)"

Zakázat přepočet sešitu a u listů kdy chceš přepočet zadat:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

vyzkoušej

+ datum slovy

Budu-li vycházet z většinových koncovek ženských příjmení "á" mohlo by stačit takto.

nápověda Mr. Excel:

pokud se má sčítat jiná oblast, než oblast kritérií, tak takto

třeba takto

?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje