Oops, karena ga ada values selain tanggal, yang warna merah dihapus saja.

Salam,
HK

----- Forwarded Message -----
From: hendrik karnadi <[email protected]>
To: "[email protected]" <[email protected]> 
Sent: Wednesday, 28 August 2013, 23:41
Subject: Re: [belajar-excel] Input Data dari sheet isian ke Sheet Data
 


  
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 Sub

File 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


 

Attachment: Coba Register Aplikasi Masuk.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke