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 <[email protected]>
> **
>
>
> 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. <[email protected]>
> *Kepada:* [email protected]
> *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.
>
>
>
>
