• DİKKAT

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

Macrolarımı otomatik diğer kitaplara aktarma

a_self_lion' Alıntı:
ttttt.rar daki excel deki kodlarla bir excel kitabı seçiyorum şire koy diye inpup çıkıyor 10 yazıyorum işlem tamam diyor.
Fakat gidip o seçtiğim o dosyaya bakıyorum şifre koymamış.
Genişletmek için tıkla ...

Dosyanda işlem yaptıktan sonra yenibir işlem yapmadan önce mutlaka kapat yeniden aç

farklı bir yaklaşımla ekli dosyanızı kontrol ediniz.
 
Elinize sağlık derdimize derman oldunuz. Sizin yaklaşımınızla daha güzel oldu.
Küçük bir rutuşla işlem tamam
1- ikinci çalıştırılışında hedef klasörde modüle1 vardı modüle11 olmuş aslında iyi olmuş orda sorun yok
2- tanımlar vardı tanımlar2 diye kopyalamış. Üstüne yazsa daha iyi olucak.
3- ozcangecis sayfasını ekletmemiz gerekiyor gizli olarak. Burda sanırım bir sayfanın adını değiştiriyor.
4- İkinci çalıştırılışta hata veriyor klasörde dışarıda kalmış dosyalar var. + hedefteki klasördeki xls lerin hepsin iyapmıyor ve bütün xls ler kapanıyor.
 
Ben şimdi sizin dosyanıza pek vakıf değilim ne işlem yapıdığınıda bilmiyorum.
sadece VBAProjectProperties şifre koyma işini yaptım. 25. mesajımdada belirtiğim gibi kodu çalıştırdıktan sonra dosyayı kaptıp açınız. yoksa işlem hata verecektir.
 
Dosya sizdede var ya sadece bir kerede siz deneyin sizde bu şifre koyma konusuna vakıfsınız o bakımdan sizden rica ediyorum. o setup.xls bana gönderidiğiniz kitabın bulunduğu yere bir klasör yapın hemen içne atıyorum xxx1.xls xxx1.xls diye iki excel dosyası koyun. iki kere çalıştırın kapatıp açmayı ben de yapıyorum. Sizde göreceksiniz ne demek istediğimi.
 
Ben anlatamadım herhalde şifre işi bu dosyada tamam.
diğer taraftan başka netür bir bilgi aktarılıyorsa onu bilmiyorum.
 
Sayın Halit bey sizide çok uğraştırdım kusura bakyın şimdi tam da istediğim gibi olmuş. Ama benden kaynakalanan bir hatadan dolayı size söylemeyi unuttum ondan bide sayfaların kod görüntüle dediğimiz yerdeki kodlar da vardı. Onlarıda hedef kitaptaki sayfalara aktarmamız gerekiyordu. Sayfa adları aynı olmayabilir. Veyahutta Kapak veya Tanımlar sayfasının kod gürüntüle bölümündeki kodlarıda hedefteki excel kitabındaki bütün sayfalara nasıl kopyalarız. Rica etsem bide buna el atsak. Sizin sayenizde yüzdük yüzdük kuyruğuna geldik.
 
Bunları söylemiştim ben dosyana hakim değilim ne gibi işlem yapılıyor bilmiyorum ben şifre için sorununa çözüm aradım.

Hangi sayfadaki kodlar hangi sayfaya gidecek bunlarla ilgili bilgim yok
 
Anladım bu konuda siz haklısınız hani yapıyor ya orada modüldeki kodları kopyalıyor userformları kopyalıyor ya işte Tanımlar sayfasının kod bölümünde ki kodlarıda hedef klasördeki sayfaların kod bölümüne kopyalamak istiyorum. Sizce nasıl olabilir bu.
 
a_self_lion' Alıntı:
Anladım bu konuda siz haklısınız hani yapıyor ya orada modüldeki kodları kopyalıyor userformları kopyalıyor ya işte Tanımlar sayfasının kod bölümünde ki kodlarıda hedef klasördeki sayfaların kod bölümüne kopyalamak istiyorum. Sizce nasıl olabilir bu.
Genişletmek için tıkla ...

Dosyanızı kontrol ediniz.
 
buda tanımlar sayfasındaki kadları diğer dosyaların bütün sayfalarına aktarıyor
 
konu bütünlüğü bozulmaması için mesajları bu dosyaya taşıdım.
 
Halit bey isabet olmuş konuyu taşımanız. Dosyanızı yeni indirip deneme fırsatı bulabildim. Fakat çalıştırınca hedef klasörümün içindeki excel kitaplarıma tanımlar sayfasını ve ozcangecis sayfasını kopyaladı fakat modul form ve tanımlar sayfasındaki kodları kopyalamadı. Sebebi ne olabilir ben baktım fakat işin içinden çıkmadım. Gözümden kaçan bir şey mi var acaba...

Önceki setup dosyamız sorunsuz çalışıyordu. Tek eksiği Tanımlar sayfasındaki kodların hedefteki kitabın her sayfasının kod bölümüne kopyalanması eksikti. Tekrardan elinize sağlık.
 
Son düzenleme:
a_self_lion' Alıntı:
Halit bey isabet olmuş konuyu taşımanız. Dosyanızı yeni indirip deneme fırsatı bulabildim. Fakat çalıştırınca hedef klasörümün içindeki excel kitaplarıma tanımlar sayfasını ve ozcangecis sayfasını kopyaladı fakat modul form ve tanımlar sayfasındaki kodları kopyalamadı. Sebebi ne olabilir ben baktım fakat işin içinden çıkmadım. Gözümden kaçan bir şey mi var acaba...

Önceki setup dosyamız sorunsuz çalışıyordu. Tek eksiği Tanımlar sayfasındaki kodların hedefteki kitabın her sayfasının kod bölümüne kopyalanması eksikti. Tekrardan elinize sağlık.
Genişletmek için tıkla ...

Bu kodlar dosyalara dosya oluşumunda yani ilk aktarıldığı zaman aktarılıyor daha sonraki aktarımlarda bu işi yapmıyor onun için ilk kez şifrelenecek dosyalarda yani OZCANGECIS sayfası oluşturulduğu zaman ve şifre oluştuğu zaman yapıyor bu işlerin yeniden tekrarlanmasına gerek yok

Ayrıca code.frx dosyasını silmiyordu onuda düzettim.
 
birde bunu dene
 

Ekli dosyalar

Sevgili Halit bey size çok teşekkür ederim elinze yüreğinize sağlık. kkkk.xlsx bir de böyle xlsx diye bir dosya koymuştum. Onda da olucak mı diye ama olmadı. xlsx için ayrı kodlar mı gerekiyor.
 
Halit bey elinze kolunuza sağlık güzel oldu.
Ben de olayı tam kavraya bilme adına ve kodları birazda kendime göre düzenleme adına bir kaç sorum olucak.

1- Değikenler tanımlanmamış bunları ne şekilde tanımlamamız gerekiyor. deg1, deg2, Kaynak, Klasör, dosyam, son5, deger1, deger2 i, j, dim yer ve dim Dosya Distemi diye bırakılmış

2- if Instr(1,Kaynak, "{">0 then goto atla denilmiş burada goto atla kismı ok. fakat if Instr(1,Kaynak, "{">0 burada tam olarak ne ifade edilmek istenmiş.

3- dir ifadesinin dir(Dosya) Dosya(dir) bu şekilde kullanılması ne ifade ediyor.

4 - Tanımlar sayfasını ekledikten sonra Setup daki Tanımlar sayfasındaki hücre içeriklerini
Workbooks(dosya_adi).Sheets("TANIMLAR").Cells.Copy
Workbooks(yeni_dosya_adi).Sheets("TANIMLAR").Paste
bu şelkilde kopyalamya çalıştım ama olmadı. Bunu nasıl yapabilirim.
 
Dosyanın userformdaki koduna birşeyler eklerim xlsx dosyalarındada işlem yapacak tabi makrolar aktarıldığı için xlsm uzantısına dönüşecek.

1-sorunla ilgli genel olarak ben değişkenleri tanımlamıyorm niçin derseniz nedenini bilmiyorum. ama doğrusu bütün kodların değişkenini tanımlamak gerek hatta bununla ilgili kodda var (Option Explicit ) bunu kodların en üstüne yazdığımızda değişkenlerin tanımları yapılmadıysa makroyu çalıştırdığınızda değişkenlerin olduğu yerde hata verecektir.

2-sorunla ilgili klasör kantrolu yapılıyor
3- sorunla ilgili dir komutu kalasörün içindeki dasyanın tam adını alıyoruz (dosya(Dir))
yani dosya herhangibir klasörün içinde olduğunu varsayarsak burada dosyanın tam adını alıyoruz.
 

Ekli dosyalar

Halit bey çok çok teşekkür ederim. Elinize yüreğinize sağlık. Sizi de biraz yordum hakkınızı helal edin.
 
excell de makro şifresi çözmem için yardımcı olur musunuz?

merhaba arkadaşlar,

ekteki excell dosyasının makro şifresini çözmem için yardımcı olabilir misiniz?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst