kapalı dosyandan veri almak sütun olarak.

[talebeyim]

açık olarak formulle etopla yaptıgımız bir çalışma sayfasını kapalı olarak macro ile nasıl yapabiliriz ?

örnek: 5 tane excel sayfası var. 1. aşağıdaki veriler var diğer dört sayfadaki b sütünundaki değerleri karşısında nasıl getirebiliriz ?
a
b
c

Teşekkürler.

 

[Murat OSMA]

Dosyalarınızı göremediğimiz için net bir çözüm sunamıyoruz ama, sanırım ek'teki dosya istediğinizi karşılıyor, ya da kendinize uyarlamanız gerekebilir, inceleyiniz... :dusun:

Kodlar Sn. Erkan AKAYAY'a aittir...

Private Sub CommandButton1_Click()
    Dim Con As Object, Rs As Object, Fso As Object, Klasor As Object, Dosyalar As Object
    Dim Sorgu As String, Yol As String, Dosya As String
    Dim Sutun As Byte
    Set Con = CreateObject("AdoDb.Connection")
    Set Rs = CreateObject("AdoDb.RecordSet")
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Yol = ThisWorkbook.Path
    Set Klasor = Fso.GetFolder(Yol)
    Range("B2:D5").ClearContents
    Sutun = 2
    For Each Dosyalar In Klasor.Files
    If Dosyalar.Name < "ana.xls" Then
    Dosya = Replace(Dosyalar.Name, ".xls", "")
    Con.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & _
    ThisWorkbook.Path & "\" & Dosya & ".xls" & ";Extended Properties=""Excel 8.0;HDR=NO"""
    Sorgu = "Select F4 FROM [Sayfa1$A2:D5]"
    Rs.Open Sorgu, Con, 1, 3
    Cells(2, Sutun).CopyFromRecordset Rs
    Rs.Close
    Con.Close
    Sutun = Sutun + 1
    End If
    Next Dosyalar
    Set Con = Nothing
    Set Rs = Nothing
    Set Fso = Nothing
    Set Klasor = Nothing
    Set Dosyalar = Nothing
    Yol = vbNullString
    Dosya = vbNullString
End Sub

 

[talebeyim]

Haklısınız.

Murat bey cok haklısınız, bu yuzden konuyu tam ve detaylı anlatan bir şablon oluşturdum, Aslında yapmaya calıstıgım sey, komplike birşey ama enazından bir standartları var. Bu yüzden ben yapamıyorum çokta uğraştım ama arkadaşların verdiği çok örneği kendime uyarlamaya çalıştım muhakkak takıldım.

benim yapmak istediğim şey tam olarak ekteki gibi, umarım detaylarına kadar yeterince anlatabilmişimdir.
Teşekkür ederim.

 

[Murat OSMA]

Evet anlatımınız güzel ama ben bu şekilde size yardımcı olamam...

Tüm dosyalarınızı görebilir miyim ?

 

[talebeyim]

neyse canınız sağolsun.

 

[Murat OSMA]

Sizin de.
Umarım sorununuzu çözersiniz...

 

[talebeyim]

murat bey bey sanırım yanlış okumuşum afedersiniz. Siz birde altında tüm dosyalarınızı görebilirmiyim demişsiniz...

Bu raporu ben yapacağım henüz ortada hiçbir verim yok . Yani siz tüm dosyalarınızı görebilirmiyim demişsiniz. Ama daha ortada bir tablo yada veri yok.

 

[talebeyim]

konu günceldir.

 

[talebeyim]

günceldir.