Modüle Kopyalama

[askm]

Kolay gelsin. Sayfaları farklı kaydediyorum. Yalnız istediğim sayfaları kaydettiğim çalışma kitabında 1 adet modüle (Belirttiğim modüle) olsun. Onun haricinde modüle olmasın.
Bunu modüle kopyalama diye araştırdım. Aşağıdaki kodları buldum ama çalışmıyor.

Sub bbb()
'    Workbooks("Kitap1").Activate
    ActiveWorkbook.VBProject.VBComponents("Acilis").Export (ThisWorkbook.Path & "\mymod.bas")
    Workbooks("Kitap1").Activate
    ActiveWorkbook.VBProject.VBComponents.Import (ThisWorkbook.Path & "\mymod.bas")
     
End Sub

 

[Korhan Ayhan]

Merhaba,

VBA bölümüne müdahale etmeniz için güvenlik ayarını değiştirmeniz gerekiyor. Bundan dolayı kod çalışmamış olabilir.

Geliştirici sekmesinden MAKRO GÜVENLİĞİ seçeneğine tıklayın. Açılan ekranda "VBA projesi nesne modali erişimine güven" seçeneğini aktif hale getirip kodu deneyin.

 

[askm]

Korhan Bey ilginiz için teşekkürler. Aşağıdaki kodlar ile hallettim.

Sub Askm_ModuleKopyalama()
Application.ScreenUpdating = False
Dim BuCalimaKitabi
BuCalimaKitabi = ThisWorkbook.Name
    Workbooks(BuCalimaKitabi).VBProject.VBComponents("Acilis").Export (ThisWorkbook.Path & "\Acilis" & ".bas")
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Kitap1" & ".xlsm"
    Windows("Kitap1.xlsm").Activate
    ActiveWorkbook.VBProject.VBComponents.Import (ThisWorkbook.Path & "\Acilis" & ".bas")
    ActiveWorkbook.Save
    Workbooks("Kitap1.xlsm").Close True
    Application.ScreenUpdating = True

End Sub