Tek komutla 3 görevi ardarda çalıştırmak

[baknediycem]

Merhaba, 3 değişik butonla çalışan işlemleri 1 komut düğmesiyle sırasıyla, ardarda çalıştırmam mümkün müdür?

Private Sub CommandButton1_Click()
Shell ("C:\\Program Files\\Mozilla Firefox\\firefox.exe http://www.muhasebe.org/not.zip")
End Sub


Private Sub CommandButton2_Click()
rar = "C:\Program Files\WinRAR\Rar.exe"
yol = "C:\muhasebe\"
dosya = yol & "not.zip"
'dosya ve klasör ismindeki boşluklara duyarlıdır.
'bu nedenle chr(34) ile çift tırnak içine alırız.
'rar E <kaynak_zip> <içindeki_dosyalar> <hedef_klasör>
q = Chr(34) & dosya & Chr(34) & " " & "*.*" & " " & Chr(34) & yol & Chr(34)

Shell rar & " E " & q
End Sub


Private Sub CommandButton3_Click()
unload me
end sub

 

[Orion1]

Hepsini bir buton içine yazın.

 

[baknediycem]

oldu. tesekkur ederim :$

 

[parametre]

diger bir metodda
makrolar 1, 2, 3 adı oldugunu varsayalım onları call komutuyla prosedur yaparak cagırabilirsin (işletebilirsin )kolay gelsin

 

[baknediycem]

tesekkur ederim sn. parametre