2 sayfadan 2. sayfa

Cevap: Günlük Görev Listesi hk.

İletiTarih: 12 Şub 2020 14:02
Miraç CAN
Bu kadar basitti :)
Kod: Tümünü seç
Private Sub Workbook_Open()
Select Case Weekday(Date, vbMonday)
Case 1 To 5
    [A2] = "GÜNDÜZ"
Case 6
    [A2] = "GECE"
Case 7
    [A2] = "İSTİRAHATLİ"
End Select
End Sub