Příspěvky uživatele
< návrat zpět
Záleží na logike tých makier, či je možné ich vykonať po sebe, ktoré sa má vykonať prvé, alebo či ich treba preprogramovať, aby bolo iba jedno makro.
napr.:
Private Sub Workbook_Open()
Call spustimakro1
Call spustimakro2
End Sub
alebo na konci makra spustimakro1 sa zavolá spustimakro2
Private Sub Workbook_Open()
Call spustimakro1
End Sub
Sub spustimakro1()
...
Call spustimakro2
End Sub
Do PF dajte:
=COUNTIFS($A$2:$A$10;$A2;$B$2:$B$10;$B2)>1
Neotvárať klikom, lebo to otvorí prehliadač, ktorý nekorektne zobrazí kódovanie. Treba to stiahnuť do PC (pravý klik - uložiť odkaz ako).
Tlačiareň je na jednom prepnutá na iné DPI?
Chyba je asi iba v tom, že odkazujete na celé Tabuľku ...tblKontejnery... . Musíte iba na stĺpec ...tblKontejnery[porovnat]...
Nie
=IF([@porovnat]="";"";IF(COUNTIF(tblKontejnery;[@porovnat])>0;1;""))
=KDYŽ([@porovnat]="";"";KDYŽ(COUNTIF(tblKontejnery;[@porovnat])>0;1;""))
ale
=IF([@porovnat]="";"";IF(COUNTIF(tblKontejnery[porovnat];[@porovnat])>0;1;""))
=KDYŽ([@porovnat]="";"";KDYŽ(COUNTIF(tblKontejnery[porovnat];[@porovnat])>0;1;""))
Dá, ale potrebujete tie krkolomné adresy na súbory.
Napr. ja mám jeden súbor PDF s názvom "InnoHikes_Devices_Dez2023.pdf" ale linky sú
https://1drv.ms/b/c/8f76314c21cd8c6b/EX6OpzIobV9KvoWMCIJWPNIBu6vLQvZ9BFwgGTzdU5HPxw?e=tm2rRk
https://onedrive.live.com/view.aspx?resid=8F76314C21CD8C6B!s32a78e7e6d284a5fbe858c0882563cd2
https://onedrive.live.com/?cid=8F76314C21CD8C6B&id=8F76314C21CD8C6B%21s32a78e7e6d284a5fbe858c0882563cd2
A to sa Vám budú ešte otvárať v prehliadači, nie v predvolenej PDF aplikácii.
Ak je to Váš OneDrive, ktorý máte prihlásený a synchronizovaný v PC tak pripojte obyčajnú cestu
c:\Users\Elnino\OneDrive\PDF\InnoHikes_Devices_Dez2023.pdf
Teda napr:
=HYPERLINK("c:\Users\Elnino\OneDrive\PDF\"&A1;A1)
To pôjde ale iba na Vašom PC.
Tak už len naposledy som pridal na koniec procedúru iba na to vytiahnutie toho jediného atribútu.
Ale čo znamená, že chcete porovnávať???
Chcete aby Vám vypísalo dátum, kedy má prísť pacient na kontrolu o 14 dní?
=TODAY()+14
=DNES()+14
alebo ide o výpis počtu dní zostávajúcich do prehliadky?
=A1-TODAY()
=A1-DNES()
Skúste to čo potrebujete upresniť.
Medzitým som urobil podrobný popis, aj malú úpravu, aj jednu opravu chybky vyfarbovania čudlíkov.
Aspoň trochu chápete tomu kódu, či ani nie? Lebo nechcelo sa mi už robiť popis ...
Ja už som si to info našiel. Takto som to poriešil.
A kto máte k tomu nejaký popis? Nedokážem dohľadať žiadnu dokumentáciu, popis API, príklady, nič.
OT: Len doplním k predošlému zoznamu:
GROUPBY........SESKUPITPODLE
PIVOTBY........KONTPODLE
PY.............PY
A neprejde ani toto?
Set WrdDoc = .GetInspector.WordEditor
With WrdDoc.Content
.Collapse Direction:=wdCollapseEnd
' .Paragraphs.Add
.InsertBreak
ThisWorkbook.Worksheets("KT1").PivotTables("KT1").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
.InsertBreak
Application.CutCopyMode = False
ThisWorkbook.Worksheets("KT2").PivotTables("KT2").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
.InsertBreak
Application.CutCopyMode = False
ThisWorkbook.Worksheets("KT3").PivotTables("KT3").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
.InsertBreak
Application.CutCopyMode = False
ThisWorkbook.Worksheets("KT4").PivotTables("KT4").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
Application.CutCopyMode = False
End With
.Display
To .Collapse to tam musí byť, inak nezachová text pred KT.
To .InsertBreak tam byť nemusí, pôjdu tie KT hneď pod sebou.
Tá pauza tam bola pre istotu, ak je väčšia KT, aby stihla systémová Copy urobiť všetko čo potrebuje.
Tak Vy tam asi nemáte tie CustomProperties pridané:
Sub CheckCustomProp()
List1.CustomProperties.Add "CustPropCislo", "123"
List1.CustomProperties.Add "CustPropDatum", DateSerial(2024, 5, 31) + TimeValue("14:45:00")
End Sub
Overil som to, je to tak. Keby ste napísal hneď, že Vám to dá chybu na riadku
List1.CustomProperties(1).Value = List1.Range("A2").Value2
vedeli by sme hneď. Ale to je taký dnešný nešvar, že sa napíše iba, nejde mi to, hodilo to chybu, je s tým problém, nefunguje, apod. Treba presne!
Skúste to. Malo by to fachať.
Inak, Vy chcete používať viac listov??? To bude asi problém. Bude sa to musieť prekopať, aby makro vedelo, ktorý list je aktívny, a ktoré číslo CustomProperties mu prináleží. To by potom bolo jednoduchšie ukladať hodnoty do zoznamu v liste xlSheetVeryHidden.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články