Birbirine bağlı çalışma kitaplarında araya satır ekleme

[POLARIS]

Sayın levent Menteşoğlu iyi akşamlar,

Konuyu forumda araştırdım.Bir tane var .2005 te Dorpenas yazmış.Siz dosya istemişsiniz sonuçlanmamış orada kalmış.
Bir excel kitabım var. Bir başka excel çalışma kitabıyla bunun arasında bağ oluşturdum. Master çalışma kitabındaki bilgiler diğer çalışma kitaplarına kaynak oluyor. Ancak ilkinde aralardaki bir satıra ürün ismi girmek için "satır ekle" dediğimde diğer çalışma kitabında bu satıra karşılık gelen satırı açamıyorum. İkinci,üçüncü..kitaplara otomatik satır eklemeyi nasıl yapabilirim.Oraya da bilgiyi çağıran fomül otomatik gelebilirmi? buna bi çözüm bulabilir miyiz?
İlgilerinize teşekkürler.

 

[Levent Menteşoğlu]

Eğer master çalışma kitabındaki bilgilerle diğer kitaplardaki bilgiler birebir aynı ise veriler diğer kitaplarda dış veri al özelliği yada makro ile aynı veriler çekilebilir. Yani tüm kitaplara eklenecek bir güncelle butonuyla master kitabındaki bilgiler kolaylıkla çekilebilir. Böyle bir çözüm işinizi görürmü?

 

[POLARIS]

Sayın levent Menteşoğlu,
evet görür sanırım.
Teşekkür ederim.

 

[POLARIS]

Sayın Levent Menteşoğlu,
Görür dedim ancak ilk dört sütun aynı diğerleri farklı veriler içeriyor.
Şirket adı,ünvanı,müşteri no ve kodu gibi.Bu sütunlar sabit.

 

[Levent Menteşoğlu]

Bu durumda pratik bir çözüm bulmak pek mümkün değil.

 

[POLARIS]

Sayın Levent Menteşoğlu,
Bahsettiğiniz dış veri al'ı denedim fakat olmadı.Masterde sayfa eklediğim için diğer kitapta veriler kaydı.

 

[POLARIS]

Sayın Levent Menteşoğlu,
Siz daha iyi bilirsiniz.Acaba tetikleyici bir makro olabilirmi?

 

[uzmanamele]

merhaba
master dosyadaki makro adı "SEK_m" olsun
diğer dosya adı "1.SEÇ.xls" ve makro adıda "SEK_a"

kodları aşağıdaki şekilde denermisiniz

Sub SEK_m()
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Sheets("Sayfa2").Select
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Sheets("Sayfa3").Select
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Sheets("Sayfa1").Select
Range("A1").Select

Windows("1.SEÇ.xls").Activate
Application.Run "'1.SEÇ.xls'!SEK_a"
Windows("MASTER.xls").Activate
Range("A1").Select
End Sub

 

[POLARIS]

Sayın uzmanamele günaydın,
Çok teşekkür ederim.Biraz bekledim ama doğrusu değdi.Tam istediğim gibi olmuş.Emeklerinize sağlık.Tekrar teşekkür ederim.
Satır ekle ve sil butonlarına kaçıncı satır diye bir sorgu ekleyebilirmiyiz?

 

[POLARIS]

Sayın uzman amele,
İyi çalışmalar.
Gerçekten öğrenmenin yaşı yoktur.Hele bir de sizler olduktan sonra....
"1.SEÇ.xls" den sonra başka kitaplarada uygulamak istersek kod'u nasıl ilave edeceğiz?Bilgi verebilirmisiniz?
İlgilerinize teşekkürler...

 

[uzmanamele]

merhaba
ek dosyalar işinizi görür mü.
sadece master dosyadaki makroyu çalıştırmanız yeterli

 

[POLARIS]

Sayın uzmanamele,
Çok teşekkür ederim.Siz bir harikasınız.
Bana bir deşu konu hakkında yardımcı olabilirmisiniz.
"1.SEÇ.xls" den sonra başka kitaplarada uygulamak istersek kod'u nasıl ilave edeceğiz?Bilgi verebilirmisiniz?
İlgilerinize teşekkürler...

 

[uzmanamele]

merhaba
sanırım 1-2-3 diye giden dosyalardada benzer işlemi yapmak istiyorsunuz, aşağıdaki gibi deneyin.

Sub makro()
..
..

Windows("1.SEÇ.xls").Activate
Application.Run "'1.SEÇ.xls'!SEK_a"
Windows("MASTER.xls").Activate
Range("A1").Select

Windows("2.SEÇ.xls").Activate
Application.Run "'2.SEÇ.xls'!SEK_b"
Windows("MASTER.xls").Activate
Range("A1").Select

End Sub

 

[POLARIS]

Sayın uzmanamele,
Aynen öyle olacakta ben nedense beceremedim.Bir hata yapıyorum ama çözemedim.
Teşekkürler.

 

[POLARIS]

Sayın uzmanamele,

Aynen sizin dediğiniz gibi yaptım.Kitaplar şu an tam istediğim gibi sorunsuz çalışıyor.
Gösterdiğiniz ilgi ve alakaya çok teşekkür ediyorum.
İyi çalışmalar dilerim.

 

[POLARIS]

Arkadaşlar merhaba,
Sayın Uzmanamele sayesinde çalışma bitirildi.
Sayın Levent Menteşoğluna da ayrıca teşekkürler.
Yararlanmak isteyenler için ektedir.
Hepinize iyi çalışmalar dilerim.

 

[uzmanamele]

merhaba
syn polaris,
güle güle kullanın.
bende arşivime attım, belki lazım olur

 

[POLARIS]

Sayın Uzmanamele,İyi akşamlar
Hocam hatırlamanız için up'ladım.
İyi çalışmalar dilerim.

 

[POLARIS]

Sayın Uzmanamele,Günaydın,
Hocam hatırlamanız için up'ladım.
İyi çalışmalar dilerim.

 

[uzmanamele]

merhaba
syn POLARIS,
ben veya başka bir arkadaşımıza kişiye özel soru sormayınız.
bu sitede herkes elinden geldiğince yardımcı olmaya çalışıyor. herhangi bir arkadaşımıza soru yönlendirirseniz diğer arkadaşlarımız soruyla ilgilenmeyebilirler.
soru yönlendirdiğiniz kişinin belki vakti yoktur, belki konu hakkında fazla bilgiye sahip değildir, belki başka bir mazereti olabilir.
cevap alamadığınız sorunuzu gündemde tutun. belki sorunuz sizin istediğiniz gibi yapılamıyordur, farklı çözüm yolları deneyin. konu ile ilgilecenek arkadaşlara alternatif çözümler için yönlendirme yapın.
ben bu hafta çok yoğunum, diğer arkadaş konu ile ilgileneceklerdir.