Record and share gameplay videos and livestreams on YouTube, Twitch, and Facebook.ShadowPlay technology lets you broadcast with minimal performance overhead, so you never miss a beat in your games. Keep your drivers up to date and optimize your game settings. Capture and share videos, screenshots, and livestreams with friends. GeForce Experience ™ lets you do it all, making it the essential companion to your GeForce ® graphics card. Geforce 210 windows 10.
Dec 20, 2014 uLaunchELF Introduction uLaunchELF is a homebrew that launches and Manages.ELF files (pretty much launches Homebrew on the PS2) uLaunchELF or any.elf files can be booted threw PS1 eboot, Codebreaker eboot or you can make a.iso CD uLaunchELF Downloads and Contents The latest version of uLaunchE. Ps2 ulaunchelf usb modchip adapter. Nov 21, 2017 Pressing L1 + R1 + L2 + R2 + Start + Select in-game will exit to the PS2 Browser (The screen that appears when you turn on PS2 without a DVD), It can be changed by going into 'Settings IGR Path' and typing the path to OPL or uLE or any other elf anyway (to make it easier, you can plug a keyboard to the other USB port on the PS2).
Namai TexkBox dengan kode pada perintah batal
Contoh txtNIK.Value = ' berarti textboxnya txtNIK 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
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
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 Contoh Koperasi Simpan PinjamUNTUK CONTOHNYA BISA DI DOWNLOAD DI BAWAH ININamai 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
Koperasi Simpan Pinjam AdalahPrivate 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
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
The sims 4 hack code. Private Sub cmdnamafoto_Click() UNTUK CONTOHNYA BISA DI DOWNLOAD DI BAWAH INIOn 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 DOWNLOAD Koperasi Simpan Pinjam BandungComments are closed.
|
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |