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 12-10-2017, 15:04   #1
serkan.sevinc
Altın Üye
 
Giriş: 12/02/2014
Şehir: bursa
Mesaj: 62
Excel Vers. ve Dili:
office2013
Varsayılan Belge Sayma

Merhaba,
Özet sayfasında personel ismine göre belge adedi saydırabiliyorum. Fakat şunu yapmak istiyorum, detay sayfasındaki belge toplamı (aynı tarihte, aynı belge nosu) 200 TL nin üzerinde ise belge adedini saysın. Eğer belge toplamı (aynı tarihte, aynı belge nosu) 200 Tl nin altında ise saymasın.

Yardımcı olursanız sevinirim. Dosya ektedir
Eklenmiş Dosyalar
Dosya Türü: xlsx PERSONEL FATURA BAŞI.xlsx (39.2 KB, 8 Görüntülenme)
serkan.sevinc Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 21:33   #2
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,317
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

örnek dosyayı inceleyiniz.
Eklenmiş Dosyalar
Dosya Türü: xlsx PERSONEL FATURA BAŞI.xlsx (64.9 KB, 11 Görüntülenme)
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-10-2017, 13:21   #3
serkan.sevinc
Altın Üye
 
Giriş: 12/02/2014
Şehir: bursa
Mesaj: 62
Excel Vers. ve Dili:
office2013
Varsayılan Belge Sayma

Öncelikle ilginiz için çok teşekkür ederim.
Aslında yapmak istediğim,
Özet sayfasındaki B4 hücresindeki formülde A2 hücresinde bulunan personel ismine göre detay sayfasındaki o personelin satışların evrak adedini saydırabiliyorum. A2 hücresindeki personel 01.10.2017 tarihinde toplam 11 adet evrak ile 4.194,82 TL lik satış yapmıştır.
Yapmak istediğim bu 11 adet evrakın kaç tanesi 200 TL ve üzeridir.

Yardımlarınız için teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsx PERSONEL FATURA BAŞI (3).xlsx (78.9 KB, 6 Görüntülenme)
serkan.sevinc Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 08:33   #4
serkan.sevinc
Altın Üye
 
Giriş: 12/02/2014
Şehir: bursa
Mesaj: 62
Excel Vers. ve Dili:
office2013
Varsayılan

Cevap verebilecek var mı acaba?
serkan.sevinc Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2017, 01:15   #5
Ziynettin
Altın Üye
 
Giriş: 17/04/2008
Şehir: istanbul
Mesaj: 371
Excel Vers. ve Dili:
office2010
Varsayılan

Merhaba;

Ekili dosyayı deneyin. Makro çalışması.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub kod_1()
Set s1 = Sheets("detay")
Set s2 = Sheets("özet")
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
Pers_adi = s2.[A2]
izahat = "21"
a = s1.Range("A2:N294")
ReDim b(1 To UBound(a), 1 To 4)
For i = 1 To UBound(a)
    If a(i, 4) = Pers_adi And a(i, 11) = izahat Then
        deg = a(i, 1) & a(i, 2)
        If Not d.exists(deg) Then
            say = say + 1
            d(deg) = say
            b(say, 1) = a(i, 1)
            b(d(deg), 2) = a(i, 2)
         End If
        b(d(deg), 3) = b(d(deg), 3) + a(i, 14)
        b(d(deg), 4) = b(d(deg), 4) + 1
    End If
Next i
tbl = Array(b)
ReDim k(1 To d.Count, 1 To 4)
say = 0
For i = 1 To d.Count
    deg = tbl(0)(i, 1)
    If Not d1.exists(deg) Then
        say = say + 1
        d1(deg) = say
        k(say, 1) = deg
    End If
    k(d1(deg), 2) = k(d1(deg), 2) + 1
    k(d1(deg), 3) = k(d1(deg), 3) + tbl(0)(i, 3)
    If tbl(0)(i, 3) >= 200 Then
    k(d1(deg), 4) = k(d1(deg), 4) + 1
    End If
Next i
If say > 0 Then
s2.[A4].Resize(d1.Count, 4) = k
End If
MsgBox "İşlem tamam....", vbInformation
End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm PERSONEL FATURA BAŞI.xlsm (94.5 KB, 5 Görüntülenme)
Ziynettin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 12:11   #6
serkan.sevinc
Altın Üye
 
Giriş: 12/02/2014
Şehir: bursa
Mesaj: 62
Excel Vers. ve Dili:
office2013
Varsayılan

Merhaba,

Öncelikle çok teşekkür ederim.
Fakat detay sayfası K sütunundaki İzahat bölümünde 21, 25 ve 27 olanları toplayıp, 22 ve 88 olanları da bu toplamdan düşmesini istiyorum.
Yardımcı olabilir misiniz?
serkan.sevinc Ç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 08:10


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden