Kapalı dosyadan veri alıp kapalı dosyaya veri kaydetmek

[doukan84]

Evet arkadaşlar burdaki bilgilerden yararlanara ve çok yardımsever arkdaşlarım sayesinde istediğim çalışma sayfam için örnek bir başlangıç yaptım..

Veritabanı isimli bir dosyadan veri alıp bunu çalışma kitabımdaki sayfa1'in A1 hücresinde listeleyip sayfa3 deki b1 hücresinde gösterebiliyorum..

Benim sizden ricam Bu A1 de listelediğim verileri diğer hücreler içinde listeleyip farklı hücrelere kaydetmek istiyorum.. Yani sayfa1 B2 hücresinde listeleyecem ve sayfa 3 D3 hücresinde göstereceğim.. Aslında bunları aynı çalışma kitabı içinde düşeyara formulü ilede yapabilirim ama tek çalışma sayfası olmuş oluyor... Birde benim istediği bunu çalışma sayfasında görüntüleyip verileri farklı bir kapalı dosyada göstermesini istiyorum.. Yani bir kapalı çalışma sayfam listelerin olduğu diğer kapalı çalışma sayfası veritabanı 3ncü kapalı çalışma sayfasıda bilgilerin olduğu.. sizce mümkünmüdür yada hangi yolu izlemem gerek... örnek çalışma dosyam ektedir incelerseniz anlarsınız arkadaşlar

 

[Orion1]

Sayfa3 teki d1 hücresini yaptım anladığım doğru ise.
Diğer konuları anlayamadım.
dosyanız ektedir.

 

[doukan84]

Sayfa3 teki d1 hücresini yaptım anladığım doğru ise.
Diğer konuları anlayamadım.
dosyanız ektedir.

Sanırım anlatamadım ustadım.. safya1 deki A1 hücresindeki listeden seçince sayfa3 deki B2 hücresinde çıkıyor ya ben istiyorum ki Sonuç diye bir dosya olacak ondaki sayfa1 deki A1 hücresinde çıksın yani kapalı bir dosyada.. Birincisi bu..

Birde bunu diğer hücreler içinde istiyorum örnek A2 hücresinden seçincede sonuç dosyasındaki A2 hücresinde çıksın yada bir butona tıklayınca aktarsın... Bu işte A3 diğer A3 e gibi kendimde çoğaltabilmeyliyim...

 

[Orion1]

Sayfa1 de a1 hücresinden seçince sayfa3 B2 hücresinde bir şey çıkmıyor.

 

[doukan84]

Sayfa1 de a1 hücresinden seçince sayfa3 B2 hücresinde bir şey çıkmıyor.

Pardon üstadım B1 hücresinde çıkıyor... yanlış yazmışım..

 

[Orion1]

1nci isteğin açmadan olmaz.

 

[doukan84]

1nci isteğin açmadan olmaz.

Açmadan kastınız ne ? Bir buton atayıp aktar desek..

Peki birde Bunu aynı dosya üzerinde değerlendirsek.. Yani safya1 A1 de seçtiğim Sayfa3 B1 de gözüküyor ya.. Sayfa1 A2 dede seçenek olsa bunuda Safya 3 B2 de göstersek yani çoğaltsak nasıl yaparız...

 

[Orion1]

Açmadan kastınız ne ? Bir buton atayıp aktar desek..

Peki birde Bunu aynı dosya üzerinde değerlendirsek.. Yani safya1 A1 de seçtiğim Sayfa3 B1 de gözüküyor ya.. Sayfa1 A2 dede seçenek olsa bunuda Safya 3 B2 de göstersek yani çoğaltsak nasıl yaparız...

1nci isteğiniz için öylede olsa yinede kod ile açılıp kapanacak.Kabulmu?
2nci isteğiniz ekli dosyada.
Veri doğrulama ve ado birlikte kullanıldı.
Siz kendiniz yapmak isterseniz,ado ve veri doğrulama kodlarına çalışmanız lazım.

Dosyanız ektedir.

 

[doukan84]

1nci isteğiniz için öylede olsa yinede kod ile açılıp
kapanacak.Kabulmu?
2nci isteğiniz ekli dosyada.
Veri doğrulama ve ado birlikte kullanıldı.
Siz kendiniz yapmak isterseniz,ado ve veri doğrulama kodlarına çalışmanız lazım.

Dosyanız ektedir.

Kabul ediyorum :yardim:

 

[Orion1]

Bir sonuç.xlsm adlı dosya ekledim.
Bu dosya aktif olduğunda Çalışmam dosyasın sayfa1 i a1 ve sayfa3 B1 hücresinden veriyi alıyor,kendi sayfasının a1 ve B1 hüctresine yazıyor.
Dosyalar ektedir.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
ThisWorkbook.Sheets("Sayfa1").Range("A1").Value = Application.ExecuteExcel4Macro("'" & _
    ThisWorkbook.Path & "\[Çalışma sayfam.xlsm]Sayfa1'!R1C1")
ThisWorkbook.Sheets("Sayfa1").Range("B1").Value = Application.ExecuteExcel4Macro("'" & _
    ThisWorkbook.Path & "\[Çalışma sayfam.xlsm]Sayfa3'!R1C2")
End Sub

 

[doukan84]

Bir sonuç.xlsm adlı dosya ekledim.
Bu dosya aktif olduğunda Çalışmam dosyasın sayfa1 i a1 hücresinden veriyi alıyor,kendi sayfasının a1 hüctresine yazıyor.
Dosyalar ektedir.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Sheets("Sayfa1").Range("A1").Value = Application.ExecuteExcel4Macro("'" & _
    ThisWorkbook.Path & "\[Çalışma sayfam.xlsm]Sayfa1'!R1C1")
End Sub

Elinize sağlık hocam.. Ama A1 deki konu başlıklarını alıyor ama bu A1 i seçtiğimiz zaman çıkacak olan Biz A1 den ÖRNEK MATE-1 seçince Çarpım tablosu havuz problemi vs vs çıkıyor ya o kapalı dosyadada onun çıkması lazımdı ama Sadece MATE-1 yazıyor ustam

 

[Orion1]

Elinize sağlık hocam.. Ama A1 deki konu başlıklarını alıyor ama bu A1 i seçtiğimiz zaman çıkacak olan Biz A1 den ÖRNEK MATE-1 seçince Çarpım tablosu havuz problemi vs vs çıkıyor ya o kapalı dosyadada onun çıkması lazımdı ama Sadece MATE-1 yazıyor ustam

10 numaralı mesajda dosyayı güncelledim.
Oradan bakınız.