Farklı Excelleri bir Excelin Sheetlerine Kopyalayan Macro

[kizilsac]

Bir klasörün içindeki bir çok excel dosyasını yeni bir excelin içinde her bir excel dosyasını farklı sheetlere yazan ve excel dosya isimlerini topladığı sheetlere isim olarak atayan bir makroya ihtiyacım var
yardım edenlere şimdiden teşekkürler

 

[Kemal Demir]

Günaydın,

İşinize yarayacak kucuk bir ornek hazırladım.aşagıdaki belirttiğim unsarlara dıkkat ediniz.

1.)Bu dosyayı ilgili Dosya dısarısında tutarsınız.(arattıracagınız klasor içerisinde Olmasın)
2.)Klasor içerisindeki Dosyaların hepsinin sheet(Sayfa) isimleri aynı değil ise problem teşkil etmez.Şayet aynı ise Aşagıdaki kodları kod sayfasından cıkarınız.

Bu şekilde her eklediği sayfayı aldıgı sayfanın sheet ismini almaz.

vurgu = ActiveSheet.Name
ActiveSheet.Name = vurgu

Umarım anlatabilmişimdir.

Umarım herkesin işine yarar bir çalışma olmustur.

Test Edilmiştir.

 

[kizilsac]

tesekkurler ilgi alaka icin
Emegine saglık

 

[insane54]

tersi ??

bunun tersi mümkün mü

yani bir excell içindeki sheetleri isimleriyle yeni bir excel belgesi haline getirebilirmiyiz. herbir sayfa kendi adında bir belgeye dönüşsün