Çözüldü Verilen tarih ve saate göre Gün bulma

PERİHAN · 8 Kas 2023

MErhaba,
verilen tarihe göre
-Pazartesi, Salı, Çarşamba, Perşembe, Cuma günleri saat 16:00 öncesi ise aynı gün sonrası ise ertesi gün
-Cumartesi saat 12:00 öncesi ise aynı gün sonrası ise Pazartesi
-Pazar ise ertesi gün
hangi tarih ise bir hücreye gün bilgisi diğer hücreye ay bilgisi girilmesini istiyorum.
Bu konuda yardımcı olur musunuz?

veyselemre · 11 Kas 2023

Kod:

Sub test()
    Dim i, gun, tar, saat
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        tar = Cells(i, 1).Value
        If IsDate(tar) Then
            gun = Weekday(Cells(i, 1).Value, vbMonday)
            saat = Hour(tar)
            Select Case gun
                Case 1 To 5
                    If saat > 15 Then tar = tar + 1
                Case 6
                    If saat > 11 Then tar = tar + 2
                Case 7
                    tar = tar + 1
            End Select
            Cells(i, 2).Value = Day(tar)
            Cells(i, 3).Value = Month(tar)
        End If
    Next i
End Sub

Çözüldü Verilen tarih ve saate göre Gün bulma

PERİHAN

veyselemre