• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

modul kopyalama

merakli_72

merakli_72

Katılım
24 Temmuz 2007
Mesajlar
726
Excel Vers. ve Dili
Excel 2010 tr
Mrb;


Aşağıdaki sub ile
Büyük bir excel kitabındaki Hazirlik,Kotalar ve Sonuc sayfalarıı başka bir excel kitabına kopyalayıp bu yeni kitabı mail atıyorum

Fakat ana kitabın ThisWorkbook kısmında makrolar var, ThisWorkbook modulunu yeni oluşan kitaba nasıl kopyalayabilirim. Bu modulu kopyalayamadan attığı mailde makrolar çalışmadığından karşı tarafta pek bir işe yaramıyor.
Teşekkürler

Sub Mail_At()


ActiveWorkbook.Save
Application.ScreenUpdating = False

Sheets("Hazirlik").Visible = False

Mevcut_Kitap = ActiveWindow.Caption
Sheets(Array("Hazirlik", "Kotalar", "Sonuc")).Copy
Yeni_Kitap = ActiveWindow.Caption

Mail_Gonder
ActiveWorkbook.Saved = True
Windows(Yeni_Kitap).Close


Application.ScreenUpdating = True

ActiveWorkbook.Saved = True 'Kaydetmeden çık
Application.Quit


End Sub
 
Merhaba,

Önce tüm çalışma kitabını yeni kitaba kopyalayın, bu işlemden sonra,

"Hazirlik", "Kotalar", "Sonuc"

sayfaları hariç tüm sayfaları silin.

Kodların düzenini bu şekilde yaparsanız istediğiniz olur diye düşünüyorum..

.
 
Karşı tarafa gitmesini istemediğim farklı modüllerde makrolarda var ama
bu şekilde yaparsakta modul kopyalama yerine modul silme yapmam gerekecek :)
 
ekli dosyayı inceleyiniz modullere makro kayıtları yapıyor.
geçmiş zamanda bir üyemize yazmıştık kodları sitedede bir konuda vardı ama hangisinde bilemiyorum.
 

Ekli dosyalar

Sayın Halit Bey öncelikle zaman ve emek ayırıp cevap yazdığınız için teşekkür ederim.
Örnek benim için şu aşamada biraz karışık geldi, sanırım bu örnekte istediğim düzenlemeyi yapabilecek seviyede değilim.

A ve B kitabı ikiside açık
A kitabının ThisWorkBook modülündeki bütün makroları B kitabının ThisWorkBook modülüne nasıl kopyalayabiliriz

zaman ayırıp buna örnek bir kod yazabilirseniz, çok teşekkür ederim.
 
Sayın Halit Bey kusuruma bakmayın lütfen
Textbox içindeki makroyu değilde A kitabının ThisWorkBook modülündeki tüm makroları nasıl alıp B kitabına kopyalayabiliriz
 
bunu denermisiniz.

Private Sub CommandButton1_Click()
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
deg2 = ""
For i = 1 To VBCodeMod.CountOfLines
deg1 = ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.Lines(i, 1)
yaz = yaz & deg1 & Chr(13)
Next
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.InsertLines 1, yaz
ActiveWorkbook.Save
End Sub
Genişletmek için tıkla ...
 
Sayın Halit Bey rüya gibi :) oldu
sadece kaynak kitaptaki Option Explicit satırının alınmaması ve hedef kitapta yine kopyalamaya Option Explicit satırından sonra başlaması için

For i = 2 To ..
ve

...CodeModule.InsertLines 2, yaz

olarak değiştirdim.
Tekrar,tekrar teşekkürler
 
merakli_72' Alıntı:
Sayın Halit Bey rüya gibi :) oldu
sadece kaynak kitaptaki Option Explicit satırının alınmaması ve hedef kitapta yine kopyalamaya Option Explicit satırından sonra başlaması için

For i = 2 To ..
ve

...CodeModule.InsertLines 2, yaz

olarak değiştirdim.
Tekrar,tekrar teşekkürler
Genişletmek için tıkla ...

iyi çalışmalar
 
iyi akşamlar
2 yıl sonra konuyu canlandırmış olucam ama aynı çözüm banada lazım oldu fakat dosyaları denedim kopyalam olmadı.
bir klasör de 401 tane dosya mevcut. sadece 1 tanesinde makro var. diğerlerinde module bile mevcut değil. master dosyayı açıp vba deki modulü diğerlerine nasıl kopyalabilirim?
 
netkit' Alıntı:
iyi akşamlar
2 yıl sonra konuyu canlandırmış olucam ama aynı çözüm banada lazım oldu fakat dosyaları denedim kopyalam olmadı.
bir klasör de 401 tane dosya mevcut. sadece 1 tanesinde makro var. diğerlerinde module bile mevcut değil. master dosyayı açıp vba deki modulü diğerlerine nasıl kopyalabilirim?
Genişletmek için tıkla ...

4 nolu mesajdaki dosya söylediğiniz işlemi yapıyor.
 
Sayın Halit3,
valla sahurda bile denedim ama yok olmuyor bir turlu. ofis 2003 de deniyorum.
dosyaları acıyor fakat modul kopyalaması olmuyor dosyaların değiştirme tarihi değişiyor sadece.
acaba evdeki excel demi sorun var dedim iş yerinde ofis 2003 de deneyim dedim burada ekteki hatayı alıyorum "yaz" satırında kalıyor.
yaptıklarımı anlatayım belkı eksık/fazla bir şey yapıyorumdur.

1-) 4 üncü mesajdaki dosyayı açıyorum.
2-)master dosyayı açıyorum.
3-)masterdaki modülü sizin dosyanın hem modülene kopyalıyorum hem texbox ın içine kopyalıyorum.
4-)dropbox dan modul1 i seçiyorum
5-) Dosyalarının hepsinin modul makrosunu değitistir diyorum klasörü seçiyorum.
dosyalar açılıyor kapanıyor fakat modul kopyalanmıyor.
 

Ekli dosyalar

  • hata.jpg
    hata.jpg
    20.2 KB · Görüntüleme: 7
netkit' Alıntı:
Sayın Halit3,
valla sahurda bile denedim ama yok olmuyor bir turlu. ofis 2003 de deniyorum.
dosyaları acıyor fakat modul kopyalaması olmuyor dosyaların değiştirme tarihi değişiyor sadece.
acaba evdeki excel demi sorun var dedim iş yerinde ofis 2003 de deneyim dedim burada ekteki hatayı alıyorum "yaz" satırında kalıyor.
yaptıklarımı anlatayım belkı eksık/fazla bir şey yapıyorumdur.

1-) 4 üncü mesajdaki dosyayı açıyorum.
2-)master dosyayı açıyorum.
3-)masterdaki modülü sizin dosyanın hem modülene kopyalıyorum hem texbox ın içine kopyalıyorum.
4-)dropbox dan modul1 i seçiyorum
5-) Dosyalarının hepsinin modul makrosunu değitistir diyorum klasörü seçiyorum.
dosyalar açılıyor kapanıyor fakat modul kopyalanmıyor.
Genişletmek için tıkla ...

Örnek dosyaya ilaveler yaptım ekliyorum ayrıca görsel videoyuda ekliyorum.

görsel video


 

Ekli dosyalar

Sayın Halit3;
emekleriniz için çok teşekkür ederim. ama malesef işyerinde denedim gene olmadı.
referanslarda ilk 3 seçiliymiş sonraki 2 taneyide seçiyorum kaydediyorum tekrar açıp makroyu çalıştırıyorum ama gene açıyor işlem tamam diyor eklemiyor.Textbox a kopyalıyorum kodları ama malesef olmadı. akşam evde deneyip
yazacağım ama böyle olunca çok üzülüyorum sizde çalışıyor bende çalışmıyor ve zamanınızı çalıyorum Helal edin.


http://youtu.be/x6XVVflEhbY
 
Sayın Halit3;
yani hem sevinçliylim hem şaşkın. evdeki sistemde kodlar sorunsuz çalıştı.
çalışmalar ve yardımlar için çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst