Příspěvky uživatele


< návrat zpět

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

eLCHa napsal/a:

Pokud tu dáváte nějaký tip a chcete, aby si ho někdo našel v budoucnu tak vlákno lépe pojmenujte. Tuším, že 'kuleha' tady nikdo hledat nebude.

A jen poznámka k tomu zákazu ukládání. Zakázat to makrem je nejméně bezpečná cesta jak toho dosáhnout.


Ďakujem za upozornenie, premenovať sa mi to už nedá.
A k tej poznámke, ďakujem za doplnenie a informácie.

1. Vloženie textu do pätičky: Podklady spracoval/a: Meno, priezvisko
2. Zakázaný príkaz Uložiť ako, vyskakujúce okno: Podklady spracoval/a: Meno, priezvisko, uloženie nie je možné
3. Zaheslované makro
(Ďakujem elninoslov)

Excel (2007) - ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "Podklady vypracoval/a: Meno, priezvisko, uloženie nie je možné", vbInformation
Cancel = True
End If
End Sub

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


Word (2007) - ThisDocument
Option Explicit

Private Sub Document_Open()
Dim Doc As Document
Dim wSection As Section
Set Doc = ThisDocument
For Each wSection In Doc.Sections
With wSection.Footers(wdHeaderFooterPrimary)
.Range.Text = "Podklady vypracoval/a: Meno, priezvisko"
End With
Next wSection
Set Doc = Nothing
End Sub

Sub FileSaveAs()
MsgBox ("Podklady vypracoval/a: Meno, priezvisko, uloženie nie je možné")
End Sub


VBA projekt - makro - zaheslovanie
Celý projekt zbalený-klik pravým tlačidlom myši-Project Properties-Properties
(alebo Tools-Project Properties-Properties)
Zaškrtneme možnosť Lock project for wieving a 2x napíšeme heslo.

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

elninoslov napsal/a:



Ak dovysvetlíte logiku, tak to asi pôjde urobiť len pridaním príznaku...


Chcem docieliť toto:
Súbor nemá pätičku, vloží sa makrom pri tlači, súbor sa vytlačí s pätičkou, a po tlači sa pätička vymaže, akoby tam nikdy nebola.

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

elninoslov napsal/a:

Na posledný záznam podľa A? Alebo na posledný záznam zvoleného oddelenia?


Tak ako je napísané, pri vybratí odd. na posledný záznam podľa A.
To znamená, že na posledný záznam podľa oddelenia.

Týmto krokom sa nemá nič zmeniť. Len potrebujem vedieť aké je posledné poradové číslo, aby som vedela ďalej číslovať papierové listiny a nemusela rolovať zoznam hore dole.

Ďakujem, presne takto som to potrebovala.

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

r13 napsal/a:


Proste namiesto Sheets("Statistika_COS_2022") použi ActiveSheet. (Máš to tam dvakrát).


Tak toto som potrebovala, aké jednoduché.
Opravila som, funguje.

VYRIEŠENÉ

Ďakujem

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.


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

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Výmaz řádku podle hodnoty v konkrétním sloupci

elninoslov • 7.2. 21:49

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 14:02

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 11:44

plán 12 h směn na celý rok

PE1PA • 6.2. 14:56

plán 12 h směn na celý rok

elninoslov • 6.2. 14:16

plán 12 h směn na celý rok

elninoslov • 6.2. 14:15

plán 12 h směn na celý rok

elninoslov • 6.2. 13:21