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

Příspěvky uživatele

Pošlite prílohu,nech je jasné odkiaľ makro spúšťate a čo je v listoch. Z toho sa bude dať snáď vydedukovať, čo chcete urobiť.

V polospánku :
Sub add()
Dim WS As Worksheet, Nazov As String
Nazov = Format(Now, "dd.mm.yyyy")
On Error Resume Next
Set WS = Worksheets(Nazov)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze přidat, jelikož se den už v sešitě nachází", vbExclamation: Exit Sub
Worksheets("VZOR").Visible = True
Worksheets("VZOR").Copy After:=Worksheets(Worksheets.Count)
Worksheets("VZOR").Visible = False
Set WS = Worksheets(Worksheets.Count)
WS.Range("A1").Value = Nazov
WS.Name = Nazov
ActiveWindow.Zoom = 55
End Sub

Nerozumiem, ale skúsim:
=COUNTIF(NOVÉ_xlsm[Měsíc];"*"&TEXT(B7;"[$-cs-CZ]mmmm")&"_"&YEAR(B7)&"*")
=COUNTIF(NOVÉ_xlsm[Měsíc];"*"&HODNOTA.NA.TEXT(B7;"[$-cs-CZ]mmmm")&"_"&ROK(B7)&"*")
=COUNTIFS(NOVÉ_xlsm[Měsíc];"*"&TEXT(B7;"[$-cs-CZ]mmmm")&"_"&YEAR(B7)&"*";NOVÉ_xlsm[Jméno];"<>";NOVÉ_xlsm[KONTROLA];"<>")
=COUNTIFS(NOVÉ_xlsm[Měsíc];"*"&HODNOTA.NA.TEXT(B7;"[$-cs-CZ]mmmm")&"_"&ROK(B7)&"*";NOVÉ_xlsm[Jméno];"<>";NOVÉ_xlsm[KONTROLA];"<>")

=COUNTIFS(NOVÉ_xlsm[Jméno];"<>";NOVÉ_xlsm[KONTROLA];"")
EDIT: Aj ten predošlý je divný, dal by som ho takto:
=COUNTIFS(NOVÉ_xlsm[Jméno];"<>";NOVÉ_xlsm[KONTROLA];">=1.1.2019")
a ten prvý počíta milión riadkov. Načo. Veď odkazujte iba Tabuľku:
=COUNTIF(NOVÉ_xlsm[číslo];"*")
alebo
=COUNTA(NOVÉ_xlsm[číslo])
=POČET2(NOVÉ_xlsm[číslo])

Súbor - Možnosti - Vzorce - Čísla formátované ako text alebo s apostrofom na začiatku

ak ide o zobrazenie (nie o to aby tam tie 0 skutočne boli), bunku naformátujte vlastným formátom
00000000
a potom aj keď zadáte 15475 bude zobrazovať 00015475 ale v skutočnosti tam bude 15475.

Znamienko - uchovávajte vedľa v samostatnej bunke, čas dajte absolútne číslo, naformátované podľa vyššie uvedeného. A samozrejme toto znamienko zohľadnite v ďalších výpočtoch s časom, v ktorých zase uložte znamienko bokom. atď.

EDIT: nižšie od eLCHa, to bude jednoduchšie.

Sub CheckAndPrint()
If Range("M8") & Range("F9") & Range("F18") = "" Then MsgBox "Ani prd !", vbCritical: Exit Sub
' ... pokračuje tlačiace makro
End Sub

@JoKe: dynamický zoznam z Tabuľky nefunguje nikde, myslím že ani v definovanom názve. Treba si urobiť definovaný názov s použitím OFFSET/POSUN a COUNTIF prípadne COUNTBLANK či COUNTA.
Príklad:
=OFFSET(Hárok2!$A$2;;;COUNTA(Tabuľka1[a]))

To je moje staré makro. G6 je konštanta na max počet súborov. Tak si ju zmente.
Celé vlákno sa mi čítať nechce, iba ak by to Jiří nedal. Teda ak sa mu bude chcieť, lebo to vyzerá na dávkovanie požiadaviek.

Čítal ste čo píšem?
1. Odkiaľ má vedieť makro adresu obrázku, keď ju nikde nemáte uloženú ?
2. Priložte reálne vyzerajúcu prílohu ! Aj s pár obrázkami. Reálne rozloženie v liste!

Ja mám dojem, že máte skupiny buniek po 24 riadkoch a 7 stĺpcoch, a to pre každý obrázok. A tomu zodpovedajú zlúčené bunky v B:B. To je typ. To ale nekorešponduje s prvým makrom, čo som Vám dal na hľadanie obrázkov, lebo to ich zapisuje pod seba (nie každý 24. riadok).

Reálnu prílohu, šup.

A kde máte cesty k tým súborom? V predošlom makre ste nechcel, ani prípony, a teraz ich chcete. Treba uchovávať aj cesty. Ďalej, odkiaľ sa berie parameter "\obrazek1.jpg" ?...

Tu je príklad. Vzhľadom na pokročilú hodinu viac nerobím ...

??? Predstavoval som si nejaký lepší popis toho čo potrebujete vyriešiť. Napríklad cieľ potrebujete vždy pri zápise posúvať pod seba, alebo že zdroj aj cieľ sú variabilné na nejakej závislosti a samé si to má určiť veľkosť cieľa podľa zdroja, a pod. Navyše aj príloha je nejednoznačná. Do TO!C8:E10 chcete skopírovať FROM!A1:C3 ? Ale dáta sú vo FROM!C8:E10, nie v A1:C3. A v TO nieje nič.

Použite Offset
Workbooks("POKUS.xlsm").Worksheets(8).Range("E13:G15").Offset([Koľko riadkov od 13-teho]).Value = Workbooks("POKUS.xlsm").Worksheets(7).Range("A13:C15").Value

prípadne Cells(riadok, stĺpec).Resize(riadkov, stĺpcov)
bodla by príloha

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje