Hai Shenly, Macro yg anda buat adalah untuk mengcopy bukan memindahkan data. Jika anda mengcopy data maka sumber datanya tentu tidak akan hilang (kosong) kecuali dihapus. Untuk menghapus sumber data (tdk tmsk format) anda bisa menggunakan clearcontents. Posisi cell pointer bisa berada pada sheet asal bisa juga pada sheet tujuan. Sila coba kedua2nya.
Salam, HK Sent from Samsung MobileShenly Ruchman <[email protected]> wrote:Assalamualaikum..master... saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form input sederhana, tapi yang jadi masalahnya ketika sudah saya input data dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan, bagaimana caranya agar data dalam form ketika sudah saya input, maka data tersbt langsung hilang, macronya seperti ini master : Sub Pindahan() Dim nama, alamat As String Dim BarisTerakhir, BarisTujuan As Integer With Worksheets("Sheet Asal") nama = .Cells(2, 2).Value alamat = .Cells(3, 2).Value End With With Worksheets("Sheet Tujuan") BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row BarisTujuan = BarisTerakhir + 1 .Cells(BarisTujuan, 1).Value = nama .Cells(BarisTujuan, 2).Value = alamat End With End Sub
