Aynı türdeki çok sayıda dosyaların aynı hücrelerini bir dosyada toplamak

[telematix]

500 tane iş bavuruşu yapmış kişinin excelde dolduğu özgeçmişleri var. 500 ayrı dosya

Tüm dosyaların F7 hücresinde başvuru yapanın mesleği yazıyor.

bu 500 dosyadaki f7 hücresini tek dosyada toplamak istiyorum. Nasıl yapabilirim.

 

[İhsan Tank]

örnek dosya eklermisiniz

 

[telematix]

ekteki 2 dosya gibi 500 adet farklı dosya var

f7 de meslekler var

bu 500 dosyanın f7 hücrelerini başka bir dosyada toplamak istiyorum ama nasıl?

 

[İhsan Tank]

eki inceler misiniz söylediklerinizden bu anlaşılıyor yeni eklediğim aktar sayfasına bakınız

 

[telematix]

Teşekkürler, olmuş. Fakat tüm dosyaları tek tek seçeceğim galiba. Bu da yorucu. Yine de sağolun

 

[İhsan Tank]

isterseniz şu şekilde olabilir bir tanesini seçip aşağıya doğru seçin örnek 2 numaralı dosyanızın f7 hücresini aşağıya doğru çektiniz ve hepsinde ='C:\Documents and Settings\Ax\Desktop\[2.xls]Form'!$F$7 buna benzer şey yazıyor. doğrumu.
şimdi yapmanız gereken yazdığınız hücreyi mouse ile yan satırı seçin ve ctrl+H fonksiyonu ile aranan değere 2.xls yazın yeni değere yeni ekleyeceğiniz dosta adını yazınız örnek olarak 3.xls ve tümünü değiştir deyip bir deneyin daha çabuk işlem yapacaksınız umaraım yardımcı olabilmişimdir.

 

[leumruk]

Merhaba,
Alternatif olarak aşağıdaki kodu kullanabilirsiniz. Eklediğim dosya ile dosyalarınızın aynı klasör içinde olması gerekli. A sütununa dosya adlarını, b sütununa verileri sıralar.

Sub Deneme()
Dim Dosya As String
Dim i As Long
Range("a1:b65536").ClearContents
Dosya = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xls", vbDirectory)
Do While Dosya <> ""
Veri = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & Dosya & "]" & "[COLOR="DarkRed"]Sayfa1[/COLOR]'!R7C6")
Cells(i + 1, 1) = Dosya
Cells(i + 1, 2) = Veri
i = i + 1
Dosya = Dir
Loop
End Sub

Kırmızı ile belirttiğim kısma eğer doayalarınızın sayfa adı farklı ise dosyalarınızın sayfa adını ekleyin.