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 <[email protected]>
> **
>
>
> 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,,,
>
>
>
>
