Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 18-10-2017, 17:08   #1
Mebugasan
Altın Üye
 
Giriş: 18/10/2017
Şehir: SAMSUN
Mesaj: 5
Excel Vers. ve Dili:
EXCEL 2013 TÜRKÇE
Question Birden çok sayfadan verileri tek sayfada toplama

Üstatlar size benim için ciddi önem taşıyan bir soru soracağım çözümü varsa ne mutlu bana.

Şimdi benim elimde bir vardiya exceli var kendi hazırladığım. Bu vardiya excelinde vardiya içinde oluşan giderler ve gün içinde verilen veresiye yakıtlar var. Hergün farklı bir excel sayfası olduğu için bu gider ve cari verilerini tek sayfada nasıl toplayacağımı bulamadım. Sizin için bir örnek dosya oluşturdum. Oradan bakıp bana yardımcı olabilirseniz mükemmel sevinirim.
Eklenmiş Dosyalar
Dosya Türü: xlsx ÖRNEK VARDİYA.xlsx (27.2 KB, 14 Görüntülenme)
Dosya Türü: xls ÖRNEK VARDİYA1.xls (59.0 KB, 3 Görüntülenme)

Bu mesaj en son " 18-10-2017 " tarihinde saat 17:26 itibariyle Mebugasan tarafından düzenlenmiştir....
Mebugasan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 17:18   #2
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 219
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

merhaba ,

ben dosyanızı goremiyorum ama yazdiginizdan anladigim kadari ile asagida linkini paylastigim eklenti isinizi gorecektir diye dusunuyorum.

eklenti olarak kurun veri sekmesinin altinda ust menuye gelecek .


https://www.rondebruin.nl/win/addins/rdbmerge.htm

iyi calismalar.
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 17:24   #3
Mebugasan
Altın Üye
 
Giriş: 18/10/2017
Şehir: SAMSUN
Mesaj: 5
Excel Vers. ve Dili:
EXCEL 2013 TÜRKÇE
Varsayılan

Alıntı:
hoguz2 tarafından gönderildi Mesajı Görüntüle
merhaba ,

ben dosyanızı goremiyorum ama yazdiginizdan anladigim kadari ile asagida linkini paylastigim eklenti isinizi gorecektir diye dusunuyorum.

eklenti olarak kurun veri sekmesinin altinda ust menuye gelecek .


https://www.rondebruin.nl/win/addins/rdbmerge.htm

iyi calismalar.
Dosyayı neden göremiyorsunuz? Formatından dolayı ise düzeltebilirim. Söylediğiniz eklentiyi kurdum lakin pek bir şey anlamadım.
Mebugasan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 19:03   #4
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
Dosyayı neden göremiyorsunuz? Formatından dolayı ise düzeltebilirim. Söylediğiniz eklentiyi kurdum lakin pek bir şey anlamadım.
Merhaba,
Altın Üyeliği bulunmayanlar Forum Sayfasına yüklenen dosyaları indiremezler.
Dosyanızdan anladığım kadarıyla; 1, 2, 3 gibi sayılar ayın günlerini yansıtıyor ayın son gününe kadar devam ediyor, bunlardaki giderler ve carilerin toplamlarını giderler ve cariler sayfasına taşımak istiyorsunuz. Doğru mu?
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.

Bu mesaj en son " 18-10-2017 " tarihinde saat 19:11 itibariyle antonio tarafından düzenlenmiştir....
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 20:39   #5
Mebugasan
Altın Üye
 
Giriş: 18/10/2017
Şehir: SAMSUN
Mesaj: 5
Excel Vers. ve Dili:
EXCEL 2013 TÜRKÇE
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Merhaba,
Altın Üyeliği bulunmayanlar Forum Sayfasına yüklenen dosyaları indiremezler.
Dosyanızdan anladığım kadarıyla; 1, 2, 3 gibi sayılar ayın günlerini yansıtıyor ayın son gününe kadar devam ediyor, bunlardaki giderler ve carilerin toplamlarını giderler ve cariler sayfasına taşımak istiyorsunuz. Doğru mu?
Evet kısmen doğru. Lakin toplam olarak değilde liste şeklinde tek bir sayfada olmasını istiyorum hepsinin. Ay sonunda rapor çıkartırken sayfalardan tek tek kopyala yapıştır yapmakla uğraşmamış olurum.
Mebugasan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 22:04   #6
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Giderler Sayfasına bir buton ekleyerek, aşağıdaki kodları ekleyiniz:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub giderleri_guncelle()
Dim sh As Worksheet, ss As Long, alan As Range, syf As Worksheet, ilk As Range, son As Range
Set sh = Sheets("GİDERLER")
sat1 = 4
sh.Range("B4:D" & Rows.Count).ClearContents

For Each syf In ThisWorkbook.Sheets
On Error Resume Next

    If IsNumeric(syf.Name) Then
        Set ilk = syf.Range("K26")
        Set son = syf.Range("M45").End(3)
        If son.Row < ilk.Row Then GoTo devam
        Set alan = syf.Range(ilk, son)
        sat2 = sat1 + alan.Rows.Count - 1
        sh.Range("B" & sat1 & ":D" & sat2).Value = alan.Value
        sat1 = sat2 + 1
    End If
devam:
Next syf
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub
Cariler Sayfasına atayacağınız kodlarınızda aşağıdadır:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub carileri_guncelle()
Dim sh As Worksheet, ss As Long, alan As Range, syf As Worksheet, ilk As Range, son As Range

Set sh = Sheets("CARİLER")
sat1 = 3
sh.Range("C3:E" & Rows.Count).ClearContents

For Each syf In ThisWorkbook.Sheets
On Error Resume Next

    If IsNumeric(syf.Name) Then
        Set ilk = syf.Range("K9")
        Set son = syf.Range("M22").End(3)
        If son.Row < ilk.Row Then GoTo devam
        Set alan = syf.Range(ilk, son)
        sat2 = sat1 + alan.Rows.Count - 1
        sh.Range("C" & sat1 & ":E" & sat2).Value = alan.Value
        sat1 = sat2 + 1
    End If
devam:
Next syf
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub
NOT. Kodlar, örnek dosyanıza göre düzenlenmiştir.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 22:15   #7
Mebugasan
Altın Üye
 
Giriş: 18/10/2017
Şehir: SAMSUN
Mesaj: 5
Excel Vers. ve Dili:
EXCEL 2013 TÜRKÇE
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Giderler Sayfasına bir buton ekleyerek, aşağıdaki kodları ekleyiniz:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub giderleri_guncelle()
Dim sh As Worksheet, ss As Long, alan As Range, syf As Worksheet, ilk As Range, son As Range
Set sh = Sheets("GİDERLER")
sat1 = 4
sh.Range("B4:D" & Rows.Count).ClearContents

For Each syf In ThisWorkbook.Sheets
On Error Resume Next

    If IsNumeric(syf.Name) Then
        Set ilk = syf.Range("K26")
        Set son = syf.Range("M45").End(3)
        If son.Row < ilk.Row Then GoTo devam
        Set alan = syf.Range(ilk, son)
        sat2 = sat1 + alan.Rows.Count - 1
        sh.Range("B" & sat1 & ":D" & sat2).Value = alan.Value
        sat1 = sat2 + 1
    End If
devam:
Next syf
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub
Cariler Sayfasına atayacağınız kodlarınızda aşağıdadır:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub carileri_guncelle()
Dim sh As Worksheet, ss As Long, alan As Range, syf As Worksheet, ilk As Range, son As Range

Set sh = Sheets("CARİLER")
sat1 = 3
sh.Range("C3:E" & Rows.Count).ClearContents

For Each syf In ThisWorkbook.Sheets
On Error Resume Next

    If IsNumeric(syf.Name) Then
        Set ilk = syf.Range("K9")
        Set son = syf.Range("M22").End(3)
        If son.Row < ilk.Row Then GoTo devam
        Set alan = syf.Range(ilk, son)
        sat2 = sat1 + alan.Rows.Count - 1
        sh.Range("C" & sat1 & ":E" & sat2).Value = alan.Value
        sat1 = sat2 + 1
    End If
devam:
Next syf
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub
NOT. Kodlar, örnek dosyanıza göre düzenlenmiştir.
Üstat kod olarak değilde formül olarak verebilir misin bunu. macro bilgim pek yok.
Mebugasan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-10-2017, 22:59   #8
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
Üstat kod olarak değilde formül olarak verebilir misin bunu. macro bilgim pek yok.
Sadece iki sayfa arasında veri sorgulama olsaydı, sorunsuz olarak formül de kullanılabilirdi.
Ancak ayın gün sayısı kadar sayfadan teker teker veri sorgulama yapmak durumundasınız, sayısal olmayan sayfa isimlerini pas geçeceksiniz, her seferinde sayfada kaç satır veri olduğunu hesaplayacaksınız, bunları alt alta sıralayacaksınız. Bunlar formül ile mümkün değildir.
Kod bilginiz yoksa size örnek dosyanızı gönderiyorum. Asıl dosyanızın formatı aynı ise sorunsuz olarak kullanabilirsiniz. Gün sayısı kadar yeni sayfa açıp bilgileri yazabilir, istediğiniz zaman sorgulama yapabilirsiniz. Tek dikkat etmeniz gereken; günleri gösteren sayfa isimlerinin sayısal olmasıdır.
Dosyanız ektedir.
Eklenmiş Dosyalar
Dosya Türü: rar giderler ve cariler mebugasan-diger.rar (36.9 KB, 16 Görüntülenme)
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.

Bu mesaj en son " 18-10-2017 " tarihinde saat 23:07 itibariyle antonio tarafından düzenlenmiştir....
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-10-2017, 00:12   #9
Usyk
 
Giriş: 20/07/2006
Şehir: Ankara
Mesaj: 93
Varsayılan

Benim çalışmama bir bak istersen. Belki aynı şeyi soruyor olabilirsiniz.

http://www.excel.web.tr/f50/ko-ullu-indis-t167498.html
__________________
Excell 2010 Tr
Usyk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-10-2017, 20:01   #10
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
Usyk tarafından gönderildi Mesajı Görüntüle
Benim çalışmama bir bak istersen. Belki aynı şeyi soruyor olabilirsiniz.

http://www.excel.web.tr/f50/ko-ullu-indis-t167498.html
Merhaba,
Dosyanızı inceledim.
Sıralama yapamazsınız, çünkü verileri formülle alıyorsunuz. Formülle verileri aldığnız yere de yine formülle başka yerden aktarılıyor.
Birden fazla varsa konusunda, mevcut formülün başına, "=EĞER(EĞERSAY(aralık;ölçüt)>=1;"";<MEVCUT FORMÜLÜNÜZ>" şeklinde bir kontrol deneyebilirsiniz. Ancak çok fazla iç içe Eğer oluşabilir. Sınama ile fikir oluşur.
Ayrıca aşırı derecede formül içeren sayfalar belli bir satır uzunluğundan sonra yavaş çalışır, bu yüzden daha sade ve makrolarla çalışan dosyalara yönelmenizi öneririm.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:47


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden