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

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
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)
 

Ekli dosyalar

Katılım
22 Eylül 2006
Mesajlar
883
Excel Vers. ve Dili
Office Excel®2007®TR
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

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

G3 :

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

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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.


Kod:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,248
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.
 

Ekli dosyalar

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
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!!!
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,248
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.
 

Ekli dosyalar

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
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!!!
 
Üst