bir butona iki makro birden atanabilirmi

[gezgin-49]

arkadaşlar bir butona birden fazla makro atanabilirmi veya düğme atamadan makronun otomatik olarak çalışması için ne yapmak lazım.

Sub cocukaktar()
On Error Resume Next
Set s1 = Sheets("veri")
Set s2 = Sheets("Çocuklar")
deg = Array("A4", "F4", "K4", "A22", "F22", "K22", "A40", "F40", "K40")
For a = 7 To s1.[f65536].End(3).Row
s2.Range(deg(a - 7)) = ""
If s1.Cells(a, "g") = "ölü" Then
s2.Range(deg(c)) = s1.Cells(a, "f")
c = c + 1
End If
Next
End Sub

Sub torunaktar()
On Error Resume Next
Set s1 = Sheets("Torunlar")
deg = Array("A4", "F4", "K4", "A22", "F22", "K22", "A40", "F40", "K40")
sut = Array(4, 9, 14, 4, 9, 14, 4, 9, 14)
sat = Array(7, 7, 7, 25, 25, 25, 43, 43, 43)
For e = 0 To 8
s1.Range(deg(e)) = ""
Next
For b = 0 To 8
For a = sat(b) To sat(b) + 8
If Cells(a, sut(b)) = "ölü" Then
s1.Range(deg(c)) = Cells(a, sut(b) - 2)
c = c + 1
End If
Next
End Sub

 

[mehmett]

Yukarıda verdiğiniz iki makronun dışında aşağıdaki gibi üçüncü bir makro daha yazın ve butona bu makroyu atayın.

Sub ikimakro()
Call cocukaktar
Call torunaktar
End Sub

 

[gezgin-49]

Sayın Mehmet çok teşekkür ederim. çok işime yaradı bir sorum daha da olacaktı yardımcı olabilirmisiniz.

 

[mehmett]

Soracağınız soru bu konu ile ilgili ise bu başlıkta, farklı bir konuda ise yeni başlık açarak sorunuz. Birileri size yardımcı olacaktır.

 

[skaytan]

Emeğine sağlık teşekkürler

 

[mekist]

Yukarıda verdiğiniz iki makronun dışında aşağıdaki gibi üçüncü bir makro daha yazın ve butona bu makroyu atayın.

Sub ikimakro()
Call cocukaktar
Call torunaktar
End Sub

hocam burda marko çalışma sırası nedir.ilk yazılan ilk olarak mı çalışıyor.

 

[parametre]

tum işlemler verildigi sıraya gore işleme alınır bunu unutmamaklazım