Langsung ke konten utama

DOWNLOAD SCRIPT BUAT TRANSAKSI SIMPAN PINJAM DENGAN VBA EXCEL

Namai TexkBox dengan kode pada perintah batal
Contoh txtNIK.Value = "" berarti textboxnya txtNIK
Untuk perintah BATAL kode VBAnya 


Private Sub cmdBatal_Click()
txtNIK.Value = ""
cboRST.Value = ""
TxtNOANG.Value = ""
TxtTGA.Value = ""
txtNM.Value = ""
txtTMP.Value = ""
txtTGL.Value = ""
txtJR.Value = ""
txtKC.Value = ""
TxtANG.Value = ""
TxtJAM.Value = ""
cboBANK.Value = ""
txtNOBANK.Value = ""
TxtBAYARDI.Value = ""
txtKJ.Value = ""
txtTGLP.Value = ""
TxtPINJ.Value = ""
optLAMA.Value = ""
optBARU.Value = ""
optDINAS.Value = ""
optPENSIUNAN.Value = ""
optUMUM.Value = ""
optATM.Value = ""
TxtKE.Value = ""
txtHP.Value = ""
Cbobayar.Value = ""
TxtGaji.Value = ""
JMGAJI.Value = ""
End Sub
Untuk perintah ANGGOTA BARU
Private Sub cmdInput_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim CellTujuan As Long
If txtNIK.Value = "" Then
    MsgBox "NOMOR masih kosong", vbOKOnly
    txtNIK.SetFocus
    Exit Sub

ElseIf txtNM.Value = "" Then
    MsgBox "NAMA masih kosong", vbOKOnly
    txtNM.SetFocus
    Exit Sub
   
    Exit Sub
End If


With Worksheets("DATA")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("DATA").Cells(CellTujuan + 1, 1).Value = CellTujuan
Worksheets("DATA").Cells(CellTujuan + 1, 2).Value = (cboRST.Value + TxtNOANG.Value)
Worksheets("DATA").Cells(CellTujuan + 1, 3).Value = txtNIK.Value
Worksheets("DATA").Cells(CellTujuan + 1, 4).Value = cboRST.Value
Worksheets("DATA").Cells(CellTujuan + 1, 5).Value = TxtNOANG.Value
Worksheets("DATA").Cells(CellTujuan + 1, 6).Value = TxtTGA.Value
Worksheets("DATA").Cells(CellTujuan + 1, 7).Value = txtNM.Value
Worksheets("DATA").Cells(CellTujuan + 1, 8).Value = txtTMP.Value
Worksheets("DATA").Cells(CellTujuan + 1, 9).Value = txtTGL.Value
Worksheets("DATA").Cells(CellTujuan + 1, 10).Value = txtJR.Value
Worksheets("DATA").Cells(CellTujuan + 1, 11).Value = txtKC.Value
Worksheets("DATA").Cells(CellTujuan + 1, 12).Value = TxtANG.Value
Worksheets("DATA").Cells(CellTujuan + 1, 13).Value = TxtJAM.Value
Worksheets("DATA").Cells(CellTujuan + 1, 14).Value = cboBANK.Value
Worksheets("DATA").Cells(CellTujuan + 1, 15).Value = txtNOBANK.Value
Worksheets("DATA").Cells(CellTujuan + 1, 16).Value = TxtBAYARDI.Value
Worksheets("DATA").Cells(CellTujuan + 1, 17).Value = txtKJ.Value
Worksheets("DATA").Cells(CellTujuan + 1, 18).Value = txtTGLP.Value
Worksheets("DATA").Cells(CellTujuan + 1, 19).Value = TxtPINJ.Value
If optLAMA = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 20).Value = "LAMA"
ElseIf optBARU = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 20).Value = "BARU"
End If
If optDINAS = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "DINAS"
ElseIf optPENSIUNAN = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "PENSIUNAN"
ElseIf optUMUM = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "UMUM"
ElseIf optATM = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "ATM"
End If
Worksheets("DATA").Cells(CellTujuan + 1, 22).Value = TxtKE.Value
Worksheets("DATA").Cells(CellTujuan + 1, 23).Value = txtHP.Value
Worksheets("DATA").Cells(CellTujuan + 1, 24).Value = Cbobayar.Value
Worksheets("DATA").Cells(CellTujuan + 1, 25).Value = TxtGaji.Value
Worksheets("DATA").Cells(CellTujuan + 1, 26).Value = "=DATEDIF(RC[-17],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("DATA").Cells(CellTujuan + 1, 27).Value = JMGAJI.Value
End With


With Worksheets("BLANGKO")
Worksheets("BLANGKO").Cells(2, 1) = txtNM.Value
Worksheets("BLANGKO").Cells(2, 2) = txtTMP.Value
Worksheets("BLANGKO").Cells(2, 3) = TxtTGA.Value
Worksheets("BLANGKO").Cells(2, 4) = txtKJ.Value
Worksheets("BLANGKO").Cells(2, 5) = txtJR.Value
Worksheets("BLANGKO").Cells(2, 6) = txtKC.Value
Worksheets("BLANGKO").Cells(2, 7) = TxtPINJ.Value
Worksheets("BLANGKO").Cells(2, 8) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 9) = cboBANK.Value
Worksheets("BLANGKO").Cells(2, 10) = txtNOBANK.Value
Worksheets("BLANGKO").Cells(2, 11) = cboRST.Value
Worksheets("BLANGKO").Cells(2, 12) = TxtANG.Value
Worksheets("BLANGKO").Cells(2, 13) = TxtJAM.Value
Worksheets("BLANGKO").Cells(2, 14) = txtTGLP.Value
Worksheets("BLANGKO").Cells(2, 15) = (TxtPINJ.Value / 12)
Worksheets("BLANGKO").Cells(2, 16) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 17) = "=RC[-3]+30"
Worksheets("BLANGKO").Cells(2, 18) = TxtNOANG.Value
End With

With Worksheets("BERKAS")
Worksheets("BERKAS").Cells(3, 11) = TxtNOANG.Value
Worksheets("BERKAS").Cells(11, 11) = cboRST.Value
Worksheets("BERKAS").Cells(7, 2) = TxtPINJ.Value
Worksheets("BERKAS").Cells(10, 5) = txtNM.Value
Worksheets("BERKAS").Cells(11, 3) = txtJR.Value
Worksheets("BERKAS").Cells(12, 3) = txtKC.Value
Worksheets("BERKAS").Cells(13, 5) = TxtANG.Value
Worksheets("BERKAS").Cells(14, 5) = TxtJAM.Value
Worksheets("BERKAS").Cells(15, 5) = (cboBANK.Value + txtNOBANK.Value)
End With

With Worksheets("KARTU")
Worksheets("KARTU").Cells(2, 3) = TxtPINJ.Value
Worksheets("KARTU").Cells(3, 1) = "=TERBILANG(R[-1]C[2])"
Worksheets("KARTU").Cells(7, 5) = txtNM.Value
Worksheets("KARTU").Cells(8, 5) = txtTMP.Value
Worksheets("KARTU").Cells(8, 6) = txtTGL.Value
Worksheets("KARTU").Cells(8, 7) = "=DATEDIF(RC[-1],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("KARTU").Cells(9, 5) = txtJR.Value
Worksheets("KARTU").Cells(10, 5) = txtKC.Value
Worksheets("KARTU").Cells(12, 5) = cboRST.Value
Worksheets("KARTU").Cells(7, 10) = TxtNOANG.Value
Worksheets("KARTU").Cells(9, 10) = TxtBAYARDI.Value
Worksheets("KARTU").Cells(10, 10) = Cbobayar.Value
Worksheets("KARTU").Cells(12, 10) = TxtANG.Value
Worksheets("KARTU").Cells(13, 9) = TxtJAM.Value
Worksheets("KARTU").Cells(13, 7) = txtNOBANK.Value
Worksheets("KARTU").Cells(16, 2) = txtTGLP.Value
Worksheets("KARTU").Cells(16, 8) = TxtPINJ.Value
Worksheets("KARTU").Cells(11, 6) = txtKJ.Value
Application.ScreenUpdating = False
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FileX = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
Worksheets("KARTU").Image1.Picture = LoadPicture(FileX)
Application.ScreenUpdating = True
End With

With Worksheets("BALEK KARTU")
Worksheets("BALEK KARTU").Cells(9, 3) = JMGAJI.Value
Worksheets("BALEK KARTU").Cells(10, 2) = "=terbilang(R[-1]C[1])"
Worksheets("BALEK KARTU").Cells(18, 2) = txtNM.Value
Worksheets("BALEK KARTU").Cells(19, 3) = txtTGLP.Value
End With

With Worksheets("KWITANSI")
Worksheets("KWITANSI").Cells(2, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(23, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(2, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(23, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(12, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(35, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(6, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(27, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(18, 5) = TxtPINJ.Value
Worksheets("KWITANSI").Cells(39, 5) = TxtPINJ.Value
End With

Select Case cboRST.Value
Case "ANGGREK"
With Worksheets("ANGGREK")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("ANGGREK").Cells(CellTujuan + 1, 1).Value = CellTujuan - 1
Worksheets("ANGGREK").Cells(CellTujuan + 1, 2).Value = txtTGLP.Value
Worksheets("ANGGREK").Cells(CellTujuan + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("ANGGREK").Cells(CellTujuan + 1, 4).Value = TxtNOANG.Value
Worksheets("ANGGREK").Cells(CellTujuan + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("ANGGREK").Cells(CellTujuan + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("ANGGREK").Cells(CellTujuan + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("ANGGREK").Cells(CellTujuan + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case "MAWAR"
With Worksheets("MAWAR")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("MAWAR").Cells(CellTujuan + 1, 1).Value = CellTujuan - 1
Worksheets("MAWAR").Cells(CellTujuan + 1, 2).Value = txtTGLP.Value
Worksheets("MAWAR").Cells(CellTujuan + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("MAWAR").Cells(CellTujuan + 1, 4).Value = TxtNOANG.Value
Worksheets("MAWAR").Cells(CellTujuan + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("MAWAR").Cells(CellTujuan + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("MAWAR").Cells(CellTujuan + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("MAWAR").Cells(CellTujuan + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case ("TERATAI")
With Worksheets("TERATAI")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("TERATAI").Cells(CellTujuan + 1, 1).Value = CellTujuan - 1
Worksheets("TERATAI").Cells(CellTujuan + 1, 2).Value = txtTGLP.Value
Worksheets("TERATAI").Cells(CellTujuan + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("TERATAI").Cells(CellTujuan + 1, 4).Value = TxtNOANG.Value
Worksheets("TERATAI").Cells(CellTujuan + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("TERATAI").Cells(CellTujuan + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("TERATAI").Cells(CellTujuan + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("TERATAI").Cells(CellTujuan + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With
End Select

txtNIK.Value = ""
cboRST.Value = ""
TxtNOANG.Value = ""
TxtTGA.Value = ""
txtNM.Value = ""
txtTMP.Value = ""
txtTGL.Value = ""
txtJR.Value = ""
txtKC.Value = ""
TxtANG.Value = ""
TxtJAM.Value = ""
cboBANK.Value = ""
txtNOBANK.Value = ""
TxtBAYARDI.Value = ""
txtKJ.Value = ""
txtTGLP.Value = ""
TxtPINJ.Value = ""
optLAMA.Value = ""
optBARU.Value = ""
optDINAS.Value = ""
optPENSIUNAN.Value = ""
optUMUM.Value = ""
optATM.Value = ""
TxtKE.Value = ""
txtHP.Value = ""
Cbobayar.Value = ""
TxtGaji.Value = ""
JMGAJI.Value = ""
MsgBox "Data sudah disimpan", vbOKOnly
End Sub
UNTUK TOMBOL CARI
 Private Sub CMDCARI_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim Kode
Dim CellTujuan As Range
Kode = (cboRST.Value + TxtNOANG.Value)
Set CellTujuan = Worksheets("DATA").Range("B:B").Find(What:=Kode, LookIn:=xlValues, LookAt:=xlWhole)
If Not CellTujuan Is Nothing Then
txtNIK.Value = Worksheets("DATA").Cells(CellTujuan.Row, 3)
cboRST.Value = Worksheets("DATA").Cells(CellTujuan.Row, 4)
TxtNOANG.Value = Worksheets("DATA").Cells(CellTujuan.Row, 5)
TxtTGA.Value = Worksheets("DATA").Cells(CellTujuan.Row, 6)
txtNM.Value = Worksheets("DATA").Cells(CellTujuan.Row, 7)
txtTMP.Value = Worksheets("DATA").Cells(CellTujuan.Row, 8)
txtTGL.Value = Worksheets("DATA").Cells(CellTujuan.Row, 9)
txtJR.Value = Worksheets("DATA").Cells(CellTujuan.Row, 10)
txtKC.Value = Worksheets("DATA").Cells(CellTujuan.Row, 11)
TxtANG.Value = Worksheets("DATA").Cells(CellTujuan.Row, 12)
TxtJAM.Value = Worksheets("DATA").Cells(CellTujuan.Row, 13)
cboBANK.Value = Worksheets("DATA").Cells(CellTujuan.Row, 14)
txtNOBANK.Value = Worksheets("DATA").Cells(CellTujuan.Row, 15)
TxtBAYARDI.Value = Worksheets("DATA").Cells(CellTujuan.Row, 16)
txtKJ.Value = Worksheets("DATA").Cells(CellTujuan.Row, 17)
txtTGLP.Value = Worksheets("DATA").Cells(CellTujuan.Row, 18)
TxtPINJ.Value = Worksheets("DATA").Cells(CellTujuan.Row, 19)
If Worksheets("DATA").Cells(CellTujuan.Row, 20) = "LAMA" Then
optLAMA.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 20) = "BARU" Then
optBARU.Value = True
End If
If Worksheets("DATA").Cells(CellTujuan.Row, 21) = "DINAS" Then
optDINAS.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 21) = "PENSIUNAN" Then
optPENSIUNAN.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 21) = "UMUM" Then
optUMUM.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 21) = "ATM" Then
optATM.Value = True
End If
TxtKE.Value = Worksheets("DATA").Cells(CellTujuan.Row, 22)
txtHP.Value = Worksheets("DATA").Cells(CellTujuan.Row, 23)
Cbobayar.Value = Worksheets("DATA").Cells(CellTujuan.Row, 24)
TxtGaji.Value = Worksheets("DATA").Cells(CellTujuan.Row, 25)
JMGAJI.Value = Worksheets("DATA").Cells(CellTujuan.Row, 27)
Else: MsgBox "Tidak Ada Hasil !"
End If
Application.ScreenUpdating = False
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FileX = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FOTO.Picture = LoadPicture(FileX)
   FOTO.Height = TRANSAKSI.Height - 405 '+ Image1.Height
  FOTO.Width = TRANSAKSI.Width - 655 '+ Image1.Height
   FOTO.Top = 36
   FOTO.Left = 606
Application.ScreenUpdating = True
End SubUNTUK ANGGOTA LAMA
Private Sub ANGGOTALAMA_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim Kode
Dim TujuanData As Range
Kode = (cboRST.Text + TxtNOANG.Text)
Set TujuanData = Sheets("DATA").Range("B:B").Find(What:=Kode, LookIn:=xlValues, LookAt:=xlWhole)
If Not TujuanData Is Nothing Then
Worksheets("DATA").Cells(TujuanData.Row, 3).Value = txtNIK.Value
Worksheets("DATA").Cells(TujuanData.Row, 4).Value = cboRST.Value
Worksheets("DATA").Cells(TujuanData.Row, 5).Value = TxtNOANG.Value
Worksheets("DATA").Cells(TujuanData.Row, 6).Value = TxtTGA.Value
Worksheets("DATA").Cells(TujuanData.Row, 7).Value = txtNM.Value
Worksheets("DATA").Cells(TujuanData.Row, 8).Value = txtTMP.Value
Worksheets("DATA").Cells(TujuanData.Row, 9).Value = txtTGL.Value
Worksheets("DATA").Cells(TujuanData.Row, 10).Value = txtJR.Value
Worksheets("DATA").Cells(TujuanData.Row, 11).Value = txtKC.Value
Worksheets("DATA").Cells(TujuanData.Row, 12).Value = TxtANG.Value
Worksheets("DATA").Cells(TujuanData.Row, 13).Value = TxtJAM.Value
Worksheets("DATA").Cells(TujuanData.Row, 14).Value = cboBANK.Value
Worksheets("DATA").Cells(TujuanData.Row, 15).Value = txtNOBANK.Value
Worksheets("DATA").Cells(TujuanData.Row, 16).Value = TxtBAYARDI.Value
Worksheets("DATA").Cells(TujuanData.Row, 17).Value = txtKJ.Value
Worksheets("DATA").Cells(TujuanData.Row, 18).Value = txtTGLP.Value
Worksheets("DATA").Cells(TujuanData.Row, 19).Value = TxtPINJ.Value
If optLAMA = True Then
Worksheets("DATA").Cells(TujuanData.Row, 20).Value = "LAMA"
ElseIf optBARU = True Then
Worksheets("DATA").Cells(TujuanData.Row, 20).Value = "BARU"
End If
If optDINAS = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "DINAS"
ElseIf optPENSIUNAN = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "PENSIUNAN"
ElseIf optUMUM = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "UMUM"
ElseIf optATM = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "ATM"
End If
Worksheets("DATA").Cells(TujuanData.Row, 22).Value = TxtKE.Value
Worksheets("DATA").Cells(TujuanData.Row, 23).Value = txtHP.Value
Worksheets("DATA").Cells(TujuanData.Row, 24).Value = Cbobayar.Value
Worksheets("DATA").Cells(TujuanData.Row, 25).Value = TxtGaji.Value
Worksheets("DATA").Cells(TujuanData.Row, 26).Value = "=DATEDIF(RC[-17],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("DATA").Cells(TujuanData.Row, 27).Value = JMGAJI.Value
End If

With Worksheets("BLANGKO")
Worksheets("BLANGKO").Cells(2, 1) = txtNM.Value
Worksheets("BLANGKO").Cells(2, 2) = txtTMP.Value
Worksheets("BLANGKO").Cells(2, 3) = TxtTGA.Value
Worksheets("BLANGKO").Cells(2, 4) = txtKJ.Value
Worksheets("BLANGKO").Cells(2, 5) = txtJR.Value
Worksheets("BLANGKO").Cells(2, 6) = txtKC.Value
Worksheets("BLANGKO").Cells(2, 7) = TxtPINJ.Value
Worksheets("BLANGKO").Cells(2, 8) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 9) = cboBANK.Value
Worksheets("BLANGKO").Cells(2, 10) = txtNOBANK.Value
Worksheets("BLANGKO").Cells(2, 11) = cboRST.Value
Worksheets("BLANGKO").Cells(2, 12) = TxtANG.Value
Worksheets("BLANGKO").Cells(2, 13) = TxtJAM.Value
Worksheets("BLANGKO").Cells(2, 14) = txtTGLP.Value
Worksheets("BLANGKO").Cells(2, 15) = (TxtPINJ.Value / 12)
Worksheets("BLANGKO").Cells(2, 16) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 17) = "=RC[-3]+30"
Worksheets("BLANGKO").Cells(2, 18) = TxtNOANG.Value
End With


With Worksheets("BERKAS")
Worksheets("BERKAS").Cells(3, 11) = TxtNOANG.Value
Worksheets("BERKAS").Cells(11, 11) = cboRST.Value
Worksheets("BERKAS").Cells(7, 2) = txtTGLP.Value
Worksheets("BERKAS").Cells(10, 5) = txtNM.Value
Worksheets("BERKAS").Cells(11, 3) = txtJR.Value
Worksheets("BERKAS").Cells(12, 3) = txtKC.Value
Worksheets("BERKAS").Cells(13, 5) = TxtANG.Value
Worksheets("BERKAS").Cells(14, 5) = TxtJAM.Value
Worksheets("BERKAS").Cells(15, 5) = (cboBANK.Value + txtNOBANK.Value)
End With

With Worksheets("KARTU")
Worksheets("KARTU").Cells(2, 3) = TxtPINJ.Value
Worksheets("KARTU").Cells(3, 1) = "=TERBILANG(R[-1]C[2])"
Worksheets("KARTU").Cells(7, 5) = txtNM.Value
Worksheets("KARTU").Cells(8, 5) = txtTMP.Value
Worksheets("KARTU").Cells(8, 6) = txtTGL.Value
Worksheets("KARTU").Cells(8, 7) = "=DATEDIF(RC[-1],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("KARTU").Cells(9, 5) = txtJR.Value
Worksheets("KARTU").Cells(10, 5) = txtKC.Value
Worksheets("KARTU").Cells(12, 5) = cboRST.Value
Worksheets("KARTU").Cells(7, 10) = TxtNOANG.Value
Worksheets("KARTU").Cells(9, 10) = TxtBAYARDI.Value
Worksheets("KARTU").Cells(10, 10) = Cbobayar.Value
Worksheets("KARTU").Cells(12, 10) = TxtANG.Value
Worksheets("KARTU").Cells(13, 9) = TxtJAM.Value
Worksheets("KARTU").Cells(13, 7) = txtNOBANK.Value
Worksheets("KARTU").Cells(16, 2) = txtTGLP.Value
Worksheets("KARTU").Cells(16, 8) = TxtPINJ.Value
Worksheets("KARTU").Cells(11, 6) = txtKJ.Value
Application.ScreenUpdating = False
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FileX = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
Worksheets("KARTU").Image1.Picture = LoadPicture(FileX)
Application.ScreenUpdating = True
End With

With Worksheets("BALEK KARTU")
Worksheets("BALEK KARTU").Cells(9, 3) = JMGAJI.Value
Worksheets("BALEK KARTU").Cells(10, 2) = "=terbilang(R[-1]C[1])"
Worksheets("BALEK KARTU").Cells(18, 2) = txtNM.Value
Worksheets("BALEK KARTU").Cells(19, 3) = txtTGLP.Value
End With

With Worksheets("KWITANSI")
Worksheets("KWITANSI").Cells(2, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(23, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(2, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(23, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(12, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(35, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(6, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(27, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(18, 5) = TxtPINJ.Value
Worksheets("KWITANSI").Cells(39, 5) = TxtPINJ.Value
End With

Select Case cboRST.Value
Case "ANGGREK"
Dim CellANGGREK As Long
With Worksheets("ANGGREK")
CellANGGREK = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'--- data input
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 1).Value = CellANGGREK - 1
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 2).Value = txtTGLP.Value
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 4).Value = TxtNOANG.Value
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case "MAWAR"
Dim CellMAWAR As Long
With Worksheets("MAWAR")
CellMAWAR = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'--- data input
Worksheets("MAWAR").Cells(CellMAWAR + 1, 1).Value = CellMAWAR - 1
Worksheets("MAWAR").Cells(CellMAWAR + 1, 2).Value = txtTGLP.Value
Worksheets("MAWAR").Cells(CellMAWAR + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("MAWAR").Cells(CellMAWAR + 1, 4).Value = TxtNOANG.Value
Worksheets("MAWAR").Cells(CellMAWAR + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("MAWAR").Cells(CellMAWAR + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("MAWAR").Cells(CellMAWAR + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("MAWAR").Cells(CellMAWAR + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case ("TERATAI")
Dim CellTERATAI As Long
With Worksheets("TERATAI")
CellTERATAI = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'--- data input
Worksheets("TERATAI").Cells(CellTERATAI + 1, 1).Value = CellTERATAI - 1
Worksheets("TERATAI").Cells(CellTERATAI + 1, 2).Value = txtTGLP.Value
Worksheets("TERATAI").Cells(CellTERATAI + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("TERATAI").Cells(CellTERATAI + 1, 4).Value = TxtNOANG.Value
Worksheets("TERATAI").Cells(CellTERATAI + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("TERATAI").Cells(CellTERATAI + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("TERATAI").Cells(CellTERATAI + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("TERATAI").Cells(CellTERATAI + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With
End Select

txtNIK.Value = ""
cboRST.Value = ""
TxtNOANG.Value = ""
TxtTGA.Value = ""
txtNM.Value = ""
txtTMP.Value = ""
txtTGL.Value = ""
txtJR.Value = ""
txtKC.Value = ""
TxtANG.Value = ""
TxtJAM.Value = ""
cboBANK.Value = ""
txtNOBANK.Value = ""
TxtBAYARDI.Value = ""
txtKJ.Value = ""
txtTGLP.Value = ""
TxtPINJ.Value = ""
optLAMA.Value = ""
optBARU.Value = ""
optDINAS.Value = ""
optPENSIUNAN.Value = ""
optUMUM.Value = ""
optATM.Value = ""
TxtKE.Value = ""
txtHP.Value = ""
Cbobayar.Value = ""
TxtGaji.Value = ""
JMGAJI.Value = ""
MsgBox "Data sudah disimpan", vbOKOnly
End Sub
UNTUK INSERT FOTO ANGGOTA
Private Sub cmdnamafoto_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim SourceFile, DestinationFile

x.SetFocus
Filter = "JPG Image Files Only(*.jpg),*.jpg,"
Title = "Silahkan Pilih Logo"
FileX = Application.GetOpenFilename(Filter, , Title)
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FOTO.Picture = LoadPicture(FileX)
   FOTO.Height = TRANSAKSI.Height - 405 '+ Image1.Height
  FOTO.Width = TRANSAKSI.Width - 655 '+ Image1.Height
   FOTO.Top = 36
   FOTO.Left = 606
DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FileCopy FileX, DestinationFile
End Sub
UNTUK CONTOHNYA BISA DI DOWNLOAD DI BAWAH INI
DOWNLOAD

Komentar

Posting Komentar

Postingan populer dari blog ini

Download Software SonicShack Designer - Software Khusus Desain Kaos

Apakah anda ingin membuat desain T-Shirt, topi, poster, sweater, atau desain yang lainnya? Bukan mimpi anda bisa melakukannya sendiri, karena disini saya ingin memperkenalkan kepada anda software canggih tapi ukurannya kecil. Jika anda ingin berbisnis memproduksi T-Shirt, topi, ataupun sweater untuk desain bisa anda pakai software ini, tapi jika belum ada modal paling tidak buat saja desainnya, mungkin saja jika desain anda bagus bisa dijual.hehe! Nah, karena dengan SonicShackDesigner ini anda bisa membuat banyak desain dengan mudah bin gampang. Selain pembuatan mudah, tampilannya juga simple, jadi nggak membuat orang jadi kepala tiga.hehe! Untuk waktu pembuatan desain tidak membutuhkan waktu banyak, tergantung anda menginginkan seperti gimana! Cara installasinya : pertama unduh dan ekstrak file unduh.an tadi > install file yang telah diekstrak seperti biasa yang tinggal Next dan Next > siap digunakan buat bisnis nih software. Cara penggunaanya menurut...
10 komentar
Baca selengkapnya

Dowload 5 Top Software Fashion Design Keren | Software untuk mendesai kaos

Fashion atau Mode merupakan aspek yang terus berkembang dalam kehidupan manusia. Membuat baju bukan hanya ditujukan untuk kenyamanan, tetapi untuk trend dan gaya hidup. Membuat trend mode, fashion design telah menjadi keasyikan tersendiri bagi sebagian masyarakat kreatif di bidang mode dari sejak zaman kuno. Trend selalu datang dan pergi, tetapi kenyataan tetap bahwa mode selalu merupakan aspek penting dari kehidupan kita. Merancang pakaian dianggap sebagai bentuk seni karena melibatkan bakat dan imajinasi, dan di balik setiap ide dan proses kreatif seorang desainer akhirnya mengarah pada konsep pakaian trendi dan glamor yang kita lihat. Saat ini, merancang busana menjadi lebih mudah dengan penggunaan software fashion design atau perangkat lunak untuk desain baju atau pakaian. Jika Anda memiliki bakat kreatif untuk menciptakan apa yang belum pernah terlihat sebelumnya, mungkin Anda butuhkan alat bantu software fashion design sebagai state-of-the-art tools. Beri...
20 komentar
Baca selengkapnya

Download Software Bitdefender Antivirus Plus 2014 v17.26.0.1081 Full License Key Terbaru

Bitdefender Antivirus Plus 2014 v17.26.0.1081 Full License Key Bitdefender Antivirus Plus 2014 merupakan anti virus terbaik 2014 yang diliris oleh Bitdefender. Anti virus Bitdefender ini memiliki keunggulan pada kecepatan dan keamanan ketika berinternet. Anti virus handal ini sudah banyak digunakan oleh user diseluruh dunia karena kemampuannya yang cukup handal dalam mendeteksi virus. Anti virus ini sudah compatible dengan Windows 8 dan sudah dilengkapi dengan fitur unggulannya seperti Bitdefender Safepay, Wallet, dan Bitdefender Autopilot. Bitdefender Antivirus Plus 2014 dibuat dengan 2 jenis license yaitu free license dan license berbayar. Perbedaan kedua jenis license key tersebut adalah fitur yang ada didalam software Bitdefender Antivirus Plus 2014. Jika anda menggunakan jenis lisensi gratis, Bitdefender akan menonaktifkan beberapa fitur, sayangnya justru fitur penting itulah yang dinonaktifkan. Masuk akal memang ketika Bitdefender menonaktifkan fitur pentingnya pada...
1 komentar
Baca selengkapnya