• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
mavisiyah01

mavisiyah01

Yeni Üye
Katılım
13 Eki 2024
Mesajlar
157
Çözümler
3
Aldığı beğeni
43
Excel V
Office 365 TR
Konu Sahibi
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.
 
Tarihe göre sırala Oylara göre sırala
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Patron' Alıntı:
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.
Genişletmek için tıkla...
hocam kod çalışıyor ama videoda neden çalışmadı? normalde çalışıyor ama personal xlsb dosyasında çalışmadı
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 1 Negatif oyla
kodları istediğiniz dosyadaki
bir modül içine yapıştırıp xlsm formatında kaydedin
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Patron' Alıntı:
kodları istediğiniz dosyadaki
bir modül içine yapıştırıp xlsm formatında kaydedin
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
mavisiyah01' Alıntı:
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
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Kuşdili' Alıntı:
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.
Genişletmek için tıkla...
HOCAM KODU TAM ALABİLİR MİYİM?
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Kuşdili' Alıntı:
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.
Genişletmek için tıkla...
Tam olarak dediğiniz gibi aç kapa yapınca düzeldi hocam. Çok teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst