Makroları birleştirerek tek tıklama ile çalıştırma;

[akmes]

Üstadım kolay gelsin;Ekte eklediğim örnekte birden fazla makro mevcut.Ben ilk önce başka bir ticari programdan aldığım raporu sayfa1 deki dolgulu alana kopyalıyorum.Sonra sırası ile sayfa1 deki; Sıralama, Boşluk Sil,Aktar ve en son olarak da sayfa2 deki Virgül Sil makrosunu tıklıyorum.Bunların bir tıklama ile hepsinin sırasıyla çalışma imkanı varmı? İlginiz için şimdiden teşekkür ederim.

 

[cihantopuz]

yeni bir makro yazın örn;
sub birlestir ()
call makro1 '(ilk sırada çalışmasını istediğiniz makro adı)
call makro2 '(ikinci sırada çalışmasını istediğiniz makro adı)
end sub
devamını dilediğiniz gibi yapabilirsiniz.
birlestir makrosunu çalıştırdığınızda içine yazdığınız makrolar sırası ile peşpeşe çalışacaktır

 

[akmes]

Ekteki dosyada denedim ama olmadı.Bir de siz incelermisiniz.

 

[halit3]

bu kodu denermisiniz.?

Sub birleştir()
Range("A2:m65536").Sort Range("m2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("g:g").Replace What:=" ", Replacement:=""
Columns("g:g").Replace What:="TC:", Replacement:=""
End Sub

 

[akmes]

bu kodu denermisiniz.?

üstadım olmadı

 

[halit3]

ekli dosyaya bakınız.
bosluk_sil makrosuna ekledim.

 

[halit3]

tabi olmaz makroyu sayfa1 de çalıştıracaksınız kodlar ona göre eğer bütün sayfalarda olupta sayfa1 deki değerleri çalıştırmak istiyorsanız.

bu kodu deneyiniz,

Sub birleştir()
Sheets("Sayfa1").Range("A2:m65536").Sort Sheets("Sayfa1").Range("m2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Sayfa1").Columns("g:g").Replace What:=" ", Replacement:=""
Sheets("Sayfa1").Columns("g:g").Replace What:="TC:", Replacement:=""
End Sub

 

[akmes]

evet sırala ile boşluk sil makrolarını birleştirmişsiniz eline sağlık ama Üstadım diğer makrolar dene ve tamsayı_59 bunları da hep birlikte birleştirebilirmiyiz.

 

[halit3]

ekli dosyaya bir bakınız.

 

[akmes]

üstadım hepsi olarak yaptığınız tam istediğim gibi olmuş, valla sizi de çok yordum.Çok teşekkür ederim.Emeğinize sağlık.

 

[halit3]

üstadım hepsi olarak yaptığınız tam istediğim gibi olmuş, valla sizi de çok yordum.Çok teşekkür ederim.Emeğinize sağlık.

iyi çalışmalar