Ini macronya,
Sub InputData()
Sheets("Input").Range("B1:B5").Copy'data yang akan dicopy
Sheets("Data").Select'sheet tujuan
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True 'copas Value
Transpose pada baris baru
Application.CutCopyMode = False 'membatalkan copy
Sheets("Input").Select 'kembali ke sheet Input
End SubFile terlampir. Setelah selesai Input klik si Emon. Salam, HK ________________________________ From: harry budiman <[email protected]> To: belajar-excel <[email protected]> Sent: Wednesday, 28 August 2013, 23:09 Subject: [belajar-excel] Input Data dari sheet isian ke Sheet Data Salam hormat guru2 sekalian, Saya mencoba belajar membuat perintah macro step by step dari buku namun karena sagat awam dengan bahasa vb saya kebingungan Contoh data yang ingin saya kerjakan seperti terlampir, ketika saya input data di sheet input maka dengan menekan Ctrl+t atau tombol input data tesebut akan pindah ke sheet Data Mohon pencerahannya terima kasih sebelumnya atas bantuan guru sekalian wassalaam Harry
Coba Register Aplikasi Masuk.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
