Catetan

MEMBUAT INPUT SHEET FORM 11

Akhirnya ada waktu luang untuk membuat postingan lagi, dan sekarang kembali lagi posting hal yang berkaitan dengan excel.

Biasanya aku membuat posting excel mengenai entry data dengan userform, tetapi untuk posting kali ini, aku membuat entri data worksheet.

Pada input di worksheet ini aku memakai beberapa validasi pada worksheet diantaranya, pada kategori input email aku memakai validasi supaya user harus melakukan input kata-kata yang ada tanda @, rumus validasinya,
=NOT(ISERROR(FIND("@",D7,1)))

kemudian pada kategori input no telepon aku memakai validasi, supaya hanya number saja yang bisa diinput, rumus validasinya.
=ISNUMBER(F5)
sisanya hanya validasi standar, yaitu hanya berdasarkan validasi list.

Untuk kode makronya sendiri bisa dilihat dibawah ini
Option Explicit
Sub inputsheetform()
    
Dim ws As Worksheet
Dim anum As Long
Dim nextRow As Long
Dim i As Long
Dim rng1 As Range
Dim rngCp As String
Dim rng2 As Range
    
rngCp = "D5,D7,F5,F7,G7,H7" 'range input cell
Set ws = Sheets("input")
nextRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Offset(1, 0).Row
anum = ws.Cells(ws.Rows.Count, "B").End(xlUp).Offset(1, 0).Row

'peringatan apabila cell input ada yang kosong
With ws
    Set rng1 = .Range(rngCp)
    If Application.CountA(rng1) <> rng1.Cells.Count Then
        MsgBox "Input Form diisi semua yach...!"
        Exit Sub
    End If
End With

'melakukan input data
With ws
'membuat auto number
    If IsEmpty(.Range("B18")) Then
        .Range("B18") = 1
    Else
        .Range("B" & anum).Value = .Range("B" & anum).Offset(-1, 0) + 1
    End If
'input data sesuai range input cell
    i = 3
    For Each rng2 In rng1.Cells
        .Cells(nextRow, i).Value = rng2.Value
        i = i + 1
    Next rng2
End With
    
'menghapus content di cell input
With ws
    On Error Resume Next
    With .Range(rngCp).Cells.SpecialCells(xlCellTypeConstants)
        .ClearContents
        Application.GoTo .Cells(1)
    End With
    On Error GoTo 0
End With
End Sub
Nach demikianlah postingan ini berakhir, mudah-mudahan ada manfaatnya.
Seperti biasa kalau mau lihat contoh file-nya bisa di DOWNLOAD disini

11 comments:

JoeyL

24 Feb 2011, 20.07.00
Terima kasih banyak atas referensinya.
Tapi bisakah excel formula ini dipakai di blog?
Saya mau membuat jawaban pilihan ganda yg akan dipakai untuk banyak orang..

Terima kasih.
masyoel2002@yahoo.com
karsono

1 Mar 2011, 10.47.00
@JoeyL : untuk formula diatas tidak bisa dipake buat bikin pooling, kalau mo bikin pooling, bisa langsung pasang dari web ini http://booroo.com/
Anonim

21 Mar 2011, 13.52.00
saya buta sekali nih, tapi pengen bikin form di excell untuk mendata cuti karyawan dll di divisi aku aja, gmn sih cara bikinya dari awal banget, pleaseee....


makasih banyak bantuannya ya
ariy@cimbniaga.co.id
wawan

1 Apr 2011, 10.05.00
mas, di update donk smua url downloadnya...
karsono

1 Apr 2011, 16.51.00
Siap Bos... sementara beberapa dulu yach...
karsono

1 Apr 2011, 16.51.00
link diatas sudah diupdate
wawan

1 Apr 2011, 18.50.00
mas cara mas bikin list tanggal bln n thn itu gimana ? pake activeX or Form Control, coz sy liat gak ada tuh.. makasih sebelumnya
wawan

11 Apr 2011, 07.12.00
mas, saya mau nanya, gimana kalo untuk input No Telp atau Emailnya lebih dari satu...gimana untuk looping berikutnya mas ? ada ide ? saya mengalami kesulitan saat mau meng-input data berikutnya....
Anonim

10 Mei 2011, 10.43.00
mas saya mua nanya, gimana caranya bikin tombol selanjutnya dan tombol berikutnya (didalam microsoft visual basic listing programnya gmana) berdasarkan record yang sudah di input di excel, mohon pncerahnny,pleaseee....


makasih banyak atas bantuannya ya
aa.nain@yahoo.co.id
Kobas Ekspedisi

25 Mei 2011, 21.32.00
tombol command "OK" pake apa ? yang menjadi coding untuk command itu yang mana?
trus kalo database lain sheet sama form bisa gak ?
mananya yang harus di rubah...?
terima ksih newbi banget
email: megahpon@gmail.com
thax pak
Mas Bach

20 Jan 2015, 14.04.00
aplikasi form input nya keren mas, simpel tapi powerful. mau tanya jika ada beberapa data yang boleh kosong/tidak diisi, bagian mana nya harus diubah rumusnya?

terima kasih sebelumnya.
@pelatab

Posting Komentar