• DİKKAT

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

Eğersay komutu hk.

V

van_65166

Katılım
9 Kasım 2012
Mesajlar
92
Excel Vers. ve Dili
offis 7 türkce
Merhaba saygı değer arkadaşlar bir bilgi almak istiyorum acaba eğersay komutunu tüm çalışma kitabına uygulayabilir miyiz? var mı böyle bir yöntem veya bu konuda ne önerirsiniz.

Şöyle açıklama yapayım günlük çalışan işçilerimiz var her gün ayrı sayfaya yazılıyor ay sonu tek tek günleri topluyoruz bunun yani öyle bir şey istiyorum
"Ahmet VELİ" yazdığım zaman çalışma kitabında kaç tane "Ahmet VELİ" varsa bana yazıp versin


Teşekkür ederim.
 
Sayın van_65166
Örnek Bir dosya ekleyebilirseniz
cevap verecek arkadaşa yardımcı olursunuz.
 
İsimler kaçıncı sutunda ve kaçıncı satırdan başlıyor.
 
Merhaba Van_65166,
Ekli dosya işinizi görmüyor mu?
Kolay gelsin
 

Ekli dosyalar

Çözüldü

Sayın Tevfik_Kursun sorun çözüldü yardımlarınızdan dolayı çok teşekkür ederim.
 
SAYFA ÖRNEĞİN 10 na
=EĞERSAY(sayfa1E12:E34:sayfa2E12:E34:sayfa3E12:E34:sayfa4E12:E34);"A1") B1 hücresine bu formül
=EĞERSAY(sayfa1E12:E34:sayfa2E12:E34:sayfa3E12:E34:sayfa4E12:E34);"A2") B2 hücresine bu formül
...
Şeklinde sayfalardaki E12:E34 aralığındaki A1 A2 A3 hücrelerindeki değerleri eğersay yapabilirmiyiz?
 
Rica ederim, size de kolay gelsin.
İyi çalışmalar
 
5353' Alıntı:
SAYFA ÖRNEĞİN 10 na
=EĞERSAY(sayfa1E12:E34:sayfa2E12:E34:sayfa3E12:E34:sayfa4E12:E34);"A1") B1 hücresine bu formül
=EĞERSAY(sayfa1E12:E34:sayfa2E12:E34:sayfa3E12:E34:sayfa4E12:E34);"A2") B2 hücresine bu formül
...
Şeklinde sayfalardaki E12:E34 aralığındaki A1 A2 A3 hücrelerindeki değerleri eğersay yapabilirmiyiz?
Genişletmek için tıkla ...

A1 için B1 hücresine aşağıdaki formülü yazıp aşağı doğru çekip çoğaltınız.:cool:
Kod: 
=EĞERSAY(Sayfa1!$E$12:$E$34;Sayfa1!$A1)+EĞERSAY(Sayfa2!$E$12:$E34;Sayfa2!$A1)+EĞERSAY(Sayfa3!$E$12:$E$34;Sayfa3!$A1)
 
Sizin formül sayesinde ufak bir düzeltmeyle çözdüm çok teşekkürler.

Kod:
=EĞERSAY('1'!$E$12:$E$34;$A1)+EĞERSAY('2'!$E$12:$E$34;A1)+EĞERSAY('3'!$E$12:$E$34;A1)+EĞERSAY('4'!$E$12:$E$34;A1)+EĞERSAY('5'!$E$12:$E$34;A1)+EĞERSAY('6'!$E$12:$E$34;A1)+EĞERSAY('7'!$E$12:$E$34;A1)
 
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For i = 2 To Sheets.Count
Set s1 = Sheets(Sheets(i).Name)
say = WorksheetFunction.CountIfs(s1.Range("B4:N24"), [A1])
toplam = toplam + say
Next
[B1] = toplam

End Sub

Merhaba Bu kodu sayfanızın kod bölümüne yapıştırın.Arayacağınız veri a1 hücresinde olduğunu düşünerek B1 hücresine sayfa2den itibaren kaç tane varsa sayıp getirecektir.
Sayfaların artması durumunda kod daha iyi olacaktır.
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For i = 1 To Sheets.Count
Set s1 = Sheets(Sheets(i).Name)
say = WorksheetFunction.CountIfs(s1.Range("E12:E34"), [A1])
toplam = toplam + say
Next
[B1] = toplam

End Sub

Benim dosyaya göre bu ilgili sayfanı ALT+F11 yaparak ekledim fakat çalışmadı.. ilginiz için teşekkürler. Bir yerde eksik yapmış olabilirim.
 
İnceleyiniz.

Bu arada ,
Kodu verinin geleceği sayfayı seçip sağ tıklayın kod görüntüleden açılan yere yazabilirsiniz.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst