Hai Fendi,
Hal seperti ini membutuhkan VBA.
Silakan coba step berikut : (Maaf kalau berbeda dengan file aslinya, karena
hanya dilihat dari GDocs)
1. Pada D3 ada formula Count berdasar kolom D sheet sebelahnya. Maka
pastikan format number cell D8 adalah General atau Number dan tidak boleh
Text.
2. Pada D4 tidak ada formulanya, artinya harus diinput oleh user. Jika
ingin dibuat auto, beri formula :
=D3+1
3. Karena filenya adalah xlsx, save as file dengan ekstensi .xlsm atau
.xlsb agar VBA dapat tersimpan dalam file.
4. Klik ribbon (menu) Developer -> lihat grup Controls -> klik Insert ->
lihat bagian *ActiveX *-> pilih Command Button -> gambar kotak di worksheet
5. Pastikan icon Design Mode pada ribbon Developer telah menyala (On)
6. Klik kanan tombol yang terbuat di proses 4 -> pilih properties -> set
sebagai berikut :
>> untuk properti *Name *isinya diganti menjadi cmdSave
>> untuk properti *Caption *isinya diganti menjadi Simpan
akhiri dengan menekan tombol close (x) pada dialog properties
7. Double click tombol tersebut
8. tulis disana script berikut :
range("d4,d6:d11").copy 'copy data
'paste special values di transpose
sheets("kolektif").range("a1").offset( range("d4").value
).pastespecial xlpastevalues, trnaspose:=true
'hapus data yang sudah di save dari sheet input
'jika d4 pakai formula : (aktifkan [hapus karakter ' pada 1 baris
berikut ini])
'range("d6:d11").clearcontents
'jika d4 tidak pakai formula : (aktifkan [hapus karakter ' pada 1
baris berikut ini])
'range("d4:d11").clearcontents
'pesan
msgbox "Saved.",vbinformation,"Simpan Data"
9. kembali ke worksheet (tekan ALT F11)
10. save workbook (ingat, pastikan ekstensinya : .xlsm atau .xlsb atau .xls)
11. silakan coba tekan tombolnya
Wassalam,
Kid.
2012/9/9 Fendi S <[email protected]>
> **
>
>
> Kepada Yth. Para master belajar-excel;@yahoogroups.com
> Tolong bantuannya cara memasukkan data mobil di Sheet "data masuk" yang
> secara otomatis
> akan masuk di sheet kolektif secara terus menerus, seperti fike t\erlampir
> Terima kasih atas penjelasannya
> Salam .
>
>
>
