Haftanın Mesai günlerini ve hafta sonlarını bulma

[caglarr65]

Merhaba,
Haftanın mesai günlerini ve hafta sonlarını bulmak istiyorum..Dosya ektedir Şimdiden teşekkürler.

 

[ockucukay]

istediğiniz ekteki gibi bir şey mi?

 

[Necdet]

Merhaba,

Makrolu çözüm. Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
If Target = xlNone Then Exit Sub
Dim Tar As Date
Dim i, j As Integer
i = 2
j = 2
Application.ScreenUpdating = False
Range("A3:B30").ClearContents
Tar = DateSerial(Year([B1]), Month([B1]), 1)
Do
    If Weekday(Tar, monday) < 6 Then
        i = i + 1
        Cells(i, "A") = Tar
    Else
        j = j + 1
        Cells(j, "B") = Tar
    End If
    Tar = Tar + 1
Loop While Month(Tar) = Month([B1])
Application.ScreenUpdating = True
End Sub

 

[nafis]

Merhaba;

Necdet hocam elinize sağlık çok güzel olmuş.

Hocam A1 sütünundaki Haftanın mesai günlerinde dini ve milli bayrama denk gelen günleri yazı tipi rengini kırmızı yazdırmak mümkünmü. Yada O günlerin yanına bayram tatili yadırmak mümkünmü.

Tekrar teşekkür ederim.

Saygılarımla

 

[Necdet]

Mesai ve haftasonu ile resmi ve dini tatil günleri

Merhaba;

Necdet hocam elinize sağlık çok güzel olmuş.

Hocam A1 sütünundaki Haftanın mesai günlerinde dini ve milli bayrama denk gelen günleri yazı tipi rengini kırmızı yazdırmak mümkünmü. Yada O günlerin yanına bayram tatili yadırmak mümkünmü.

Tekrar teşekkür ederim.

Saygılarımla

Merhaba,

Aşağıdaki linkleri inceler misiniz?

http://www.excel.web.tr/showthread.php?t=38377&highlight=tatil+g%FCnleri


http://www.excel.web.tr/showthread.php?t=46430&highlight=tatil

 

[nafis]

Merhaba;

Necdet hocam teşekkürederim.

Saygılarımla

 

[caglarr65]

Sayın:Necdet Yeşertener,
Mükemmel olmuş,her şey için çok teşekkür ederim.

 

[pasay]

teşekkkürler ama bir türlü indiremiorum

 

[halit3]

teşekkkürler ama bir türlü indiremiorum

aşağıdaki linke bakarmısınız.

http://www.excel.web.tr/showthread.php?t=74563