cara di atas akan menjawab 3 pertanyaan yang anda sampaikan
Salam,
Miss Jan Raisin,
Mau tanya boleh? (boleh yaaaa.....)
Next problem...
- Setelah saya modifikasi sedemikian rupa -
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long, getDays As String
Application.ScreenUpdating = False
getDays = Format(Date, "dd")
lRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Set rgHasil = Sheet2.Range("w2:w" & lRow)
For Each rng In rgHasil
lHasil = rng.Row
If Sheet2.Range("v" & lHasil).Value < getDays Then
rng.Value = DateSerial(Year(Date), Month(Date), Range("v" & lHasil).Value)
Else
rng.Value = DateSerial(Year(Date), Month(Date) - 1, Range("v" & lHasil).Value)
End If
Next rng
MsgBox "Done update PTD", vbInformation, "Message"
Application.ScreenUpdating = True
Pertanyaannya :
1. Pada saat saya action macronya, ternyata semua value yang ada di kolom W2-W4 pada sheet("After") sudah normal, namun kolom W5 sheet("After") sampai seterusnya menjadi 30-09-2013 dan 30-08-2013, ini kenapa ya?
2. Untuk variable 'rng', ini mengapa menunjukkan tanggal 30-09-2013 ?
3. Agak sedikit linglung juga, kenapa loopingnya hanya mencapai di kolom W4, namun di kolom W selanjutnya malah tidak berjalan...
Terima kasih.
-aji-
__._,_.___
Tidak ada komentar:
Posting Komentar