Membuat Form Entri Data

Agar tampilan file kita tampak lebih Elegan, maka untuk menginput data perlu dibuatkan form input data. Kali ini kita akan membuat form input anggota Koperasi.

1.   Buka lembar kerja baru Ms Excel 

      2.  Ganti  nama Sheet1 dengan AgtBaru dan Sheet2 ganti dengan Agt
     Buat Sheet (Agt) seperti gambar berikut :

     Blok range (A4:A1000), kemudian beri nama range “NoAgt”

     3.    Sedangkan untuk Sheet(AgtBr) seperti gambar berikut :

             Pada Cell (G8) ketikkan rumus berikut : “=Max(NoAgt)+1”

             Pada Cell (G10) ketikkan rumus : “=Now()”

4.       Insert CommandButton, Ubah Captionnya dengan “OK” dan masukkan script berikut :
      Private Sub CommandButton1_Click() 
      Set wsAgt = Worksheets("Agt")

wsAgt.Activate

wsAgt.Range("A5000").Select

ActiveCell.End(xlUp).Select

ActiveCell.Offset(1, 0).Select

ActiveCell.Offset(0, 0).Value = Range("G8").Value

ActiveCell.Offset(0, 1).Value = Range("G9").Value

ActiveCell.Offset(0, 2).Value = Range("G10").Value

Range("F13").Value = ""
End Sub

Tampilan akhirnya seperti gambar berikut :

 

File contoh dapat di download di sini : Membuat Form Input Data