İKİ TARİH ARASI ÇOKEĞERSAY

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İKİ TARİH ARASI ÇOKEĞERSAY

İleti#1)  y_tekeli » 13 Oca 2020 14:24

Değerli üstadlarım; Aşağıda ki gibi bir kod satırım var 6 yıllık bir veri var içinde bulunduğumuz yıla göre personel bazlı saydırmak istedim nerede hata yapıyorum da sonuç alamıyorum.
Kod: Tümünü seç
    Set TARİH = Range(Cells(9, "A"), Cells(Cells(65536, "A").End(xlUp).Row, "A"))
        Set OPERATÖR = Range(Cells(9, "G"), Cells(Cells(65536, "G").End(xlUp).Row, "G")) 'BİLDİREN
             YILBAŞI = DateSerial(Year(Date), 1, 1)
                  YILSONU = DateSerial(Year(Date), 12, 31)
   
    For stn_ = 1 To 6
         ŞART = Cells(stn_, 1) 'PERSONEL
             Cells(stn_, 2) = WorksheetFunction.CountIfs(TARİH, ">=" & YILBAŞI, TARİH, "<=" & YILSONU, OPERATÖR, ŞART)
                 Next
   
 
Kullanıcı avatarı
y_tekeli
Yeni Başlamış
 
Adı Soyadı:hilmi yavuz tekeli
Kayıt: 06 May 2014 11:48
Konum: bursa/osmangazi
Meslek: tekniker
Yaş: 39
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa / osmangazi

Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#2)  KarıncaZ » 13 Oca 2020 19:12

Merhaba Sayın y_tekeli

Örnek bir dosya yükleye bilir misiniz. Yazdığımız kodlarında doğru çalışıp çalışmadığını kontrol etmiş oluruz, daha sağlıklı olur.
Kullanıcı avatarı
KarıncaZ
Siteye Alışmış
 
Adı Soyadı:Zülfü YORULMAZ
Kayıt: 04 Nis 2009 21:32
Konum: KOCAELİ
Meslek: SMMM
Yaş: 41
İleti: 154
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ/DERİNCE

Cevap: Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#3)  y_tekeli » 14 Oca 2020 07:07

KarıncaZ yazdı:Merhaba Sayın y_tekeli

Örnek bir dosya yükleye bilir misiniz. Yazdığımız kodlarında doğru çalışıp çalışmadığını kontrol etmiş oluruz, daha sağlıklı olur.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
y_tekeli
Yeni Başlamış
 
Adı Soyadı:hilmi yavuz tekeli
Kayıt: 06 May 2014 11:48
Konum: bursa/osmangazi
Meslek: tekniker
Yaş: 39
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa / osmangazi

Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#4)  OmerFaruk72 » 14 Oca 2020 18:23

Aşağıda ki gibi bir kod satırım

Eklediğiniz örnek tablo içinse neden formüller yapmıyorsunuz. Gayet güzel çalışıyor formülle.
B2 hücresi için formülünüz.
Kod: Tümünü seç
=ÇOKEĞERSAY($A$9:$A$7829;">=1.1.2020";$A$9:$A$7829;"<31.12.2020";$G$9:$G$7829;A2)
Kullanıcı avatarı
OmerFaruk72
Siteye Alışmış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 48
İleti: 253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#5)  y_tekeli » 14 Oca 2020 19:34

OmerFaruk72 yazdı:
Aşağıda ki gibi bir kod satırım

Eklediğiniz örnek tablo içinse neden formüller yapmıyorsunuz. Gayet güzel çalışıyor formülle.
B2 hücresi için formülünüz.
Kod: Tümünü seç
=ÇOKEĞERSAY($A$9:$A$7829;">=1.1.2020";$A$9:$A$7829;"<31.12.2020";$G$9:$G$7829;A2)

Öncelikle orjinal sayfada formül var ve ben sonucu formül ile bulabilşyorum bir ikincisi sayfada förmül ile yapmak istemiyorum. Benim maksadım bunu kod ile yapmak. Yineden eline emeğünr sağlık.
Kullanıcı avatarı
y_tekeli
Yeni Başlamış
 
Adı Soyadı:hilmi yavuz tekeli
Kayıt: 06 May 2014 11:48
Konum: bursa/osmangazi
Meslek: tekniker
Yaş: 39
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa / osmangazi

Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#6)  hasan14 » 14 Oca 2020 20:24

Aşağıdaki şekilde deneyiniz.
Kod: Tümünü seç
Sub say()
Set TARİH = Range(Cells(9, "A"), Cells(Cells(65536, "A").End(xlUp).Row, "A"))
Set OPERATÖR = Range(Cells(9, "G"), Cells(Cells(65536, "G").End(xlUp).Row, "G")) 'BİLDİREN
   YILBAŞI = CDbl(CDate(DateSerial(Year(Date), 1, 1)))
    YILSONU = CDbl(CDate(DateSerial(Year(Date), 12, 31)))
For stn_ = 2 To 7
    ŞART = Cells(stn_, 1) 'PERSONEL
    Cells(stn_, 2) = WorksheetFunction.CountIfs(TARİH, ">=" & YILBAŞI, TARİH, "<=" & YILSONU, OPERATÖR, ŞART)
   Next
   End Sub
Kullanıcı avatarı
hasan14
Siteye Alışmış
 
Kayıt: 28 Ağu 2016 15:26
Meslek: eğitim
Yaş: 59
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: zonguldak

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#7)  y_tekeli » 15 Oca 2020 07:33

insan bazen mahçup düşüyor. Şahsen vba konusunda bir çok şeyi burada gördüm uyguladım burası bir derya. Bir kez daha gördüm ki değişken türü tanımlamak ve bunu atlamamak gerek. Yardımın için teşekkürler.
hasan14 yazdı:Aşağıdaki şekilde deneyiniz.
Kod: Tümünü seç
Sub say()
Set TARİH = Range(Cells(9, "A"), Cells(Cells(65536, "A").End(xlUp).Row, "A"))
Set OPERATÖR = Range(Cells(9, "G"), Cells(Cells(65536, "G").End(xlUp).Row, "G")) 'BİLDİREN
   YILBAŞI = CDbl(CDate(DateSerial(Year(Date), 1, 1)))
    YILSONU = CDbl(CDate(DateSerial(Year(Date), 12, 31)))
For stn_ = 2 To 7
    ŞART = Cells(stn_, 1) 'PERSONEL
    Cells(stn_, 2) = WorksheetFunction.CountIfs(TARİH, ">=" & YILBAŞI, TARİH, "<=" & YILSONU, OPERATÖR, ŞART)
   Next
   End Sub
Kullanıcı avatarı
y_tekeli
Yeni Başlamış
 
Adı Soyadı:hilmi yavuz tekeli
Kayıt: 06 May 2014 11:48
Konum: bursa/osmangazi
Meslek: tekniker
Yaş: 39
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa / osmangazi

Cevap: Cevap: Cevap: İKİ TARİH ARASI ÇOKEĞERSAY

İleti#8)  hasan14 » 15 Oca 2020 09:00

y_tekeli yazdı:insan bazen mahçup düşüyor. Şahsen vba konusunda bir çok şeyi burada gördüm uyguladım burası bir derya. Bir kez daha gördüm ki değişken türü tanımlamak ve bunu atlamamak gerek. Yardımın için teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim
Kullanıcı avatarı
hasan14
Siteye Alışmış
 
Kayıt: 28 Ağu 2016 15:26
Meslek: eğitim
Yaş: 59
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: zonguldak


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

cron
Bumerang - Yazarkafe