coba pake ini? .Rows(Format(Pos + 1, "0") & ":" & Format(Pos + 1, "0")).Select .Selection.Copy .Rows(Format(Pos + 2, "0") & ":" & Format(Pos + 2, "0")).Select 'tujuan .ActiveSheet.Paste .Application.CutCopyMode = False 'matikan kotak copy excel
yusuf rahmat hidayat pt indah kiat pulp and paper, tbk it-software 0254-280088 ext 4038 "Budi Aditya" <[EMAIL PROTECTED]> 08/06/2008 12:36 PM Sent by: [email protected] Please respond to [email protected] To <[email protected]> cc Subject [indoprog-vb] Insert Empty Rows in Excel from VB Hai Friends, Mohon pencerahan nih, gimana cara insert rows di file excel dari vb Coding saya: .......................... With XlWs For Cnx = 1 To Jrc ProBar = Cnx .Cells(Pos, 1).Value = Cnx .Cells(Pos, 2).Value = RsTest![Nama] .Rows(Format(Pos + 1, "0") & ":" & Format(Pos + 1, "0")).Select .Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove RsTest.MoveNext Pos = Pos + 1 Next End With .................. Hasilnya error : Runtime Error : 438 -- Object doesn't support this property or method.......... Tolong yah.... . [Non-text portions of this message have been removed]
