Öğrenci Stjajında belirli günlere değer atama.

[yenilik025]

MERHABA;
Öğrenci Stajı takiplerinde ilgili ayın Pazartesi ve Salı günleribe Değer atamak istiyorum.
Bunu nasıl yapabilirim yardımcı olabilir msiiniz ?

 

[msoauy]

Merhaba,

Dosyayı indiremedim fakat aşağıdaki fonksiyon işine yarayacaktır. İyi çalışmalar.

Function PazartesiMiSaliMi(ByVal givenDate As Date, ByRef dayName As String) As Boolean
    DayNum = Weekday(givenDate, vbMonday)
    PazartesiMiSaliMi = False
    Select Case DayNum
        Case 1
            PazartesiMiSaliMi = True
            dayName = "Pazartesi"
        Case 2
            PazartesiMiSaliMi = True
            dayName = "Salı"
        Case 3
            dayName = "Çarşamba"
        Case 4
            dayName = "Perşembe"
        Case 5
            dayName = "Cuma"
        Case 6
            dayName = "Cumartesi"
        Case 7
            dayName = "Pazar"
    End Select
End Function

 

[yenilik025]

Aradığım tam olarak bu değil, aslında

Gün sorununu başka bir şekilde hallettim.

Pazartesi, Salı sorununu bitti.

Ancak yıl ve ay seçimine göre yatay da hücrelerin
gün ve ay olarak sıralanmasını da yapabilirsek,
hocalarımızın sayesinde.

Bu dosya da bir çok kullanıcının işine yarayacak eminim.

Merhaba,

Dosyayı indiremedim fakat aşağıdaki fonksiyon işine yarayacaktır. İyi çalışmalar.

Function PazartesiMiSaliMi(ByVal givenDate As Date, ByRef dayName As String) As Boolean
    DayNum = Weekday(givenDate, vbMonday)
    PazartesiMiSaliMi = False
    Select Case DayNum
        Case 1
            PazartesiMiSaliMi = True
            dayName = "Pazartesi"
        Case 2
            PazartesiMiSaliMi = True
            dayName = "Salı"
        Case 3
            dayName = "Çarşamba"
        Case 4
            dayName = "Perşembe"
        Case 5
            dayName = "Cuma"
        Case 6
            dayName = "Cumartesi"
        Case 7
            dayName = "Pazar"
    End Select
End Function

 

[sward175]

sayın: yenilik025, İyi akşamlar,

Ay ve gün isimleri de ektedir,
kolaylıklar diliyorum,
sward175

 

[yenilik025]

Teşekkür edeirm Sanırım bu benim gönderdiğim dosya yeniden yüklenmiş .dedim ancak günlerdeki formülü yeni gördüm.
Ancak alt alta sıralama olan dosyayı ben yatayda çalışması için uğraşıyorum.

Örnek burada Şubat ayını girdiğimizde 29 30 31 diye devam ediyor. Bu da hatalı bir çalışma oluyor ancak teşekkür ederim.