iki makroyu tek bir butonda çalıştırma

[abhaz]

Sub Makro1()
Columns("A:A").Select
Range("A1:A22").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( _
"C:C"), Unique:=True
Range("C11").Select


End Sub

bu makro ile a sütununa yazılmış olan verileri c sütununa filitre ederek aktarıyorum.

Sub Makro2()

Columns("C:C").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

bu makro ile aktardığım verileri sıralıyorum.

bu iki makroyu tek bir butona atayabilirmiyiz?
yada iki makroyu birleştirebilirmiyiz?

 

[zafer]

Merhaba

Makro1 e
End sub tan önceki satıra makro2 yazın

...........
.......
makro2
End Sub

 

[Kemal Demir]

Sub toplam()
Application.Run "Makro1"
Application.Run "Makro2"
End Sub

oluşturdugun butondan makro ata kısmına bu ücüncü makroyu bağlaman yeterli olacaktır.

 

[abhaz]

teşekkürler...

 

[Ali]

Sub Makro1()

Range("A1:A22").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C1"), Unique:=True
Columns("C:C").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub