macroyu iki parçaya bölme

[mehmet355]

makrolarda yeniyim ve oldukça uzun bir makro yazmam sonucu hata aldım. elimdeki makroyu nasıl iki parçaya bölebilirim?

galiba call macro diye komut var ama kullanımını bilmiyorum..

makromuz aşağıda..
txt olarak

http://hotfile.com/dl/66046750/26cffcb/makro.txt.html

 

[security]

http://hotfile.com/dl/66046750/26cffcb/makro.txt.html
linkine ekleyeceginize siteye ekleseydiniz daha iyi olurdu 60 sn beklemek istemez kimse...

 

[mehmet355]

siteye eklemeye çalıştım ama ek fazla büyük dedi, bu konuda özür ...

 

[Skorpiyon]

Sayın mehmet355,

Aslında kodlarınız sürekli bir tekrardan ibaret olmuş. Kodları bölmeye kalkmadan kısaltma yapılabilir. Yalnız sabahın bu saatinde size önerebileceğim tek şey,

Range("AQ4").Select
Range(Selection, Selection.End(xlToRight)).Select
Sanırım bu kod ile AQ:256 'ya gidiyorsunuz. Eğer öyle ise;

Range(Selection, Selection.End(xlToRight)).Select satırlarını silerek sadece aşağıdaki kodu yazın.

Range("AQ4").Select
Cells(ActiveCell.Row, 256).Select