Haftasonu günleri hak.

[1903emre34@gmail.com]

Merhaba,

Ocak, Şubat aylara ait sayfalarda hangi günler (Cumartesi-Pazar ) ise "TATİL" kelimesi getirilmesi için nasıl kod oluşturabiliriz

 

[antonio]

Merhaba,
Aktif olan sayfanızın A1 hücresine yıl, A2 hücresine sayısal olarak ay yazdıktan sonra, hangi sayfanız açık ise onda işlem yapabilecek şekilde aşağıdaki kodları kullanabilirsiniz. (aynı koda farklı sayfalardan buton bağlayınız.)

Sub tatil_gunlerini_goster()
Dim sh As Worksheet
Set sh = ActiveSheet
For i = 1 To 31
    tarih = DateSerial(sh.Range("A1"), sh.Range("A2"), i)
    If Weekday(tarih, vbMonday) > 5 Then
        sh.Range("A" & i + 3 & ":C" & i + 3).Interior.ColorIndex = 28
        sh.Range("B" & i + 3 & ":C" & i + 3).Value = "HAFTA SONU"
    Else
        sh.Range("A" & i + 3 & ":C" & i + 3).Interior.ColorIndex = xlNone
        sh.Range("B" & i + 3 & ":C" & i + 3).Value = ""
    
    End If
Next i
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

 

[Necdet]

Merhaba,

Alternatif olsun.

C1 hücresi istediğiniz tarihin 1. günü olmak kaydıyla :

Sub HaftaSonu()

    Dim i   As Integer, _
        Tar As Date
        
    Tar = Range("C1") - 1
    
    i = 3
    
    Do
        i = i + 1
        Tar = Tar + 1
        If Weekday(Tar, vbMonday) > 5 Then Cells(i, "C") = "Tatil"
    Loop While Cells(i, "A") <> ""
    
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, Sn. antonio ve Yeşertener,