• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• 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

Existuje nejaká aplikácia v mobile, ktorá podporuje VBA v Androide?

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse