Wa'alaikumussalam wr wb Hai Andrie,
Baris : Set C = EditMacroA.Find(TextBox1.Value, LookIn:=xlValues) bisa menghasilkan error, yaitu ketika proses Find tidak menemukan yang dicari. Jadi, tidak ada data bertipe string bernilai isi textbox tersebut dalam area pencarian EditMacroA yang nilai-nilai dalam EditMacroA bertipe string. Andaikan area EditMacroA berisi nilai-nilai bertipe numerik atau datetime, maka ubah nilai pencarian yang tadinya string dari textbox menjadi seuatu nilai bertipe numerik atau datetime. Pengubahan menjadi bertipe numerik bisa dengan fungsi seperti (disesuaikan dengan datatype yang dibutuhkan si nilai data) cdbl, cint, clng, cdate, cdec Ketika menggunakan textbox yang bisa diisi bebas oleh user, maka proses pengubahan tipedata bisa emnghasilkan error jika nilai data dalam textbox tidak bisa diubah ke tipedata yang dimaksud. Contoh, di textbox terisi 2014-02-30 atau 17-PEB-2014 tidak bisa diubah menjadi datetime dengan cDate karena tidak ada tanggal berbunyi demikian. Wassalamu'alaikum wr wb Kid 2014-12-16 20:15 GMT+11:00 Andrie Amorius [email protected] [belajar-excel] < [email protected]>: > > > > Assaalam.... > > Dear BeExceller... > Saya doakan dlm keadaan sehat & baik2 aja, amiiinnn... > > Saya mohon bantuannya, saya telah menggunakan script ini: > Set MacroA = Sheets("DATABASE") > Set EditMacroA = MacroA.Range("TANGGAL1") > Set C = EditMacroA.Find(TextBox1.Value, LookIn:=xlValues) > C.Offset(3, 0).Value = TextBox2.Value > C.Offset(4, 0).Value = TextBox3.Value > C.Offset(5, 0).Value = TextBox4.Value > > untuk mengedit(update) data entry dari userform ke database, > permasalahannya adalah: Alur prosesnya: > Userform (edit/update data enty), diteruskan ke => Sheet DataBase yang > akan ditampilkan ke => Sheet hasil untuk dicetak (print) dan kemudiian > disimpan ke => Sheet backup pertanggal entry. > > script apa yg harus saya gunakan untuk proses menyimpan data hasil dari > sheet hasil ke sheet backup... saya modifikasi script diatas tetapi error > jadinya. > > Mohon bantuan para mastah sekalian... > Sebelimnya saya ucapkan bnyk terimakasih... > > Wassalam > -- Andrie Amorius, SE. Ak > Desk Service Quality (DSQ) > PT. Bank Riau Kepri > JL. Dt Setia Maharaja / Parit Indah > Perkantoran Grand Sudirman Blok B 2 > Telp (0761) 7072974 > Pekanbaru - Riau > >
