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

Příspěvky uživatele

Nemusí sa to ukladať, nie je to nutné, ja len skúšam ako to dosiahnúť, pätička sa vloží automaticky pred tlačou, a potom chcem aby sa aj automaticky odstránila a to neviem dosiahnúť. Bez zásahu užívateľa. Dám tlač, vytlačí sa a vymaže sa.

Príkazy tam nemusia byť
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save


Myslím, že to vypínanie príznaku úplne stačí.
Pretože sa vytlačí, v ukážke pred tlačou síce vidno text v pätičke, ale pri Vložiť-pätička nie je žiaden text a nemožno ho prepísať.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.CenterFooter = "Podklady spracovala: meno,priezvisko"
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
ActiveSheet.PageSetup.CenterFooter = ""
End Sub

Ďakujem

Toto makro mi vloží do pätičky text.

Sub patickatext()
Worksheets("Hárok1").PageSetup.CenterFooter = "Podklady spracovala: meno priezvisko"
End Sub

Už som nato prišla.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call patickatext
End Sub

DOPLNENIE
Už som vyriešila ako vložiť text do pätičky pred tlačou, teraz potrebujem text z pätičky po tlači následne vymazať. Súbor sa automaticky makrom uloží a pred uložením vymaže text. Ale nefunguje mi to, funguje mi to len keď ťuknem na disketku uložiť.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call vlozitpaticku
End Sub

Sub vlozitpaticku()
Worksheets("Hárok1").PageSetup.CenterFooter = "Podklady spracovala: meno,priezvisko"
ActiveWorkbook.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call odstranitpaticku
End Sub
Sub odstranitpaticku()
With Sheets("Hárok1").PageSetup
.CenterFooter = ""
End With
End Sub

V bunke K2 mám rozbaľovací zoznam Oddelení a potrebovala by som podľa vybratého oddelenia skočiť na posledný záznam v prvom stĺpci A, kde je poradové číslo.

Ďakujem

Pozrite

https://www.porada.sk/t300425-vlookup-vyhladanie-udaju-s-mensou-hodnotou.html

office? Prilož prílohu

http://wall.cz/index.php?m=topic&id=3195

Funkcia COUNTIF - počíta počet.

Dobrý je aj doplnok RJ Tools od Radka Jurečka, ktorý počíta počíta farebné bunky.
Buď počet alebo sumu.

https://www.rjurecek.cz/excel/rj-tools/

https://www.porada.sk/t277092-scitanie-buniek-podla-farby.html

Alebo makro
http://excelprekazdeho.blogspot.com/2013/07/ako-scitat-hodnoty-podla-farby-bunky.html

Obrázok

Nová príloha doplnená o Vysunuté pracoviská.

To číslo s poslednom riadku sa tam dostáva z exportu zo serveru, nechávam ho tak. Vymaže sa pri aplikácii makra. Súbor je zložený z dvoch textových súborov importovaných do excelu (COS a Vysunuté pracoviská)

Po aplikácií makra sa vytvorí hlavička pre Vysunuté pracoviská, ale keďže neviem, koľko riadkov bude vo Vysunutých pracoviskách, tak sa nepresúvajú v makre, presúvajú sa ručne.

Na obrázku vidieť, čo všetko môže byť na Vysunutých pracoviskách.
To čo tam nemusí byť, sa odstraňuje v makre.
Dôležité sú hlavne gyn sály, OMFCH, OAIM a RTG-AG, tie musia ostať.

Makro funguje, len neviem ako zabezpečiť, aby sa zafarbili LEN konštanty: služba, príslužba, dodatok, neop., správne meno:, správne priezvisko:, správne R.č.:

Podfarbí sa celý text v bunke.
Všetky ostatné poznámky potrebujem bez farby.

Tu som riešila úpravu makra.
https://wall.cz/index.php?m=topic&id=52385

Vložila som nové makro, ktoré mi funguje, ale predtým musím zmazať z hárku dátum, aby bol všeobecný, chcela by som, aby makro fungovalo bez toho.

Nie ide o to, že z ošit je zakaždým iný s rovnakou štruktúrou v názve, ale s iným dátumom.

Makro sa mi zastaví tu a nechce pokračovať ďalej.
.Color = Farba(i) (opravila som, VYRIEŠENÉ)

MAKRO funguje ako má, len neviem ošetriť, aby to platilo všeobecne, nie len pre tento súbor. Dátumy sú vždy iné.

Makro opravené, už funguje ako má, bez ohľadu na dátum.

Ďakujem r13

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje