Memuat
Memuat
Input Form with Save Button for laundry
0 views
Users fill an input form in cells then press Save to append a new row to the Data sheet. Price and category come from Master automatically.

Clean form-based data entry without touching the table directly.
The real project file is available. It is not just the picture above: you get the working file with every formula in place. It can be downloaded after payment, and we send the download link by WhatsApp or email.
ZIP: .xlsx workbook + VBA macro module (.zip)
| Cell | Formula | What it does |
|---|---|---|
| K3 | =IFERROR(VLOOKUP(J3,Master!A:C,2,FALSE),0) | Price preview of the chosen item. |
| K4 | =J4*K3 | Total preview before saving. |
| K5 | =IFERROR(VLOOKUP(J3,Master!A:C,3,FALSE),"") | Category preview of the item. |
The macro module is delivered as a separate Modul_Makro.bas file inside the ZIP. Import it through Alt+F11. A short excerpt:
Sub SimpanData()
Dim wf As Worksheet, ws As Worksheet, wm As Worksheet, r As Long, hrg As Variant, kat As Variant
Set wf = ThisWorkbook.Sheets("Dashboard")
Set ws = ThisWorkbook.Sheets("Data")
Set wm = ThisWorkbook.Sheets("Master")
If Trim(wf.Range("J3").Value) = "" Or Val(wf.Range("J4").Value) <= 0 Then
MsgBox "Isi item dan qty dengan benar.", vbExclamation
Exit Sub
End If
hrg = Application.VLookup(wf.Range("J3").Value, wm.Range("A:C"), 2, False)
kat = Application.VLookup(wf.Range("J3").Value, wm.Range("A:C"), 3, False)
If IsError(hrg) Then MsgBox "Item tidak ada di Master.", vbCritical: Exit Sub
r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
ws.Cells(r, 1).Value = wf.Range("J2").Value
ws.Cells(r, 2).Value = wf.Range("J3").Value
ws.Cells(r, 3).Value = kat
ws.Cells(r, 4).Value = wf.Range("J4").Value
ws.Cells(r, 5).Value = hrg
ws.Cells(r, 6).Value = wf.Range("J5").Value
ws.Cells(r, 7).Formula = "=D" & r & "*E" & r
MsgBox "Data tersimpan di baris " & r, vbInformation
End SubColumns of the Data sheet:
| Laundry Service | Price |
|---|---|
| Wash and Iron per Kg | 7,000 |
| Wash and Fold per Kg | 5,000 |
| Iron Only per Kg | 4,000 |
| Express 6 Hour Wash per Kg | 12,000 |
| Blanket per Piece | 25,000 |
| Bed Sheet Set | 20,000 |
| Suit or Blazer | 30,000 |
| Sneakers Cleaning | 35,000 |
| Large Stuffed Toy | 25,000 |
| Pickup and Delivery | 10,000 |
The sample data is synthetic.
Yes. The picture above is only a preview. After payment we send the download link of the real project file (a ZIP containing the .xlsx workbook and the macro module) by WhatsApp or email.
No. The sample data is synthetic and only shows how the formulas behave. Replace it with your own data and the formulas keep working.
Yes, as a separate order. Message us on WhatsApp with a short description of your columns and what you want to see.
Sample data is synthetic. Excel is a trademark of Microsoft Corporation.
Back to Excel portfolio