Yazılmış bir koda makro gibi düğme atanabilirmi?

[KARTAL06]

Forumdaki değerli arkadaşların yardımları ile yazılmış kodlarım var. Fakat kullandığım sayfada veri arttıkça veri girişim ağırlaşmaya başladı. veriyi girip enter yaptığımda diğer hücreye 2-3 sn sonra geçiyor buda sinir bozucu ve zaman kaybı. Bu kodları ben verileri girdikden sonra çalıştırmanın bir yolu varmı acaba? Makroda olduğu gibi düğme atanabilirmi? Atanıyorsa nasıl yapabilirim?
Yardımlarınızı bekliyorum.

 

[Metin Karaağaç]

Yapılır.
Kodları ilgili sayfanın olduğu yerden kopyala ya da kes demeniz gerekir.
Daha sonra aynı kodları Insert/module diyerek yeni bir modul olarak yapıştırırsınız. Tabi bu durumda kodların başlangıcı "Private sub...." şeklinde olmaması gerekir. Bunları da değiştirmeniz gerekir.
Bunları da yaptıktan sonra "formlar" araç çubuğunu kullnarak düğme oluşturur ve o düğmeye yeni hazırladığınız kodları atayabilirsiniz.

(Sanırım biraz karışık anlattım ama umarım anlamışsınızdır)

 

[KARTAL06]

Beceremedim.

Private Sub Worksheet_Change(ByVal Target As Range)
[a6:AB5000].Sort Key1:=Range("Y6"), Order1:=xlAscending, Key2:=Range("G6"), Order1:=xlAscending
End Sub

Kod bu belki makroya çevrilebilir.

 

[Seyit Tiken]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a6:AB5000].Sort Key1:=Range("Y6"), Order1:=xlAscending, Key2:=Range("G6"), Order1:=xlAscending
End Sub

Şeklinde deneyiniz.

 

[KARTAL06]

Nerde denemeliyim?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a6:AB5000].Sort Key1:=Range("Y6"), Order1:=xlAscending, Key2:=Range("G6"), Order1:=xlAscending
End Sub

Şeklinde deneyiniz.

Kod sayfasınamı yoksa modül sayfasına mı denemeliyim?

 

[KARTAL06]

Denedim ama yapamadım.

Olmadı büyük ihtimalle ben beceremedim.