Cara Mudah Membuat Form Input dengan Chexbox

Cara Mudah Membuat Form Input dengan Chexbox

Kode input

Pastekan pada CommandButton1

Private Sub CommandButton1_Click()

Dim irow As Long

irow = Worksheets("sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 1).Row

Worksheets("sheet1").Cells(irow, 2).Value = TextBox1.Value

Worksheets("sheet1").Cells(irow, 3).Value = TextBox2.Value

Worksheets("sheet1").Cells(irow, 4).Value = TextBox3.Value

If CheckBox1.Value = True Then Cells(irow, 5).Value = CheckBox1.Caption

If CheckBox2.Value = True Then Cells(irow, 6).Value = CheckBox2.Caption

If CheckBox3.Value = True Then Cells(irow, 7).Value = CheckBox3.Caption

End If

End Su

Unduh sampel file xlsm >>>> disini


Demikian semoga bermanfaat dan dapat menjadi inpirasi dan inovasi !!