Tarihin Günlerini Yazdırma

[akavak]

Merhaba

Kullandığım dosyada D sütununda tarihler mevcuttur. E sütununa bu tarihin hangi gün olduğunu yazdırmak istiyorum. Aşağıdaki gibi yaptım ama bunu daha kısa bir yoldan yapabilir miyiz.

teşekkürler

Sub deneme()
tarih = Format(mydate, "dd.mm.yyyy")
tarih = Cells(1, "D")

If Weekday(tarih, vbMonday) = 1 Then Cells(1, "e") = "Pazartesi"
If Weekday(tarih, vbMonday) = 2 Then Cells(1, "e") = "Salı"
If Weekday(tarih, vbMonday) = 3 Then Cells(1, "e") = "Çarşamba"
If Weekday(tarih, vbMonday) = 4 Then Cells(1, "e") = "Perşembe"
If Weekday(tarih, vbMonday) = 5 Then Cells(1, "e") = "Cuma"
If Weekday(tarih, vbMonday) = 6 Then Cells(1, "e") = "Cumartesi"
If Weekday(tarih, vbMonday) = 7 Then Cells(1, "e") = "Pazar"
End Sub

 

[Ömer]

Merhaba,

Sub Tarih()
    For i = 1 To [D65536].End(3).Row
        Cells(i, "e") = Format(Cells(i, "d"), "dddd")
    Next i
End Sub

Bu şekilde deneyin.

.

 

[Orion1]

Ömer beyin kodlarınıda kullanabilirsiniz.
Yalnız o kodlar türkçe olamayan bir windowsta haftanın gününü windowsun bağlı olduğu dilden verecektir.
Alternatif olarak aşağıdaki kodlarıda kullanabilrisiniz.

Option Base 1
Sub deneme()
Dim tarih As Date, gun(), k As Byte
tarih = Cells(1, "D").Value
gun = Array("Pazartaesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
For k = 1 To 7
    If Weekday(tarih, 2) = k Then
        MsgBox "Haftanın günü : " & gun(k)
        Exit For
    End If
Next
End Sub

 

[akavak]

Evren Bey, Ömer Bey ilginize teşekkür ediyorum.