Karena script penulis data belum sampai menulis ke kolom *A* (kolom *1*), maka hasilnya demikian akibat baris script berbunyi : BarisTerakhir = .Cells(.Rows.Count, *1*).End(xlUp).Row
Jika Anda sudah menambah baris penulisan (merah dan biru tadi) sampai semua kolom di sheet DATABASE terisi setiap klik Print, maka hal itu tak akan terjadi lagi. Jika memang Anda hanya ingin mengisi kolom 4 dan 5 saja, maka ganti *1*dengan 4 atau 5 misal : BarisTerakhir = .Cells(.Rows.Count, *4*).End(xlUp).Row Wassalamu'alaikum Wr. Wb. Kid. 2013/4/14 muhammad saini <[email protected]> > ** > > > salam untuk semua.. > terima kasih atas semua perhatian guru2 semua.. > > sebelumnya saya minta maaf, karena baru gabung dan baru belajar vba.. > jadi masih sangat bingung, namun saya ingin sungguh2 belajar.. > > pada file yang pertama saya lampirkan, scripnya hasil copy paste dan hanya > saya edit sedikit > sesuai dengan kemampuan saya.. > setelah mendapat balasan dari mr.kid dan saya coba ikuti ternyata ada > kemajuan walau masih agak bingung.. > > ketika saya klik print, muncul layar print preview dan data yang berada > pada sheet form dapat tersimpan > pada sheet database..tapi ketika saya klik untuk kedua dan seterusnya, > data tersebut tidak tersimpan lagi.. > hanya pada baris pertama saja yang ada isinya, sedangkan baris selanjutnya > tidak tersimpan.. > > saya lampirkan hasil usaha saya.. > > wassalam.. > > saini > > ------------------------------ > *Dari:* Mr. Kid <[email protected]> > *Kepada:* BeExcel <[email protected]> > *Dikirim:* Minggu, 14 April 2013 22:45 > *Judul:* Re: [belajar-excel] simpan data dengan command buttun > > > 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 > > > > > >
