hmmm...
kalo ndak salah, kondisinya hanya ada 2, yaitu :
A. tanggal data = tanggal hari
ini
-> expired (kalau tanggal data < tanggal hari ini bagaimana ?)
B. tanggal data > tanggal hari ini DAN tanggal data < tanggal hari ini +
7 -> akan expired (kalau lebih dari tanggal hari ini + 6 gimana ?)
Coba begini:
Dim rDates As Range
Dim x As Variant
Dim y As Variant
Dim z As Variant
*Dim o As Integer*
With Sheet3
Set rDates = .Range(.Cells(11, 7), .Cells(.Rows.Count, 7).End(xlUp))
End With
y = "Date Supplier -> No. Document"
ListBox1.AddItem y
ListBox2.AddItem y
Assalamualaikum.
Dear Teman-Teman Be-Exceller,
Saya ada kendala di panjangnya script berikut,
nah rencana saya mau looping untuk bagian berwarna biru.
Mohon bantuan idenya.
Berikut Scriptnya :
'credit to Slamet @ belajar-excel@yahoogroups.com
'Adjustment Heri Pamungkas
Private Sub UserForm_
3 matches
Mail list logo
