Pak Saini,
Script berbunyi :
Private Sub CommandButton1_Click()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
* With Worksheets("form")
nama = .Cells(6, 9).Value
alamat = .Cells(7, 9).Value
End With*
With Worksheets("DATABASE")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
* .Cells(BarisTujuan, 4).Value = nama
.Cells(BarisTujuan, 5).Value = alamat*
End With
End Sub
baru berisi proses menulis *2 item input* ke *2 fields tabel data*
Silakan ditambah lagi untuk nilai data lainnya, dan lakukan hal yang mirip.
Yang *merah *adalah membaca data dan menyimpan ke variabel tertentu (dalam
hal ini nama dan alamat) dari cells tertentu.
Yang *biru *adalah menulis nilai tertentu (dalam hal ini yang tersimpan
dalam variabel nama dan alamat) ke suatu tempat tertentu (dalam hal ini ke
cells tertentu.
Jika script di atas akan dibuat sebaris setiap item ke field datanya :
Private Sub CommandButton1_Click()
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("DATABASE")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
* .Cells(BarisTujuan, 4).Value = **Worksheets("form")**.Cells(6,
9).Value
.Cells(BarisTujuan, 5).Value = ** **Worksheets("form")**.**Cells(7,
9).Value*
'tambahkan disini baris-baris script untuk ambil dari sheet Form
cell tertentu (r,c)
'dan ditulis ke kolom tertentu di sheet DATABASE pada nomor baris
yang tersimpan dalam variabel *BarisTujuan*
'misal :
* .Cells(BarisTujuan, 2).Value = ** **Worksheets("form")**.**Cells(3,
13).Value* 'sheet Form range M3 ke sheet DATABASE kolom B
'bisa juga dengan cara :
* .Cells(BarisTujuan, 2).Value = **
**Worksheets("form")**.**Range("m3").Value
*'sheet Form range M3 ke sheet DATABASE kolom B
End With
'setelah di simpan semuanya (ditambah banyak baris script sampai semua
inputan tersimpan),
'dilakukan print
sheets("form").printpreview 'ganti printpreview dengan printout untuk
cetak
End Sub
Wassalam,
Kid.
2013/4/14 muhammad saini <[email protected]>
> **
>
>
> selamat malam..
>
> salam kepada teman2,suhu,master dan guru2 semua..
>
> senang sekali bisa bergabung dengan mailis ini.karena banyak ilmu
> yang dibagi dengan iklas hati.
> mudah2an ilmunya semakin bertambah..
>
> karena baru mengenal vba..jadi masih terlalu bingung untuk mengerti..dan
> jangan
> sampai tersesat lebih jauh lagi, mohon
> kepada teman2 dan guru2 di mailis mau berbagi ilmu..
>
> command button yang saya buat, sudah berfungsi..data yang saya
> ketik di sheet form dapat tersimpan pada sheet database..
> namun hanya satu kali..untuk selanjutnya tidak mau tersimpan lagi..
> contoh yang saya ambil hanya dua cell..namun sebenarnya data yang
> ingin saya simpan adalah cell yang ada kotak merah..
>
> mohon kepada guru2, untuk dibantu..
>
> atas bantuan dan ilmu'a saya ucapkan banyak terima kasih..
>
> wassalam
>
> saini
>
> Not: terima kasih kepada pak moderator yang telah membantu memberi
> petunjuk kepada saya
>
>
>
