Çözüldü Personel Çalışma Kitabı Oluşturma Hatası

[mavisiyah01]

Merhaba. Makroları tüm çalışma kitaplarında çalıştırmak için araştırma yaptım ve personel.xlsb dosyası oluşturursak tüm çalışma kitaplarında kullanılabileceğini öğrendim. Ardından bu işlemi araştırdım ve aşağıdaki linkteki makroyu çalıştırmak istedim ama çalışmadı. Acaba Personel.xlsb dosyasını mı yanlış oluşturuyorum sorusu aklıma takıldı. ben de sıfırdan yaptığım işlemin videosunu çektim. 2 dk da işlemi gösteriyorum ve sonunda gördüğünüz gibi başka bir çalışma kitabında personel.xlsb dosyasına eklediğim aşağıdaki makro çalışmıyor.

Yaptığım işlemin videosu:

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Çalıştırmaya çalıştığım kod:

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[Patron]

Kodlar çalışıyor.
kodları bir module yapıştırın.
ImportSelectedWorkbooks makrosunu çalıştırın.
açılan pencereden dosya/dosyalar seçin.
seçtiğiniz dosyalardaki sayfalar içe aktarılıyor.

 

[mavisiyah01]

Kodlar çalışıyor.
kodları bir module yapıştırın.
ImportSelectedWorkbooks makrosunu çalıştırın.
açılan pencereden dosya/dosyalar seçin.
seçtiğiniz dosyalardaki sayfalar içe aktarılıyor.

hocam kod çalışıyor ama videoda neden çalışmadı? normalde çalışıyor ama personal xlsb dosyasında çalışmadı

 

[Kuşdili]

Kişisel makro kitabına kaydetme olayında küçük bir ayrıntı var. "ThisWorkbook" komutu sebebiyle eklemek istediğiniz kitap "personel.xlsb" dosyanıza eklendi. Orayı bir açıp bakın, silmeniz gerekebilir.
Makronuzdaki "ThisWorkbook" yazan ifadeleri "ActiveWorkbook" olarak değiştirin.
İlave olarak "Set wbSource = Workbooks.Open(fileName)" ifadesinin altına "wbSource.Windows(1).Visible = False" ifadesini eklerseniz olur gibi.

 

[Patron]

Sayın mavisiyah01 ,
videonuzda da görüldüğü üzere;
kodları yeni bir excel sayfası üzerinden personel.xlb üzerindeki kodları çağırıyorsunuz.
veriler personel.xlsb dosyasına gidiyor.
o dosyayı açıp bakın.

 

[mavisiyah01]

Sayın mavisiyah01 ,
videonuzda da görüldüğü üzere;
kodları yeni bir excel sayfası üzerinden personel.xlb üzerindeki kodları çağırıyorsunuz.
veriler personel.xlsb dosyasına gidiyor.
o dosyayı açıp bakın.

bulunduğum kitaba getirebilir miyim sayın hocam?

 

[Patron]

kodları istediğiniz dosyadaki
bir modül içine yapıştırıp xlsm formatında kaydedin

 

[mavisiyah01]

kodları istediğiniz dosyadaki
bir modül içine yapıştırıp xlsm formatında kaydedin

Tamamdır hocam başka çözümü yok sanırım. Yukarıda sayın Kuşdili hocamızın söylediği gibi herhalde kodda sıkıntı var. çünkü personal xlsb dosyasındaki makroların her çalışma kitabında ekleme çıkarma yapmadan çalışması lazım

 

[Kuşdili]

Tamamdır hocam başka çözümü yok sanırım. Yukarıda sayın Kuşdili hocamızın söylediği gibi herhalde kodda sıkıntı var. çünkü personal xlsb dosyasındaki makroların her çalışma kitabında ekleme çıkarma yapmadan çalışması lazım

Yanlış anlaşılmasın. Kodda bir sıkıntı yok. Sadece bir değişiklik, bir de ilave önerdim.
Bilgisayarınız "ThisWorkbook" deyince çalışmak istediğiniz kitabı değil, kişisel makro kitabını anlıyor.
Bunu "ActiveWorkbook" ile düzeltmiş oluyoruz.
Makro ilerledikçe yani kaynak kitabı açtığı zaman "ActiveWorkbook" ifadesi, kaynak kitap oluyor. Bunu düzeltmek için de "Set wbSource = Workbooks.Open(fileName)" ifadesinin altına "wbSource.Windows(1).Visible = False" ifadesini ekliyoruz.

 

[mavisiyah01]

Yanlış anlaşılmasın. Kodda bir sıkıntı yok. Sadece bir değişiklik, bir de ilave önerdim.
Bilgisayarınız "ThisWorkbook" deyince çalışmak istediğiniz kitabı değil, kişisel makro kitabını anlıyor.
Bunu "ActiveWorkbook" ile düzeltmiş oluyoruz.
Makro ilerledikçe yani kaynak kitabı açtığı zaman "ActiveWorkbook" ifadesi, kaynak kitap oluyor. Bunu düzeltmek için de "Set wbSource = Workbooks.Open(fileName)" ifadesinin altına "wbSource.Windows(1).Visible = False" ifadesini ekliyoruz.

HOCAM KODU TAM ALABİLİR MİYİM?

 

[Kuşdili]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mavisiyah01]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Kuşdili]

Resimdeki boyalı yerde hata verdi demek istiyorsunuz galiba.
Mesajını da paylaşsanız iyi olur.
Bu arada bilgisayarınızı kapatıp açmayı deneyin. Düzelme ihtimalini yüksek görüyorum.

 

[mavisiyah01]

Resimdeki boyalı yerde hata verdi demek istiyorsunuz galiba.
Mesajını da paylaşsanız iyi olur.
Bu arada bilgisayarınızı kapatıp açmayı deneyin. Düzelme ihtimalini yüksek görüyorum.

Tam olarak dediğiniz gibi aç kapa yapınca düzeldi hocam. Çok teşekkür ederim.