Oh error ya... Coba pastikan hanya beberapa baris yang dimulai dari 'copy data dan baris penulisan ke cell saja yang diganti. Kayanya gak mungkin kalau errornya variable not defined.
Jadi, Public Sub bla...... dim bla .... .... 'copy data ws.... ws... ws... ..... ..... ..... end sub yang warna merah ganti dengan : 'cari option button yang dipilih Dim lOpt As Long, lCol As Long For lOpt = 1 To 9 If Controls("OB" & lOpt).Value Then lCol = 3 + lOpt Exit For End If Next lOpt 'posisi data baru (baris excel) iRow = Evaluate("=Count(dataentri!b:b)") + 6 'copy data ws.Cells(iRow, 2).Value = Me.txtTGL.Value ws.Cells(iRow, 3).Value = Me.txtMRIS.Value ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value Kemudian, fungsi Evaluate digunakan untuk mengkalkulasi suatu ekspresi formula. Jadi Evaluate("=Count(dataentri!b:b)") adalah proses mengkalkulasi formula =Count(dataentri!b:b) Sedangkan kegunaan dari iRow = Evaluate("=Count(dataentri!b:b)") + 6 adalah mendapatkan 'posisi data baru (baris excel) dengan Syarat dan ketentuan berlaku Wassalam, Kid. 2012/5/13 achmad adi <dido...@ymail.com> > ** > > > sih sebelumnya Mr. Kid atas koreksi dan bantuannya > setelah dijalankan error.. > > Compile error: > Variable not defined > > iRow = Evaluate("=Count(dataentri!b:b)") + 6 > > maksudnya bagaimana? > > > > ------------------------------ > *Dari:* Kid Mr. <mr.nm...@gmail.com> > *Kepada:* belajar-excel@yahoogroups.com > *Dikirim:* Sabtu, 12 Mei 2012 15:52 > *Judul:* Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN > > > Asumsi : (sesuaikan script jika ada yang tidak sama dengan asumsi) > 1. Nama option button di userform selalu diawali 'OB' diakhir angka > berurutan sesuai posisi kolom di worksheet > 2. data tanggal selalu bertipe datetime > 3. nama sheet 'dataentri' > 4. tabel hasil mulai baris 6 > 5. kolom penulisan data mulai kolom B (kolom ke-2) > > Ganti script dalam prosedur event click milik tombol Tambahkan (cmdTambah) > bagian copy data menjadi : > 'cari option button yang dipilih > Dim lOpt As Long, lCol As Long > > For lOpt = 1 To 9 > If Controls("OB" & lOpt).Value Then > lCol = 3 + lOpt > Exit For > End If > Next lOpt > > 'posisi data baru (baris excel) > iRow = Evaluate("=Count(dataentri!b:b)") + 6 > > 'copy data > ws.Cells(iRow, 2).Value = Me.txtTGL.Value > ws.Cells(iRow, 3).Value = Me.txtMRIS.Value > ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value > > Wassalam, > Kid. > > > >