bisakah dikirim sample workbooknya? mungkin akan memperjelas kasus yang ditanyakan
salam, -Miss Jan Raisin- Pada 24 Oktober 2013 12.24, <[email protected]> menulis: > ** > > > Pak Hendrik, > > > Terima kasih untuk codenya. > > Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill > nya. Bugnya seperti ini : "AutoFill method of Range class failed" > > > itu kenapa ya pak? > > Terima kasih kembali atas bantuan dan penjelesannya. > > > Berikut codenya : > > *Success Code :* > > Dim iRow As Long > > iRow = Cells(Rows.Count, "A").End(xlUp).Row > > Range("W2").Select > > ActiveCell.FormulaR1C1 = _ > > > "=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))" > > Selection.AutoFill Destination:=Range("W2:W" & iRow) > > > *After Modified Codes :* > > Dim Irow As Long > > Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row > > shDB_CP.Range("W2").FormulaR1C1 = _ > > > "=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))" > > Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow) > > MsgBox "Done", vbOKOnly, "Information" > > > Penjelasan : > > shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open > workbook > > > ---In [email protected], <[email protected]> > wrote: > > Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row > mengambil baris terakhir yang ada isinya. > > Salam, > HK > > >
