Form Entri Iuran Bulanan

Membuat form entri Iuran Bulanan

Private Sub ComboBox1_Change()

If ComboBox1.Value = ActiveSheet.Range("d7") Then TextBox20.Value = 1

If ComboBox1.Value = ActiveSheet.Range("e7") Then TextBox20.Value = 2

If ComboBox1.Value = ActiveSheet.Range("f7") Then TextBox20.Value = 3

If ComboBox1.Value = ActiveSheet.Range("g7") Then TextBox20.Value = 4

If ComboBox1.Value = ActiveSheet.Range("h7") Then TextBox20.Value = 5

If ComboBox1.Value = ActiveSheet.Range("i7") Then TextBox20.Value = 6

If ComboBox1.Value = ActiveSheet.Range("j7") Then TextBox20.Value = 7

If ComboBox1.Value = ActiveSheet.Range("k7") Then TextBox20.Value = 8

If ComboBox1.Value = ActiveSheet.Range("l7") Then TextBox20.Value = 9

If ComboBox1.Value = ActiveSheet.Range("m7") Then TextBox20.Value = 10

If ComboBox1.Value = ActiveSheet.Range("n7") Then TextBox20.Value = 11

If ComboBox1.Value = ActiveSheet.Range("o7") Then TextBox20.Value = 12

End Sub

Private Sub CommandButton2_Click()

Data = NOMOR.Value

With ActiveSheet.Range("A8:B100")

Set c = .Find(Data, LookIn:=xlValues)

If TextBox1.Value = "" Then

 MsgBox "Bulan Bayar belum diisi", vbCritical

ElseIf Not c Is Nothing Then

BARIS = c.row

a = TextBox20.Value

ActiveSheet.Cells(BARIS, 3).Offset(0, a).Value = TextBox1.Value

End If

End With

CommandButton7_Click

End Sub

Private Sub CommandButton7_Click()

Cari = NOMOR.Value

With ActiveSheet.Range("A8:A500")

Set c = .Find(Cari, LookIn:=xlValues)

If Not c Is Nothing Then

BARIS = c.row

Label16.Caption = ActiveSheet.Cells(BARIS, 4).Value

Label17.Caption = ActiveSheet.Cells(BARIS, 5).Value

Label18.Caption = ActiveSheet.Cells(BARIS, 6).Value

Label19.Caption = ActiveSheet.Cells(BARIS, 7).Value

Label20.Caption = ActiveSheet.Cells(BARIS, 8).Value

Label21.Caption = ActiveSheet.Cells(BARIS, 9).Value

Label22.Caption = ActiveSheet.Cells(BARIS, 10).Value

Label23.Caption = ActiveSheet.Cells(BARIS, 11).Value

Label24.Caption = ActiveSheet.Cells(BARIS, 12).Value

Label25.Caption = ActiveSheet.Cells(BARIS, 13).Value

Label26.Caption = ActiveSheet.Cells(BARIS, 14).Value

Label27.Caption = ActiveSheet.Cells(BARIS, 15).Value

 End If

End With

End Sub

Silahkan di coba 

semoga bermanfaat !!!!

Unduh sampel file xlsm >>>>>   FORM ENTRI IURAN

Dapatkan pula from entri data lainnya :

                     Entri  Data Kependudukan disini >>>>>

form kependudukan

                           APLIKASI KK SEMENTARA  :

  APLIKASI KK SEMENTAR

Aplikasi Siap RT >>> SIAP RT