apa ndak lebih gampang (bagi yg mau menanggapi) kalau "bendanya" di lampirkan kemareee... ???
----- Original Message ----- From: Fandy Rasyid To: [email protected] Sent: Saturday, October 31, 2009 04:13PM Subject: Re: [belajar-excel] Pembuatan Login dan Pengisian Form Dear Mbak siti mbak saya sudah tes dan berhasil mbak saya bisa login dengan menyembunyikan password dan hasil inputannya pun bisa mencari baris yang kosong, saya ada pertanyaan lanjutan didalam form tersebut saya menggunakan 1. combo box untuk menampilkan data seperti Jenis : Harian, Mingguan, Bulanan, dsb 2. text box untuk data jumlah kerja 3. Text Box untuk Jumlah kerja hasil konversi sebenernya didalam macro ini bisa tidak saya menampilkan hasil perhitungan misalnya begini pas saya memilih jenis Harian maka di kolom text box untuk data jumlah kerja maka di text box jumlah kerja hasil konversi muncul hasil saat ini saya membuat fungsinya menggunakan rumus if; jadi if cmdpembayaran.text="Harian" then txtjml.text=cdbl(txthari)*1 else if cmdpembayaran.text="Mingguan" then txtjml.text=cdbl(txthari)/7 end if end if mbak saya menggunakan rumus ini dan berhasil hanya saja ada kekurangannya pada saat di form text box harinya saya hapus maka dia akan menjadi error itu harusnya bagaimana ya mbak, mohon petunjuknya? regards fandy if cmdjenis= --- On Thu, 10/22/09, siti Vi <[email protected]> wrote: Mungkin begini: 1 TABEL YG KOKOH dan BAIK Sheet Master Pegawai Judul Kolom tabel di baris 6 dan 7 sebaiknya tidak dibuat MERGED CELL., biarkan sebagai Cells yg SEHAT. (mau dipakai sbg patokan baris kosong yg harus diisi bukan !?) Setelah di-UnMerged, Judul Kolom akan berada di baris 6 Baris data akan dimulai ditulis di baris 7 (PojokKiriAtas Data ada di C7) Ini harus saya katakan di sini karena ada hubungannya dengan point 3. yaitu mencari nilai iRow dan TxtNo. 2. KARAKTER PASSWORD pada module UserForm LOGIN tambahkan prosedur Private Sub UserForm_Initialize () TXTPASS.PasswordCha r = "*" End Sub 3. INPUT KE TABEL AGAR SELALU MENCARI BARIS BARU pada Module UserForm FRMINPUT (a) pada prosedur UserForm_Initialize : Private Sub UserForm_Initialize () Dim r As Integer, ws As Worksheet, c As Byte, darr() Set ws = Worksheets(" Master Pegawai") txtNo.Value = ws.Cells(Rows. Count, 3).End(xlUp). Row - 6 (b) pada PROSEDUR CmdInput_Click Private Sub CMDINPUT_Click( ) Dim irow As Long, ws As Worksheet Set ws = Worksheets(" Master Pegawai") irow = ws.Cells(Rows. Count, 3).End(xlUp). Offset(1, 0).Row
