Buat event workbook open :
>> ke VBE -> object ThisWorkbook -> lihat lembar kanannya -> pilih combobox
kiri : workbook -> pilih combobox kanan : open
Isi dengan :
Dim rng As Range, rngTgl As Range
Dim lFail As Long
Dim dtKini As Date
Set rngTgl =
Sheet1.Range("d3").Resize(WorksheetFunction.Count(Sheet1.Columns("d:d")))
dtKini = Date
lFail = 0
For Each rng In rngTgl
If rng.Value < dtKini Then
If LenB(rng.Offset(0, 1).Value) = 0 Then
lFail = lFail + 1
End If
End If
Next rng
If lFail <> 0 Then
MsgBox lFail & " record(s) dengan LS kosong", vbExclamation, "Pesan"
Else
MsgBox "OK", vbInformation, "Pesan"
End If
Wassalam,
Kid.
2012/6/22 Leonardo Endry widodo <[email protected]>
> **
>
>
> Setelah workbook dibuka, script akan mulai membaca tabel dan bila ada cell
> yg kosong (B2,B2) (contoh tabel dibawah) dengan cell menunjukkan tanggal
> kemarin atau 2 hari lalu (A2,A2) atau (A3,A3) dan alert akan muncul
>
> logika sederhananya
> JIKA tanggal hari ini ( tanggal 22 Juni ) > tanggal hari ini( tanggal 22
> Juni) - 1 DAN cell B2 bernilai kosong MAKA Message alert akan muncul dengan
> informasi terdapat nomor LS yg belum diinput atau belum di release dan JIKA
> tidak ada yg cocok dengan kriteria diatas Message alert akan
> menginformasikan OK
>
> ------------------------------
> **
>
