Ayın toplam gününü sayma

[turunc]

Bir hücreye ayın bağlangıç tarihini yazalım yanında o ay içindeki pazar günlerini saysın , onunda yanında ayın toplam kaç gün olduğunu saysın.
Bir türlü bu işin içenden çıkamadım yardımlarınızı bekliyorum

 

[Necdet]

Başlangıç Tarihinin A1, Son Tarihin B1 olduğunu varsayarsak,

İki Tarih arasındaki Pazar Günü Sayısı :

=TOPLA.ÇARPIM((HAFTANINGÜNÜ(SATIR(DOLAYLI(A1 & ":" &B1));2)=7)+0)
=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(A1 & ":" &B1));2)=7)+0)

Toplam Gün İçin : B1-A1

Hücreyi Rakam Olarak Biçimlendiriniz.

 

[Orion1]

Pazar sayısını bulmak için kullanıcı tanımlı fonksiyon yaptım.
Girdiğiniz tarihten ayın son gününe kadar olan Pazar'ları sayar ve günleri sayar.
Ekli dosyayı inceleyiniz.:cool.

Function paz(pzr As Range)
Dim trh As Date, sntrh As Date
Dim i As Date, say As Byte
trh = pzr
paz = trh
sntrh = DateAdd("m", 1, DateSerial(Year(trh), Month(trh), 1))
For i = trh To sntrh - 1
    If Application.Weekday(i, 2) = 7 Then
        say = say + 1
    End If
Next i
paz = say
End Function

 

[Ali]

Aşağıdaki linkleri inceleyiniz.

iki tarih arası pazar günlerinin toplamını nasıl bulurum.

İki tarih arasında belirli bir günün kaç adet olduğunu bulma ???

.

 

[Korhan Ayhan]

Mükerrer mesaj yolladığım için tarafımdan silinmiştir.

 

[Korhan Ayhan]

Selamlar,

Sn. Necdet beyin hazırladığı linkteki bilgileri ekteki örnek dosyada bulabilirsiniz.

Umarım faydası olur.

 

[turunc]

Sağolun

Selamlar,

Sn. Necdet beyin hazırladığı linkteki bilgileri ekteki örnek dosyada bulabilirsiniz.

Umarım faydası olur.

Çok teşekkürler Ayhan bey tamda istediğim şeydi fakat şimdi başka bir çıkmazım var ekteki dosyada anlattım fakat indirmek istemeyenler için yazıyorum.

örn. A2 hücresinde tarih değeri var buradaki tarihin tekabul ettiği gün Pazar ise tüm satır Renki olsun istiyorum. Elle girince oluyor fakat gel görki bu şekilde bir türlü soruma cevap bulamadım umarım çok şey istemiyorumdur.

 

[Necdet]

Merhaba, Dosyanız Ekte.

B sütunundaki değerler haftanın günlerini gösteren değerler değil, yani "pazar", "pazartasi" vs. onlar gösterimden dolayı haftanın günleri olarak görünüyor. Oysa B sütunu resmen bir tarihtir. Bu yüzden aşağıdaki formülü kullanmak gerek.

Koşullu Biçimlendirmede Formül :

=HAFTANINGÜNÜ(B1;2)=7
=WEEKDAY(B1;2)=7

 

[turunc]

Çok teşekkürler Necdet bey nokta atışları yapıyorsunuz fakat fomülü öğrenme amaçlı soruyorum =Haftanıngünü(B1;2)=7 de B1;2 nin açılımı nedir. Satırlarda çalışmıyor farklı yerleri gösteriyorda.

 

[Necdet]

HAFTANINGÜNÜ fonksiyonun parametreliri

1. Tarih
2. Haftanın ilk günün hesaplanmasını belirten seçenek

Eğer haftanın 1. günü pazartesi ile başlıyorsa 2, Pazar ile başlıyorsa 1 kullanılabilir.

Ben alışkanlık olarak hep 2 kullanıyorum, 1 kullanırsanızda haftanın ilk günü Pazar olacağı için = 7 yerine = 1 kullanmak gerekirdi.

 

[turunc]

Her Şey Tamam Fakat

Ayhan Bahar beyin (kendisine çok teşekkür ediyorum) puantaj çalışması vardı onu alıp ufak tefek değişiklikler yapıp (mesai ekleme ve renklendirme gibi) kendime göre düzenlemeler yaptım şimdiyse farklı bir sorunla karşı karşıyayım

Pazar ların olduğu sutunu mesai sunuyla beraber renkli olmasını istiyorum.
2 adet koşullu biçimlendirme kullanınca oluyor ama tek tek işlemek gerekiyor bir formlde 2 sütun birden renklendirilebilirmi. bu birinciydi


2.si ise 1 mayısla ilgili gelecek ay için koşullu biçimlendirme yapılınca renkli görünüyor böyle istiyordum zaten fakat geçmişe dönük arşiv alırsak bu çalışmayı her taraf renkli görünüyor. yani 1. sütuna 1 nisan değilde 1 mayıs yazınca bütün tarihleirin renkleri değişiyor.
Açıklamayı ekteki dosyadan dahi iyi anlayacsınız

ve bu çalışmaya daha neler ekleyebiliriz onu soracaktım şu haliyle işimi iyi bir şekilde görüyor ancak muhtemelen eksik veya yanlış yerleri vardır tabiki bu bakan kişinin uzmanlığıyla ilgilidir. şimdiden çok teşekkürler

 

[abdi]

Sanırım pazar günlerin renklenmesi kısmını yaptım

fakat diğer sorunu anlayamadım iyi günlerde kullanınız.

 

[turunc]

abdi arkadaşım çok sağol fakat koşullu biçimlendirmeler ne kadar çok olursa excel okadar yavaşlıyor işlem yapması geçleşiyor ben tek koşullu biçimlendirmede 2 sütunu birden yapmak istiyordum fakat anlaşılan olmuyormuş yinede çok sağol

 

[metincevik]

Koşullu Biçimlendirme ?

acemilik cok zormus
umarim yardim edersiniz
simdiden hepinize cok tesekur ediyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If IsDate(Target) Then
    Target.Offset(0, 1) = "Fertig"
    Target.Offset(0, 2) = "Oelsnitz"
    Target.Offset(0, 3) = "x"
Else
    Target.Offset(0, 1) = ""
    Target.Offset(0, 2) = ""
    Target.Offset(0, 3) = ""
End If
End Sub

 

[Necdet]

Merhaba,

Yada :

E2

=EĞER(EBOŞSA(D2);"";"Fertig")

F2

=EĞER(EBOŞSA(D2);"";"Oelsnitz")

G2

=EĞER(EBOŞSA(D2);"";"x")

 

[metincevik]

Abi burasi acayip biryer insana bukadar kisa zamanda cevap veriliyor
allah bu site yoneticilerinde razi olsun
boyle insanlari bir araya topladigi icin cok tesekur ederim necdet abi

 

[ziya]

abdi arkadaşım çok sağol fakat koşullu biçimlendirmeler ne kadar çok olursa excel okadar yavaşlıyor işlem yapması geçleşiyor ben tek koşullu biçimlendirmede 2 sütunu birden yapmak istiyordum fakat anlaşılan olmuyormuş yinede çok sağol

Hazır bir puantaj çalışması, pazarları tesbit edip koşullu biçimlendirme ile işaretliyor. (A sütununa resmi tatilleri girdiğinizde resmi tatil günlerinide işaretliyor)

http://www.excel.web.tr/showpost.php?p=277089&postcount=9
veya
http://www.excel.web.tr/showpost.php?p=279073&postcount=3

Selamlar,

 

[metincevik]

gunaydin Necdet Bey

Merhaba,

Yada :

E2

=EĞER(EBOŞSA(D2);"";"Fertig")

F2

=EĞER(EBOŞSA(D2);"";"Oelsnitz")

G2

=EĞER(EBOŞSA(D2);"";"x")

Ellerine saglik Abi Evde hersey guzel oldu Ama isyerine gelice olmadi isyerinde excel 2000 almanca kulaniyoruz bu code leri calistiramadim !!

 

[Necdet]

Merhaba,

Dosyayı ekledim.