byle 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 Set objWorkbook = objExcel. Workbooks. Open 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 birblü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.. :(

https://www.youtube.com/watch?v=989TVZd_zQI next next next install

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 gre kişi başına düşen tuğla ldürüyormuş

='Sheet1'! D2 Yukardaki formüllde Sheet1 yazan yere sayfanın adını yaz, istediğin tabloya yapıştır. yapamazsan pm gnder. Nova Vida!

hocam = yap, aşağıdaki sayfalardan hangisini istiyosan tıkla, hangi hücredeki veriyi çekeceksen seç enter yap maşiyi grüyon mu maşiyi?

burda ben biraz uğraşmıştım formülü değiştirirsen işini grür... http://www.tahribat.com/forum/excel-de-dosyadan-veri-cekiyorum-ama-dosya-ismi-ta-232466

='Sheet1'! D2 Yukardaki formüllde Sheet1 yazan yere sayfanın adını yaz, istediğin tabloya yapıştır. yapamazsan pm gnder. 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 gre kişi başına düşen tuğla ldürüyormuş