Mencari Tanggal Kosong

Bagaimana mencari Tanggal kosong dari rangkaian tanggal yg sudah ada dengan mengecualikan hari sabtu dan minggu.

Sub Carikosong()
'----------------------------------------------------
' Sctipt VBA  : Mencari Tanggal Kosong
' Author      : https://vba.co.id
'               Situs belajar VBA No.1 di Indonesia
'----------------------------------------------------

Dim TglAda As Range, BerapaBanyak As Integer
Dim WF As WorksheetFunction, tglAwal As Date

Set WF = Application.WorksheetFunction
Set TglAda = Range("F2:F19")            'tgl yg sudah ada
BerapaBanyak = 2                        'Mau Berapa tgl
tglAwal = #4/3/2023#                    'Dari Mulai Kapan

For i = 1 To BerapaBanyak
    Cells(2 + j, "D").Value = WF.WorkDay_Intl(tglAwal, i, 1, TglAda)
    j = j + 1
Next

End Sub
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search