Pazar günü hariç, diğer günleri listeleme

[Erdinç FIRTINA]

Değerli Üyeler,

Aşağıdaki fonksiyonlarla, haftanın çarşamba ve cumartesi günleri yazılabiliyor. Aynı fonksiyonlarla Pazar hariç tüm günleri nasıl sıralayabilirim?
Yardımlarınız için şimdiden teşekkürler!
01/01/2009 =haftanıngünü(g2)
=g2+eleman(haftanıngünü(g2);3;2;1;3;2;1;4) =haftanıngünü(g3)
=g3+eleman(haftanıngünü(g3);3;2;1;3;2;1;4) =haftanıngünü(g4)
=g4+eleman(haftanıngünü(g4);3;2;1;3;2;1;4) =haftanıngünü(g5)
=g5+eleman(haftanıngünü(g5);3;2;1;3;2;1;4) =haftanıngünü(g6)
=g6+eleman(haftanıngünü(g6);3;2;1;3;2;1;4) =haftanıngünü(g7)
=g7+eleman(haftanıngünü(g7);3;2;1;3;2;1;4) =haftanıngünü(g8)
=g8+eleman(haftanıngünü(g8);3;2;1;3;2;1;4) =haftanıngünü(g9)

 

[ozgretmen]

Aşğıdaki şekilde sıralayabilirsiniz.Ancak formüllerin uygulandığı hücreleri seç , sağ tıkla , Hücre Biçimlendir ,İsteğe Uyarlanmış , Tür gggg yapınız.

=haftanıngünü(2) pazartesi
=haftanıngünü(3) salı
=haftanıngünü(4) çarşamba
=haftanıngünü(5) perşembe
=haftanıngünü(6) cuma
=haftanıngünü(7) cumartesi

 

[Erdinç FIRTINA]

Sayın ozgretmen,
öncelikle yardımınız için teşekkürler!
Ancak söz konusu fonksiyonlarla yapılan işlem şöyle.
Birinci hücreye ayın ilk gününü yazıyorum.
Aşağıdaki formül ile, ayın ilk gününden sonraki ilk cumartesiye gelen tarih, ilk çarşambaya gelen tarih geliyor. Bundan sonra da Cumartesi ve Çarşambalara gelen tarihlerin yazılmasıyla devam ediyor.

Ben ise bu tarih yazılış sırasını, ilk günü ben yazdıktan sonra, ayın 2. gününden başlayarak ancak Pazar günleri hariç sırayla yazılmasını istiyorum.

=g2+eleman(haftanıngünü(g2);3;2;1;3;2;1;4)
=g3+eleman(haftanıngünü(g3);3;2;1;3;2;1;4)
=g4+eleman(haftanıngünü(g4);3;2;1;3;2;1;4)
=g5+eleman(haftanıngünü(g5);3;2;1;3;2;1;4)
=g6+eleman(haftanıngünü(g6);3;2;1;3;2;1;4)
=g7+eleman(haftanıngünü(g7);3;2;1;3;2;1;4)
=g8+eleman(haftanıngünü(g8);3;2;1;3;2;1;4)

 

[Necdet]

Merhaba,

G3 :

=EĞER(HAFTANINGÜNÜ(G2+1;2)>6;G2+2;G2+1)
=IF(WEEKDAY(G2+1;2)>6;G2+2;G2+1)

 

[Erdinç FIRTINA]

Sayın Yeşertener,

Çok çok teşekkür ederim. Aslında hazırlanan fonksiyonlar zaten sizin dosyanızdan alınmıştı. Bir de makro kodlarla hazırlanmış olan vardı ama onu bulamadım. O kodlar da çok işime yarayacak. Kodlar sayfanın kodları olarak hazırlanmıştı ve belirlenen sütunda ayın ilk gün tarihi yazıldığında ototmatik olarak tarhler sıralanıyordu. Eğer bu konuda yardımlarınız olursa çok sevinirim.

Yardımlarınız için şimdiden çok teşekkürler!!!

 

[Necdet]

Merhaba,

Aşağıdaki kodlar, sayfanın kod bölümünde olmalı. Dosyanızdaki örnekte Tarih 22. satıra kadar gidiyordu, siz gerekirse kırmızı olarak belirttiğim rakamı kendinize göre ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [G2]) Is Nothing Then Exit Sub
Dim i As Long
i = 2
Do
    i = i + 1
    If Weekday(Cells(i - 1, "G") + 1, vbMonday) > 6 Then
        Cells(i, "G") = Cells(i - 1, "G") + 2
    Else
        Cells(i, "G") = Cells(i - 1, "G") + 1
    End If
    
Loop While i <= [B][COLOR=red]22
[/COLOR][/B]Son:
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[Erdinç FIRTINA]

Sayın Korhan AYHAN ve Sayın Necdet YEŞERTENER,

Sizlere çok teşekkür ederim. Korhan Bey, dosyanızda tüm günlerin sıralanması yerine Pazar Günleri hariç sıralama yapmak için nasıl bir değişiklik yapılmalı?
Dosyada bazı değişiklikler yaptım. Ancak bazılarını da yapamadım. Açıklamalar dosyada.
Yardımlarınız için çok teşekkürler!!!

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Erdinç FIRTINA]

Sayın Korhan AYHAN,
Her zamanki gibi yardımlarınızı esirgemediniz ve sıkıntıdan kurtardınız. Size çok çok teşekkür ederim. Bileğinize, beyninize ve de en önemlisi yüreğinize sağlık!!!