vba kod sorunu

[welqmx]

YARDIMLARINIZI BEKLİYORUM vba kod sorunu

aşağıdaki kod istediğim gibi çalışıyor fakat aynı sayfada çalışıyor yani macro dğmesine tıklattıgımda baska herhangi bir sayfada yazdıramadım.
bu kod 3 adet sayıyı ilk sayının sıralamasını dikkate alarak sıralayan bir macro bunu bulundugu sayfada yapıyor ama baska sayfadayken diğer sayfayada bu sıralama verilerini yazdırmasını istiyorum.

Yardımcı olacak arkadaşlara şimdiden çok teşekkür ediyorum.


Sub Düğme1_Tıklat()
[D1,E1,F1].Copy
sat = WorksheetFunction.CountA(Sheets("sayfa1").Range("(A1:A65536)")) + 1
Cells(sat, "a").PasteSpecial
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

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

 

[halit3]

kırmızı renkli yeri silerek bir denermisiniz.

sat = WorksheetFunction.CountA(Sheets("sayfa1").Range("( A1:A65536)")) + 1

 

[welqmx]

ekte örnek dosya ekledim

merhaba
orjinal kodda kırmızı yazılı yer yoktu zaten ama işimide görmüyordu belki düzelir diye ben ekledim oraya. ve ordaki "sayfa1" ismini "sayfa2" yapınca sayfa1 den sayfa2 ye yazdıramıyorum yine.