Dear Miss Jan Raisin (dlm arti bahasa jawanya "Mba yang ga pernah malu"),
Hehehe, pas dicoba ternyata paham knp bisa error dan bermasalah.
jadi saat menjalankan macronya, ternyata nilai valuenya terlihat dengan jelas semua.
makasih Miss Jan Raisin.
Inget Aji Mumpung yang drmh miss?
Waaaahhhh... 0_0 :-D
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
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