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