İki tarih arasındaki değerleri sayma

[kelkitli]

Değerli dostlar Selamlar,
Ekli dosyada

Sub say()
Sheets("Sayfa1").Select
sonsat = Cells(65536, "B").End(xlUp).Row
'R leri say
Range("M2").Value = WorksheetFunction.CountIf(Range("B1:B" & sonsat), "=R")
End Sub
kodu ile değer saydırıyorum. Ancak ilave olarak A sütununda listelenen yazılı tarihler arasında (Sayfa1 N4 ilk tarih, N5 son tarih aralığındaki "R" ler sayılacak ) sayma yapılacak ve bu bir dögü ile 1. satırdaki B1:L1 sütun başlıklarndaki değerler de B:L sütun aralıklarında sayılarak Q sütununda belirlenen yerlerine yazılacaklar.
(Açıklama:ekte M2 hücresine yazılan değer B sütunu için örnektir. Karışıklık oluşturmasın.)

 

[kelkitli]

Yada P sütununda yazılı olan yaka numaraları sırayla döngü yapılarak Q sütununa yazılrsa da olur.

 

[AS3434]

Sub say()
sonsat = [b65536].End(3).Row
[q2:q100].ClearContents
For a = 2 To 12
For i = 2 To sonsat
If Cells(i, 1) >= [n4] And Cells(i, 1) <= [n5] And Cells(i, a) = [m1] Then
h = [r65536].End(3).Row + 1
Cells(h, 18) = 1
End If
Next
h = [q65536].End(3).Row + 1
Cells(h, 17) = WorksheetFunction.Sum(Range("r:r"))
[r:r].ClearContents
Next
[m2] = WorksheetFunction.Sum(Range("q2:q50"))
End Sub

Sayın kelkitli

Dosyanız ekte.

 

[Recep İpek]

Formülle çözüm isterseniz Q2 hücresine formülü kopyalararak aşağıya doğru çekiniz.

=SUMPRODUCT(($A$2:$A$52>=$N$4)*($A$2:$A$52<=$N$5)*($B$1:$L$1=$P2)*($B$2:$L$52="r"))

 

[kelkitli]

Dosyayı daha anlaşılır hazırlamaya çalıştım
P sütununda olan yaka numaraları sırayla:
1.Satırda aranıp bulunan sütunun A sütununda ilk tarih ve son tarih arasındaki tarih aralığına denk gelen kısmında kaç tana "R" olduğu sayılarak P sütununda yazılı yaka numarasının sağına (Q sütununa) yazılacak.

 

[AS3434]

Sayın kelkitli

Gönderdiğim dosyayı incelediniz mi?

 

[kelkitli]

Sayın AS3434 Sayın ripek,
Cevaplarınız için teşekkürlerimi iletirim. Sayın AS3434 gönderdiğiniz dosyayı yeni farkettim. Kusura bakmayın. Güzel olmuş. Bilginize emeğinize sağlık. Sayın ripek formüllerde bozulma olayında muzdarip olduğum için kod ile çözüm daha cazip. Yalnız olarak çalışmadığımdan diğer çalışma arkadaşlarımdan dolayı sıkıntı yaşıyorum.

 

[kelkitli]

Değerli Dostlar Selamlar,
Bu başlıkta sorulan soruya Sayın As3434 cevap yazdı. Ancak daha sonra kod üzerinde çalışırken bir sıkıntı ile karşılaştım.
For a = 2 To 12
döngüsünün olduğu kısımdaaranan yaka numaraları kriter olarak kullanılmayacak P sütunundaki yaka noları 2 to 12 arasında varsa sayma yapılacak yoksa yapılmayacak. Şundan dolayı : eski kayıtlarda mevcut olan yaka nolu kişi bir kaç ay sonra ayrılmış olabilir bundan dolayı son ayların kayıtlarında düşülmesi gerekecek.

 

[AS3434]

Yani P sütunundaki yaka noları ile B1 den L1 kadar olan alandaki yaka nolarının sayısı eşit olmayabilir mi?

Şundan dolayı : eski kayıtlarda mevcut olan yaka nolu kişi bir kaç ay sonra ayrılmış olabilir bundan dolayı son ayların kayıtlarında düşülmesi gerekecek.

O zaman niye iki tarih arası sorgu yapıyorsunuz? İşten çıkan kişi zaten tarih sorgusunda sayımı 0 (sıfır) olacaktır.
Maksat geçmiş bir tarihte de o hatta kaç kişinin çalıştığını bilmek değil mi?

 

[kelkitli]

Sayın AS3434 Selamlar,
Bu bilgileri aktaracağım belgede dönem dönem bilgi göndermem gerekiyor. Ekli dosyada bir yaka no sunu sildim tarayınca değer hanesinde yine bir değer kalıyor.
Eğer bu kısımdaki yaka noları kriter olarak alınırsa değerlerde sapma boş kalma olmayacak diye düşündüm.

 

[kelkitli]

Evet Sayın AS3434,
P sütunundaki yaka noları ile B1 den L1 kadar olan alandaki yaka nolarının sayısı eşit olmayabilir. Şunu eklemem gerekti. Eski kayıtları saklamam yeni kayıtları son şekle getirmem daha kullanışlı olur. Bu aktaracağım belge 2 yılıı kapsıyor.

 

[AS3434]

Eski ve yeni kayıtları görebileceğiniz şöyle birşey olabilir mi?

 

[kelkitli]

Sayın AS3434 sizi uğraştırmak da istemiyorum. İzninizle ben asıl uğraştığım dosyayı gerçek verileri sildikten sonra ekliyeyim. Onun üzerinde daha sağlıklı olur. Yardımcı olursanız sevinirim. Eziyetli olur derseniz sizi üzmekte istemem. Dosyayı hazırlayıp ekleyeceğim.

 

[kelkitli]

Dosyayı ekledim. Çalışma Sayfasındaki veriler Hesapla isimli sayfaya yazılacak. Açıklama dosyada var.

 

[AS3434]

Sayın kelkitli

Konuyu tam anlayamadım.

Çalışma sayfanızda ki bilgilerin Hesapla Sayfanızda tarih aralığına göre aktarılmasını mı istiyorsunuz?
Hesapla sayfanızda ki Veri Doğrulama ne olacak?

Yoksa, Hesapla sayfanızda sadece AY sütununda ki hesabı mı istiyorsunuz?

 

[kelkitli]

Sayın AS3434 Selamlar,
Çalışma sayfasındaki verileri hesapla sayfasına aktarmayacağız. Aynı önceki dosyada olduğu gibi sayım sonuçlarını aktaracağız. Ancak:
If Cells(i, 1) >= [n4] And Cells(i, 1) <= [n5] And Cells(i, a) = [m1] Then olarak de&#287;il de k&#305;rm&#305;z&#305; olan k&#305;sm&#305;
If Cells(i, 1) >= [S2] And Cells(i, 1) <= [AW2] And Cells(i, a) = "R" Then olarak arataca&#287;&#305;z. AY s&#252;tununda veri do&#287;rulama yok. Bir &#246;rnek olu&#351;turduktan sonra AZ s&#252;tununa dolu h&#252;creleri, BA s&#252;tununa 0 dan b&#252;y&#252;k 4 ten k&#252;&#231;&#252;k de&#287;erleri, Di&#287;erlerine &#252;i,&#304;,vs sayd&#305;r&#305;p yazd&#305;raca&#287;&#305;m.

 

[AS3434]

Anlayamadığım konu zaten burada. Hesapla sayfası o ayki verileri, hesapladığınız ve görmek istediğiniz sayfa olduğunu ve Çalışma sayfasının bir fonksiyonu yok diye düşünüyorum.

Bu işlem için makroya gerek var mı?

AY sütununda EĞERSAY fonksiyonu işinizi görür gibi geliyor.

Ekli dosyayı inceleyin.

Yine anlamadıysam mantığı çözemedim.

 

[kelkitli]

Say&#305;n AS3434 bu dedi&#287;iniz sistemi zaten &#351;u an kullan&#305;yorum. Ekli dosyada incelerseniz. &#199;al&#305;&#351;ma sayfas&#305;ndaki sar&#305; s&#252;tunlar form&#252;l ile hesaplama yap&#305;yor. Ancak &#246;nceki aydan +,- hesaplardan dolay&#305; yan&#305;na bir mavi s&#252;tun eklemek zorunda kald&#305;m. &#350;imdi &#252;zerinde &#231;al&#305;&#351;t&#305;&#287;&#305;m&#305;z dosyada daha sonra eklemeyi d&#252;&#351;&#252;nd&#252;&#287;&#252;m sayfalar olacak. &#199;al&#305;&#351;ma y&#305;ll&#305;k &#231;al&#305;&#351;may&#305; kaydetece&#287;im alan. Hesaplama &#252;zerinde +,- (&#214;rnek: R Rapor demek &#350;&#246;yle hesaplamak laz&#305;m E&#287;er 1 ay &#246;nceki hayali k&#305;s&#305;mdaki R say&#305;s&#305; 0 ise ayn&#305; d&#246;nem &#231;al&#305;&#351;ma k&#305;sm&#305;nda 5 ise bu ay "R"= 5 vardiya prim g&#252;ndelik - 5 olmas&#305; gerekmekte. Zaten s&#305;k&#305;nt&#305; bu t&#252;r hesaplamalarda ortaya &#231;&#305;kacak. Hesaplamadan sonra nihai &#351;ekil kaydet sayfas&#305;na aktar&#305;lacak.

 

[AS3434]

Sayın kelkitli

İstediğiniz şöyle birşey mi?
Yeşil hücrelere deneme amaçlı rakam ve sicil yazdım.

 

[kelkitli]

Sayın AS3434 ben bu dosyayı derdimi açıklayabilmek için ekledim. Bu dosyada işlem yapmayacağız zaten şu an bu dosyayı kullanıyorum. Ben makrolu çözümü neden istediğimi anlatabilmek için bu dosyayı ekledim. Çalışmayı 2008 dosyasında yapacağız. Ben bu projeyi yılbaşına hazırlayıp yeni dönemde kullanırım diye düşündüm.