hai Aji.. jadi keingat sama mas Aji Mumpung yang di rumah [?][?][?]
buka worksheet excel dan VBE secara berdampingan, lalu coba dicek sendiri dulu dengan cara menekan tombol F8 berkali-kali, dan lihat setiap perubahan yang terjadi baik di worksheet maupun di VBE, kalo di VBE dengan cara meletakan kursor di setiap variabel. cara di atas akan menjawab 3 pertanyaan yang anda sampaikan untuk pertanyaan berikutnya tolong lampirkan sample workbook yang sudah dimodifikasi.. agar BeExceller dapat melihat kesalahan yang terjadi. Salam, -Miss Jan Raisin- Pada 24 Oktober 2013 18.10, <[email protected]> menulis: > ** > > > 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- > > >
<<327.gif>>
