Makro (print pdf i povezivanje dva makroa na jedno dugme)

Postaviću u prilogu fajl koji sam uprostio da bi lakše objasnio šta mi treba.

1. U radnom listu imam dva makroa i dva dugmeta kojima se aktiviraju. Da li postoji mogućnost postaviti treće dugme kojim bi se aktivirala oba makroa (jedan za drugim) i ako može kako to da izvedem?

2. Kako napraviti makro da mi postojeći radni list sačuva kao pdf fajl na lokaciji D:\Arhiva, a da ime fajla bude kao sadržaj polja A1?
(gledao sam http://www.elitesecurity.org/t356124-0#2209890 i nisam se snašao jer ne poznajem VBA)

EDIT:
Imam Adobe PDF i CutePDF Writer.

Potpis

Zvoni, kucanje ne radi ...

Za prvo pitanje samo spojis ova dva makroa u jedan. NPR:

Sub Delete
Range("B3:B13").Select
Selection.ClearContents
Range("D3:D13").Select
Selection.ClearContents
End Sub

Hvala!
Može rešiti problem tako što ću napraviti treći makro i povezati ga za treće dugme.


I dalje ostaje otvoreno pitanje da li se može uraditi bez trećeg makroa, znači jedno dugme da aktivira dva razlličita makroa.

Potpis

Zvoni, kucanje ne radi ...

Nisam razumeo koji poblem? Kao sto dugmetu pojedinacno dodeljujes makro tako i jednom dugmetu mozes da dodelis bilo koji "spojeni" makro.
U prilogu je tvoj primer

Ovdje imaš primjer kako jednim buttonom možeš aktivirati više Macro-a.
Dakle naredbom Call pozivaš Macro-e

Private Sub cmdUnos_Click()

Ovo je bilo krajnj rešenje, ali tražio sam elegantniju varijantu.
Na listu imam 4 makroa koji se startuju svi zasebno, a imam još dve potrebe (sva četiri odjednom i prva tri odjednom).




Gledao sam ovaj kod, ali nisam ga razumeo dok mi sad nisi pojasnio da je ključ rešenja CALL.
Ovo je pravo rešenje.

Hvala!


P.S.
Gledam ostale kodove za prebacivanje fajla u PDF i ne snalazim se, pa ako može savet ...
(Office 2003; Adobe PDF ili CutePDF Writer)

Potpis

Zvoni, kucanje ne radi ...

Na ovoj temi GIX je dao kod za snimanje preko PDF Creatora
http://www.elitesecurity.org/t381536-0#2442588

btw: pogledaj i ove linkove
- SaveAs with PDF-creator
- How to create an excel to PDF macro with auto filename
- Print with Adobe, ovdje obrati pažnju. Naišao sam na ovaj citat
Koliko je ovo točno ne znam, nisam probao

Hvala!!!

Odustao sam od potrage za rešenjem uz pomoć Adobe PDF ili CutePDF Writera (fajl će se koristiti na računarima gde imaju ova dva PDF printera, ali nije problem instalirati i treći).
Preuzeo sam PDF Creator i rešenje koje je ponudio @Gix_ radi kako treba.


U prilogu postavljam i rešenje ako nekada nekom zatreba.

Potpis

Zvoni, kucanje ne radi ...

Molim pomoć
Zašto mi Sub Priprema() izvrši samo prvu naredbu a drugu ne u čemu je problem


Sub Izvrsi_Pripremu1()
'Priprema nove
Application.ScreenUpdating = False
With ws
Application.Run "'Novi.xlsm'!I_KORAK"
End With
End Sub


Sub Izvrsi_Pripremu2()
'Priprema prosle
With ws
Application.Run "'Prosli.xlsm'!II_KORAK"
End With
Application.ScreenUpdating = True
End Sub


Sub Priprema()

'Pozivnje s jednog mjesta
Call Izvrsi_Pripremu2
Call Izvrsi_Pripremu1
Range("A1").Select
End Sub

Za pocetak koliko mogu videti iz prilozenog koda nigde nisi deklarisala ws, pretpostavljam da je to neki Worksheet. Okaci taj tvoj fajl u kome je to odradjeno.

Potpis

[email protected]=