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.

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)

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.

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.

Oprosti što nisam prije reagirala

Jednostavno sam htjela nekako ukomponirati makro odavde sa svojim makroima ali nisam znala i odustala. Pozivam svakog posebno.

u svakom slučaju hvala ti puno