[teyadih]

Kolay gelsin arkadaşlar 2 formüle ihtiyacım var
1- A1 e yazdığım rakamı 1 den başlayarak B2 den itibaren aşağıya doğru yazdıracak bir formüle ihtiyacım var
Örnek A1 deki 40 rakamını 1 den başlayacak 40 da bitirecek

2- D sütununda bulunan tarihlerde kaç tane hafta sonu yani cumartesi pazar olduğunu verecek formül

Teşekkür ederim

[hemso41]

Bunları yapacak formül bulmak çok zor. Onun yerine sayfanın change yordamına aşağıdaki kodu eklemeniz yeterli olacaktır.

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
    son = Range("d1").End(xlDown).Row
    Range("B:B").Clear
        For i = 1 To Range("a1").Value
            Cells(i, 2) = i
        Next
           
                For j = 1 To son
                    If Weekday(Cells(j, 4), vbMonday) = 6 Or Weekday(Cells(j, 4), vbMonday) = 7 Then
                        toplam = toplam + 1
                    End If
                Next
        MsgBox toplam & "adet haftasonuna denk gelen gün var"
    End If
   
   
End Sub





[Ali Kırksekiz]

A1 e yazdığım rakamı 1 den başlayarak B2 den itibaren aşağıya doğru yazdıracak bir formüle ihtiyacım var
Örnek A1 deki 40 rakamını 1 den başlayacak 40 da bitirecek

A1 sayıyı'yı yazın B1 hücresine aşağıdakini yazıp aşağı doğru çekiniz.

Kod: Tümünü seç

=EĞER(SATIRSAY($B$1:B1)>$A$1;"";SATIRSAY($B$1:B1))

D sütununda bulunan tarihlerde kaç tane hafta sonu yani cumartesi pazar olduğunu verecek formül

Kod: Tümünü seç

=TOPLA.ÇARPIM(--(HAFTANINGÜNÜ(D2:D100;2)>5)*(D2:D100<>""))

yazınız.

[hemso41]

Ali bey çok zor demiştim geri alıyorum sözümü.Ellerinize sağlık.

[Ali Kırksekiz]

Ali bey çok zor demiştim geri alıyorum sözümü.Ellerinize sağlık.

Sizinde ellerinize sağlık.

[Murat OSMA]

İlk isteğe alternatif olarak bu formülü de kullanabilirsiniz..

Kod: Tümünü seç

=($A$1>=SATIR())*SATIR()

Hücre Biçimlendirmeden İsteğe Uyarlanmışı seçin, Tür kısmına da 0;; yazıp Tamam deyin..

[teyadih]

Teşekkür ederim arkadaşlar kusura bakmayın geç dönüş yaptım.

[teyadih]

Sayın Ali Kırksekiz. Yazmış olduğunuz
=EĞER(SATIRSAY($B$1:B1)>$A$1;"";SATIRSAY($B$1:B1)) formülü 1 den başlayış 40 a kadar gidiyor bunu tam tersi 40 dan başlayış 0 a kadar düşecek şekilde,
=TOPLA.ÇARPIM(--(HAFTANINGÜNÜ(D2:D100;2)>5)*(D2:D100<>"")) formülünü ise D sütunundaki hafta sonları ile E sütununda bulunan resmi tatil tarihlerin toplamını verecek şekilde yapabilir misiniz rica etsem.

[Ali Kırksekiz]

Sayın Ali Kırksekiz. Yazmış olduğunuz
=EĞER(SATIRSAY($B$1:B1)>$A$1;"";SATIRSAY($B$1:B1)) formülü 1 den başlayış 40 a kadar gidiyor bunu tam tersi 40 dan başlayış 0 a kadar düşecek şekilde,

Kod: Tümünü seç

=EĞER(SATIRSAY($B$1:B1)>$A$1;"";$A$1-SATIRSAY($B$1:B1)+1)

=TOPLA.ÇARPIM(--(HAFTANINGÜNÜ(D2:D100;2)>5)*(D2:D100<>"")) formülünü ise D sütunundaki hafta sonları ile E sütununda bulunan resmi tatil tarihlerin toplamını verecek şekilde yapabilir misiniz rica etsem.

E sütununda sadece resmi tatiller olsun.

Kod: Tümünü seç

=TOPLA.ÇARPIM(--(HAFTANINGÜNÜ(D2:D100;2)>5)*(D2:D100<>""))+BAĞ_DEĞ_DOLU_SAY(E2:E100)

[teyadih]

Teşekkür ederim sayın ali kırksekiz elinize sağlık. Resmi tatil günlerinin eklenmesiyle ilgili eksik bilgi vermişim kusura bakmayın. Belirtilen tarihler arasındaki hafta sonları ile resmi tatil sayısını verecek bir formüle ihtiyacım var. Örnek belgeyi ekte gönderiyorum.
teşekkür ederim tekrar

[teyadih]

Ali bey sizi yoruyorum hakkınızı helal edin son yaptığınız formülü =EĞERHATA(EĞER(SATIRSAY(E1:E1)>E1;"0";E1-SATIRSAY(E1:E1)-2);) bu şekilde yaparak 3 er 3 er düşmesi şeklinde ayarladım ancak ilk yaptığınız =EĞER(SATIRSAY($B$1:B1)>$A$1;"";SATIRSAY($B$1:B1)) formülünü 40 a kadar 3 er 3 er atmasını yapamadım. Size zahmet buna da bakar mısınız

[Ali Kırksekiz]

Kod: Tümünü seç

=EĞER(SATIRSAY($B$1:$B1)*3-3+1>$A$1;"";SATIRSAY($B$1:$B1)*3-3+1)

[teyadih]

Teşekkür ederim ali bey pazartesi işe gittiğimde deneyeceğim formülü
Gönderdiğim dosyayı inceleyebildiniz mi acaba

[teyadih]

Sıkıntı yok ali bey elinize sağlık.

[teyadih]

Kolay gelsin arkadaşlar. Sayın Ali Kırksekiz'in yukarıda yaptığı formülle benzer bir formüle ihtiyacım var. Eğer AK1 30 ise alt alta 30 tane 1, 20 ise 20 tane 1 yazacak, yani AK1 de kaç yazıyorsa alt alta o kadar 1 yazacak bir formüle ihtiyacım var. Teşekkür ederim