seçime göre önceki ilk iş gününü bulma hk.

[zetkatamet]

Arkadaşlar,
Ekteki dosyaya bakabilir misiniz?
Seçim cumartesi yada pazar ise önceki ilk iş gününü nasıl buldurabiliriz?

 

[Muzaffer Ali]

Merhaba.

Herhangi bir hücreye aşağıdaki formülü yazarak deneyiniz.

=D2-EĞER(HAFTANINGÜNÜ(D2)=1;2;EĞER(HAFTANINGÜNÜ(D2)=7;1;0))

Eğer D2 hücresi düzeltilsin isterseniz kod ile olur.
Sayfa adını sağ tıklatın od Görüntüle seçin, açılan sayfaya aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D2")) Is Nothing Then
        If Weekday(Target) = 1 Then
            Target = Target - 2
        ElseIf Weekday(Target) = 7 Then
            Target = Target - 1
        End If
    End If
End Sub

 

[zetkatamet]

Teşekkürler Muzaffer Ali bey

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.