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?
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?