Excel Farklı Sayfalardan Veri

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    seadog
    seadog's avatar
    Kayıt Tarihi: 23/Mart/2008
    Erkek

    Arkadaşlar çalıştığım excel dosyamda onlarca sayfa var.  Tüm sayfalarda ki D2 hücresinde bulunan veriyi en başa ekleyeceğim sayfaya çekmek istiyorum. Bunun nasıl yapabilirim. 

     

    Saygılar

    Mürit

    seadog


    devlet istatistik ensititüsüne göre kişi başına düşen tuğla öldürüyormuş
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    serhat8102
    serhat8102's avatar
    Kayıt Tarihi: 11/Nisan/2010
    Erkek

    burda ben biraz uğraşmıştım formülü değiştirirsen işini görür...

    http://www.tahribat.com/forum/excel-de-dosyadan-veri-cekiyorum-ama-dosya-ismi-ta-232466

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    tereke34
    tereke34's avatar
    Kayıt Tarihi: 08/Şubat/2014
    Erkek

    ='Sheet1'!D2

    Yukardaki formüllde Sheet1 yazan yere sayfanın adını yaz, istediğin tabloya yapıştır. yapamazsan pm gönder.


    Nova Vida !
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    seadog
    seadog's avatar
    Kayıt Tarihi: 23/Mart/2008
    Erkek
    tereke34 bunu yazdı

    ='Sheet1'!D2

    Yukardaki formüllde Sheet1 yazan yere sayfanın adını yaz, istediğin tabloya yapıştır. yapamazsan pm gönder.

    Hocam o formülü biliyorum. Benim sayfa sayım çok fazla ve sayfa isimleri karşık, tek tek yazmak çok uğraştırıcı olacak. Daha kısa birşey var mı ?


    devlet istatistik ensititüsüne göre kişi başına düşen tuğla öldürüyormuş
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    expert
    expert's avatar
    Kayıt Tarihi: 29/Ekim/2002
    Erkek

    böyle bi script ile bişeyler çıkartırsın belki.. sheet sayısı önemli değil hepsinin d2 sini toplar, sonra nasıl kullanırsan :) 

     

    kolay gele :)

     

    Set objExcel = CreateObject("Excel.Application")

    Set objWorkbook = objExcel.Workbooks.Open(Path)

    Dim  Total : Total = 0

    For Each sheet in objWorkbook.Sheets

          sheet.Activate()

          Dim dTwo : dTwo =  sheet.cell(2,4).Value 

          Total = Total + dTwo

    Next

     

    objWorkbook.Close()

    objExcel.Quit()

     

    edit : bir ara bi proje içinexcellerdeki belirli hücrelere ulaşmak için kullandığım vbs nin birbölümüdür.

     

     

    expert tarafından 08/Oca/18 21:59 tarihinde düzenlenmiştir

    la bi git xD çoğu konuyu okurum. çok azına post atarım :D çok önemliyse pm at.. kaanabak kardeşimm, seni unutmayacağım.. :(
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kartalkethuda
    kartalkethuda's avatar
    Kayıt Tarihi: 28/Mayıs/2007
    Erkek

    hocam = yap, aşağıdaki sayfalardan hangisini istiyosan tıkla, hangi hücredeki veriyi çekeceksen seç enter yap


    maşiyi görüyon mu maşiyi?
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    2021 Talihlisi
    dcpromo
    dcpromo's avatar
    Kayıt Tarihi: 05/Nisan/2017
    Erkek
Toplam Hit: 1543 Toplam Mesaj: 7
excel veri