• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Formülde 6 farklı sayfadan veri alma

  • Konbuyu başlatan Konbuyu başlatan nes432
  • Başlangıç tarihi Başlangıç tarihi
Katılım
10 Aralık 2012
Mesajlar
303
Excel Vers. ve Dili
Ofis 365
her sayfanın şekilsel içeriği aynı 6 farklı sayfam var belli hücre aralığında belli verilerin sayılmasını istiyorum ancak bi türlü çözemedim.
Formülüm;

ÇOKEĞERSAY(Sayfa1:Sayfa6!D6:D10009;"=ADANA";Sayfa1:Sayfa6!U6:U10009;1)

hata nerde? sürekli hata veriyor
 
ÇOKEĞERSAY(Sayfa1:Sayfa6!D6: D10009;"=ADANA";Sayfa1:Sayfa6!U6:U10009;1)
 
6 farklı sayfadaki örneğin D7 hücrelerinin dolu olanlarını ana sayfanızdaki D7 hücresinde mi saymak istiyorsunuz?
 
Altı farklı sayfada d6:d10009 arasında adana verisini içeren u6:u10009 arasında 1 olan verileri yani iki şartı sağlayan bi sayım yaptırmak istiyorum
 
Kod:
ÇOKEĞERSAY(Sayfa1!D6:D10009;"=ADANA";Sayfa1!U6:U10009;1)+ÇOKEĞERSAY(Sayfa2!D6:D10009;"=ADANA";Sayfa2!U6:U10009;1)+ÇOKEĞERSAY(Sayfa3!D6:D10009;"=ADANA";Sayfa3!U6:U10009;1)+ÇOKEĞERSAY(Sayfa4!D6:D10009;"=ADANA";Sayfa4!U6:U10009;1)+ÇOKEĞERSAY(Sayfa5!D6:D10009;"=ADANA";Sayfa5!U6:U10009;1)+ÇOKEĞERSAY(Sayfa6!D6:D10009;"=ADANA";Sayfa6!U6:U10009;1)

Bu şekilde mesela
 
Bir öneri.

Kanaatimce ÇOKEĞERSAY formülü yerine aşağıdaki formül ile sonuç almanız lazım.
Kod:
=TOPLA.ÇARPIM((Sayfa1!D6:D10009="ADANA")*(Sayfa1!U6:U10009=1)+(Sayfa2!D6:D10009="ADANA")*(Sayfa2!U6:U10009=1)+(Sayfa3!D6:D10009="ADANA")*(Sayfa3!U6:U10009=1)+(Sayfa4!D6:D10009="ADANA")*(Sayfa4!U6:U10009=1)+(Sayfa5!D6:D10009="ADANA")*(Sayfa5!U6:U10009=1)+(Sayfa6!D6:D10009="ADANA")*(Sayfa6!U6:U10009=1))

NOT: Sayın acar6783 ve ile aynı şeyi düşünmüşüz, fark ettim silmedim.
 
Merhaba nes432,

Benim tavsiyem DOLAYLI formülü. Forumda arayın, fazlaca örnek ile karşılaşırsınız.

--
 
Merhaba

Bir aralıkta Sayfa1, Sayfa2... Sayfa6 şeklinde sayfa adlarını yazarak bu alanı "sayfalar" şeklinde ad tanımlayın.
Kod:
=TOPLA.ÇARPIM(ÇOKEĞERSAY(DOLAYLI("'"&Sayfalar&"'!D6:D10000");"ADANA";DOLAYLI("'"&Sayfalar&"'!U6:U10000");1))
 
tşk ederim şimdi bakabildim hepsini tek tek deneyeceğim sonuçtan haberdar ederim pazartesi saolun
 
tşk ederim hepsini de denedim öğrenmişte olmak adına hepside çalışıyor ellerinize sağlık
 
Sayımda eksikler cıkıyo hepsini denedim formüllerin hepsindede aynı eksikler var ana sayfayı topluyo diğer sayfalardakileri toplamıyo
 
Sorunu ya ad tanımla ile ya da kod yardımı ile çözeceksiniz. Bence :)
 
ad tanımlayarak yaptım ona rağmen görmüyo ve yaklaşık 3 formül denedim
 
Nasıl yaptınız bilmiyorum ama kod ile çalışan bir örnek gönderebilirim
 
süper olur tşk
TOPLA.ÇARPIM(ÇOKEĞERSAY(DOLAYLI("'"&Sayfalar&"'!$D$6:$D$10000");"ADANA";DOLAYLI("'"&Sayfalar&"'!$P$6:$P$10000");"01";DOLAYLI("'"&Sayfalar&"'!$U$6:$U$10000");7))

formülünü kullandım sayfalar diye ad tanımlaması yaptım tek bi sayfadan veri alıyo her sayfaya bakmıyo sayılar eksik cıkıyor o nedenle
 
Kod:
Sub SAY_ADANA_1()
Application.ScreenUpdating = False
Set S1 =[COLOR="Red"] Sheets("SAYFA1")[/COLOR]
'Altı farklı sayfada d6:d10009 arasında adana verisini içeren u6:u10009 arasında 1 olan verileri yani iki şartı

S1.[A1].ClearContents
For i = 2 To Sheets.Count
Set s2 = Sheets(Sheets(i).Name)

SAY = WorksheetFunction.CountIfs(s2.Range("D6:D1009"), "ADANA", s2.Range("U6:U1009"), "1")
C = C + SAY
S1.[A1] = C

Next

End Sub

Bunu kullanın .
Sayfa1 kendi sayfanıza göre uyarlayın.

2.sayfadan itibaren kaç sayfa varsa hepsinde adana ve 1 aynı anda kullanılan d ve u sütunundaki verileri sayacaktır.
 
tşk ederim .. hemen deniyorum
 
Geri
Üst