Re: ]] XL-mania [[ Isian Form Otomatis

Thanks mbak CTV,

Nggak apa-apa juga sih bila tak pakai makro.

Hanya ada sedikit tambahan pertanyaan mbak, sebenarnya form tsb hanya merupakan sub dari pengisian 

form yang sebenarnya.

Pada program pengisian tsb telah digunakan WorkSheet_Change(ByVal Target As Range), sbb :

Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range, cell As Range On Error GoTo ErrHandler Set r = Me.Range("$B$9") Application.ScreenUpdating = False Application.EnableEvents = False For Each cell In r hid -----> adalah Sub program untuk memprotect beberapa Cell yang tidak difungsikan sementara. Next Range("D10").Select Application.CutCopyMode = False ErrHandler: Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Pertanyaan saya, begini mbak :

1. Mengapa setiap saya input pada Cell Sheet tsb. setiap saya isikan nilai pada tabel, maka secara otomatis 

Cursor saya selalu lari lompat ke Range("D10").

2. Bisa tidak mbak setiap saya mengisikan data pada tabel form tsb. Cursor tetap di cell isian active dan jangan lari

ke Range("D10"), bagaimana mbak cara menonAktivkan otomatis ini untuk sementara saat saya mengisikan data.

Demikian mbak CTV, pertanyaan tambahannya.

Mohon maaf lahir & batin, dan Thanks atas supportnya.

Salam

---

From: STDEV(i) <setiyowati.devi@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Thursday, July 28, 2011 5:48 PM
Subject: Re: ]] XL-mania [[ Isian Form Otomatis

Kalau tanpa makro tidak boleh ya pak

Tapi mohon dicoba dulu

select range yg  akan dipasangi susuk Validasai_Data

Data >> Validation >> Allow : Whole Number (bilanganBulat) >> Min =0, MAX =1

2011/7/27 alwi abdurrahman <alwi.abdurrahman@yahoo.com>

Dear all para pakar XL-mania yang saya hormati,

Untuk kesekian kalinya saya mohon bantuannya untuk memperbaiki isian Form secara Otomatis, sebagaimana File yang terlampir.

Objective yang saya harapkan sbb :

1. Isian pada Form hanya bernilai 1 atau 0.

2. Isian hanya diperbolehkan pada Range("B4:I13")

3. Bila isian tidak sama dengan 0 atau 1, maka muncul warning.

4. Warning dan protection tsb dimunculkan oleh system secara otomatis.

5. Diharapkan otomatisasi tsb dibuat dengan VBA.

Demikian permohonan dari saya, semoga dapat terbantu.

Atas perhatian dan bantuan para pakar XL-mania, diucapkan terimakasih.

Regards