Dosyalardan veri alma

[yagoba]

Sorum şu. Bir klasör içerisinde 50 şer sayfadan oluşan yaklaşık 200 excel dosyasında veriler bulunmakta. Tüm sayfa ve dosyalar aynı formatta ve aynı hücrelerde veri içeriyor. Bu verileri tek bir dosyada ve her sayfadaki veriyi tek bir satırda toplamak istiyorum. (Her bir sayfada veri içeren hücre sayısı 175.) Bunu yapmak için kolay bir yol varmı?

 

[Orion1]

Örnek 2-3 dosya ekleyiniz.
Veriler nerden alınacak görelim.Afaki bir şey söyelemek zor.Yoksa neden olamsın.Ama önce bir görmek lazım.Ne yapıacağınıda ören ana dosyayada yazın iyice açıklam yapın.

 

[Hakantasal]

Sanırım sorunumuz aynı arkadaş ile ben örnek dosyada ne yapma istediğimi özetledim yardımcı olurdsanız sevinirim


DOSYAYI SİTEYE YÜKLEYEMEDİM LİNK AŞAĞIDA



http://www.upload.gen.tr/d.php/s4/fphjb0rr/__RNEK.xlsx.html

 

[Orion1]

Sanırım sorunumuz aynı arkadaş ile ben örnek dosyada ne yapma istediğimi özetledim yardımcı olurdsanız sevinirim


DOSYAYI SİTEYE YÜKLEYEMEDİM LİNK AŞAĞIDA



http://www.upload.gen.tr/d.php/s4/fphjb0rr/__RNEK.xlsx.html

Dosyanızı excel 2003 formatında yüklerseniz daha iyi olur.Mesela bende 2007 yok.

 

[Hakantasal]

Dosyanızı excel 2003 formatında yüklerseniz daha iyi olur.Mesela bende 2007 yok.

bendede 2003 yok

 

[Orion1]

bendede 2003 yok

Farklı kaydetten 2003 seçip 2003 formatında kaydedebilirsiniz.

 

[Hakantasal]

Farklı kaydetten 2003 seçip 2003 formatında kaydedebilirsiniz.

ben unutmuştum tamamen özür

 

[Orion1]

Acaba böyle bir şeymi istediniz.
Dosyanız ektedir.

Sub kirmizi_sayfalardan_verileri_al()
Dim sat As Long, sh As Worksheet, tpl As Double, s As Worksheet, var As Boolean
Sheets("BURAYA").Select
Application.ScreenUpdating = False
Range("E2:E65536").ClearContents
sat = 2
For Each s In Worksheets
    For Each sh In Worksheets
        If sh.Tab.ColorIndex = 3 And IsNumeric(sh.Cells(sat, "E").Value) _
        And sh.Cells(sat, "E").Value <> "" Then
            tpl = tpl + sh.Cells(sat, "E").Value
            var = True
        End If
    Next
    If var = True Then
        Cells(sat, "E").Value = tpl
        tpl = 0
        sat = sat + 1
        var = False
    End If
Next
Application.ScreenUpdating = True
MsgBox "Kırmızı sekmeli sayfalardan veriler Toplandı.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Hakantasal]

ustadım emegine çok teşekkür ederim ama makro atamadan bu işi yapamazmıyız mesela ben ='K1'!E2+'K3'!E2+'K5'!E2+'K7'!E2 ile sayfaları tek tek gezmek istemiyorum

 

[Orion1]

ustadım emegine çok teşekkür ederim ama makro atamadan bu işi yapamazmıyız mesela ben ='K1'!E2+'K3'!E2+'K5'!E2+'K7'!E2 ile sayfaları tek tek gezmek istemiyorum

O zaman Yukarıda yazdığınız formülü kullanın.

 

[yagoba]

Ulaşım sorunu vardı düzelttim.

Örnek dosyaya ulaşabilirsiniz.
http://www.upload.gen.tr/d.php/s7/u5q4u8e7/Deneme1.xls.html[/URL]

http://www.upload.gen.tr/d.php/s7/u5q4u8e7/Deneme1.xls.html

 

[rose_leafs]

Merhabalar,
Benim de benzer ama biraz daha karmaşık bir sorunum var. Bir müşteriye ait değişik siparişlerle ilgili üretim verilerini tek tek excel sayfalarına işliyoruz. Ama istenen o müşteriye ait kar oranlarını dönemsel olarak görebilmek. Yadığınız kodlar benim için çok yabancı; ben sadece basit fonksiyon formüllerini yazabiliyorum. sizin yaptığınıza benzer kodları yazmayı en hızlı nasıl öğrenebilirim ? Projenin başlamasına yalnızca bir kaç gün kaldı ..
Yardımlarınız için çok teşekkür ederim.