Příspěvky uživatele

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

@Jiří497: preklep - bodka

@Fantasyk: A čo ak nenájde?
Sub pokus()
Dim Compld As Range
Set Compld = Range("C:N").Find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Compld Is Nothing Then
Range("B1").ClearContents
MsgBox "Nenalezeno !", vbExclamation
Exit Sub
End If
Range("B1").Value = Cells(Compld.Row, 3).Value
'...
End Sub

W10 x64 Pro SK, Office 2019 Pro x64 SK - makro funguje.
Ako bolo napísané, to nieje funkcia s návratovou hodnotou - teda má to byť procedúra sub.
Je v liste alebo v module?
Volá sa z listu alebo z mobulu?
Alebo je v PERSONAL.XLSB?
Čo má vstupovať ako parameter, string alebo Range?
Určite by som vynechal Select...
Príloha by bodla.
Sub doubleLine(aktRange As Range)
With aktRange
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
End With
With .Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
End With
With .Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
End With
End With
End Sub
Sub pokus()
doubleLine Worksheets("Hárok1").Range("B3:D10")
End Sub

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje