Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6 7 8 9   další » ... 198

Uveďte nejaké požiadavky, príklady, prílohy, popis, nech sa vieme rozhodnúť, či budeme vedieť ako postupovať.

Dá sa použiť CLng()
DATEoldCOUNT = WorksheetFunction.CountIf(OblastSMAZ, "<" & CLng(DATEnow))
alebo Long namiesto dátumu
Dim DATEnow As Long
PS: Ale viete o tom, že to bude kolabovať ak bude oblasť SpecialCells(xlCellTypeVisible) rozdelená filtrom.

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č.


Strana:  1 2 3 4 5 6 7 8 9   další » ... 198

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Hladam niekoho na opravu/zmenu makra

loksik.lubos • 8.8. 18:27

Hladam niekoho na opravu/zmenu makra

loksik.lubos • 8.8. 18:25

COUNTIF s datumem

Merlin99 • 8.8. 14:57

Přidání listu s aktuální datem

Fantasyk • 8.8. 13:50

Hladam niekoho na opravu/zmenu makra

elninoslov • 8.8. 13:03

Přidání listu s aktuální datem

lugr • 8.8. 12:19

Přidání listu s aktuální datem

Fantasyk • 7.8. 23:37