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. 2012/5/11 achmad adi <dido...@ymail.com> > ** > > > selamat siang, > para sesepuh excel > > mohon koreksi untuk makro yang saya buat,,,, > dimana dalam USERFORM terdapat OPTION BUTTON untuk > menentukan VALUE disimpan menurut pilihan OPTTION BUTON TERSEBUT,,, > > > >