Buat event UserForm Initialize
Kemudian isi dengan :
if lenb( sheets("dataentri").range("b6").value ) <> 0 then
txttgl.enabled=false
txtmris.enabled=false
endif
Wassalam,
Kid.
2012/5/15 achmad adi <[email protected]>
> Trimakasih banyak ats bantuannya Mr. Kid.
> ini ada satu lagi,,,hee,,
> untuk menonaktifkan Teks Box ( txtTGL )
> Teks Box ( txtMRIS )
> setelah Penginputan data Pertama...
> teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
> tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
>
> If Trim(txtJUMLAH.Value) = "" Then
> txtJUMLAH.SetFocus
> MsgBox " masukan Jumlah mriss !!"
> Exit Sub
> End If
>
> Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box
> Jumlah
>
> *Dari:* Kid Mr. <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Selasa, 15 Mei 2012 1:05
>
> *Judul:* Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>
>
> Jadi kasus Option Control Object sudah kelar.
> Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang
> detil disertai contoh hasil dan contoh filenya.
> Jangan lupa batas file dimilis diusahakan maksimal 250KB.
>
> Wassalam,
> Kid.
>
>
>
