Birleştirme Makrosunda Değişen Kitap Adını Kullanma

[selis]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar merhaba,
Aşağıdaki kodla normalde ben bu excel sayfası için sub aldırıyordum ancak işlem yaparken excel ismi değişiyor değiştiği için bu kısmın daha efektif olması için ne yapabilirim? Teşekkürler..

Bu kodu görmek için giriş yapmanız gerekmektedir (15 satır). Giriş Yap

 

[AhmetRasim]

Merhabalar Sn. @selis
Dosya ismini değişkene alıp, kod içindeki aşağıdaki satırı

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

bu şekilde değiştiriniz.

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

Excel ismini değişkene alma için açtığınız örnek konuyu kullanabilirsiniz.

https://www.exceldestek.com/konu/excel-ismini-makroyla-degistirme.3916/post-24827

 

[selis]

Hocam aşağıdaki şekilde yazdım, çalışmadı..

Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap

 

[selis]

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

 

[AhmetRasim]

4 numaralı mesajda yazdığınız isim değişkenini, 3 numaralı mesajda paylaştığınız kodda kullanmalısınız.

Bu kodu görmek için giriş yapmanız gerekmektedir (15 satır). Giriş Yap

 

[selis]

Evet hocam öyle yaptım, onu göndermeyi unutmuşum o yüzden sonra attım..

 

[AhmetRasim]

Merhabalar;
5 numaralı mesajda paylaştığım kod isteğinizi karşıladı ise konuyu çözüldü olarak kayıt edelim mi?

 

[selis]

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

Hocam bu şekilde yazdım hata veriyor, bulunamadı şeklinde..

 

[AhmetRasim]

Merhabalar;
Örnek dosyalar ekler misiniz?

 

[selis]

Paylaştım hocam sorun olan kısmı gösterdim, commandbutton 1 de..

 

[AhmetRasim]

Verileri aldığınız MİP TASLAK MAKRO.xlsm isimli dosyanın da örnek halini ekleyebilir misiniz?

Ayrıca, 4 numaralı mesajfa isim = Sheets("MIP").Cells(1, 2).Value değişkenini kullandınız ama Sheets("MIP").Cells(1, 2).Value değeri 1000003348-16 , "'C:\Users\selcanusta\Desktop\[MİP TASLAK MAKRO.xlsm]M-KG'!C1:C2" bu satırda kullanacağınız sayfa isimlerini nereden alacaksınız?

 

[selis]

Hocam burda veri yok o yüzden eklememiştim..

 

[AhmetRasim]

Bu kodu görmek için giriş yapmanız gerekmektedir (2 satır). Giriş Yap

MİP TASLAK MAKRO isimli dosya içinde kodda belirttiğim sayfalar yok, sayfaları bulamadığı için hata verir.

 

[selis]

Hayır hocam bunları ekliyor zaten kodda sonra bu işlemi yapıyor

 

[AhmetRasim]

Çalışma düzenini bilmediğim ve sırası ile anlatmadığınız için İşlemleri parça parça tamamlıyoruz.

CommandButton1_Click kodlarında Workbooks.Open Filename:="C:\Users\" & Environ("UserName") & "\Desktop\" & [B1] & "-" & ".xls" bu satır ile B1 hücresinde de ismi yazılı olan dosyayı açtırıyorsunuz ve sonraki işlemler geliyor.
Bu satırda açıp işlem yaptığınız dosyanın da örneğini alabilir miyim?

 

[selis]

Hocam module 6 da deneme olarak ayrı aldım çalışmayan kodu, ancak şuan efektif olmadı excel ismini B1 den alması gerekiyor..

 

[selis]

Bu kodu görmek için giriş yapmanız gerekmektedir (18 satır). Giriş Yap

Hocam bu şekilde olunca çalışmıyor, yani excel adını değişkene atayınca hata veriyor.. Normal excel adını yazınca çalışıyor..

 

[AhmetRasim]

Bu şekilde hata vermeden çalıştı.

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

 

[selis]

Hocam çok teşekkürler çalıştı bende de..

 

[AhmetRasim]

Rica ederim.
Saygılarımla, iyi çalışmalar.