Příspěvky uživatele
< návrat zpět
B16:B35 obsahuje vzorce? Aké?
Takže B16:B35 nakopírovať vždy od C16:C35?
Čo ak tam už sú použité tie bunky? Kopírovať potom na prvý voľný stĺpec podľa riadku 16?
Táto nová oblasť má byť potom zdrojom napr. pre KT? Treba upraviť aj zdroj KT.
Jedná sa o tabuľku alebo objekt Tabuľka?
Príloha?
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.
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