/yygqb@JagoanMasambabot
py rclone_sa_magic.py -s 1SiMn3X2IV84rI9wGJFLqDD_6z8QXu7Hr -d
1VEp4nkHLBVgPhO4uiEeEA4I7iKtq-gB5 -b 1 -e 100
py rclone_sa_magic.py -s 0AMzYCgVkdpF4Uk9PVA -d 0AGuFBM582YMAUk9PVA -b 1 -e 100
rclone copy 0AMzYCgVkdpF4Uk9PVA 0AHtXGJKtOKqvUk9PVA
rclone copyto 1YMzRF4bzzmcTR_qG7uYP-WXKDwtfBCbn 17KVLYkqs453I5np5gvWKXpxbHbymU5jB
=IFERROR(INDEX(AAA_LNSNEW[REKENING_];MATCH(TRUE;ISNA(MATCH(AAA_LNSNEW[REKENING_];A_
LNSFULL[REKENING];0));0));"")
=COUNTA('AAA LNSNEW'!A:A)
=COUNTA('A LNSFULL'!A:A)
Sub CariData()
Dim rngCell As Range
With Worksheets("HOME")
lRow = .Range("Y" & .Rows.Count).End(xlUp).Row
lRow2 = .Range("X" & .Rows.Count).End(xlUp).Row
For Each rngCell In Range("Y1:Y" & lRow)
If WorksheetFunction.CountIf(Range(""X1:X" & lRow2"), rngCell) = 0 Then
Range("Z" & Rows.Count).End(xlUp).Offset(0) = rngCell
End If
If.Range("AA1").Value = .Range("AC4").Value Then
Exit Sub
End If
Next
End With
End Sub
Sub CompareLists()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows,
SearchDirection:=xlPrevious).Row
Dim Rng As Range, RngList As Object
Set RngList = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
For Each Rng In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
If Not RngList.Exists(Rng.Value) Then
RngList.Add Rng.Value, Nothing
End If
Next
End With
With Sheets("Feuil2")
For Each Rng In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
If Not RngList.Exists(Rng.Value) Then
Sheets("Feuil1").Cells(Sheets("Feuil1").Rows.Count,
"A").End(xlUp).Offset(1, 0) = Rng
End If
Next
End With
RngList.RemoveAll
Application.ScreenUpdating = True
End Sub
=IF(Y1="";"";COUNTIF(X:X;Y1))
Sheets("HOME").Select
Range("AC2").Select
ActiveCell.FormulaR1C1 = "=COUNTA('AAA LNSNEW'!A:A)"
Range("AC3").Select
ActiveCell.FormulaR1C1 = "=COUNTA('A LNSFULL'!A:A)"
If Worksheets("HOME").Range("AC2").Value <> Worksheets("HOME").Range("AC3").Value
Then
MsgBox "Jumlah Debitur Tidak Sama" & vbCr & "Sheet A LNSFULL <> Sheet AAA
LNSNEW", _
vbOKOnly + vbInformation, "Gagal Olah Data"
Exit Sub
OutPut = MsgBox("Jumlah Data Sama...!!!", vbInformation, "Pemberitahuan!!!")
NamaDebitur = Worksheets("INPUT DATA").Range("F11").Value
Set DataSH = ThisWorkbook.Sheets("DATA BASE")
DataSH.Activate
DataSH.Range("D1").Select
Set FindValue = DataSH.Range("D:D").Find(What:=NamaDebitur, _
After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
FindValue.Activate
Selection.Offset(0, 1).Value = 5
If Application.CountIf(Range("NAMA_DEBITUR"), Worksheets("INPUT DATA").Cells(11,
6).Value) = 0 Then
MsgBox "Data Debitur Tidak Ditemukan", _
vbOKOnly + vbInformation, "Gagal Cari"
Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
On Error GoTo Err_Handler
X = ReleaseCapture()
X = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
Exit_Handler:
Exit Sub
Err_Handler:
strProc = "FormHeader_MouseDown"
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub lblHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
As Single)
On Error GoTo Err_Handler
X = ReleaseCapture()
X = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
Exit_Handler:
Exit Sub
Err_Handler:
strProc = "lblHeader_MouseDown"
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub Form_Load()
On Error GoTo Err_Handler
'hide application window
HideAppWindowIcon Me 'v3.52
HideAppWindow Me 'v3.52
Exit_Handler:
Exit Sub
Err_Handler:
strProc = "Form_Load"
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub cmdHideIcon_Click()
'NEW v3.49 - form must be restarted!
On Error GoTo Err_Handler
If Me.cmdHideIcon.Caption = "Hide Taskbar Icon" Then
Me.cmdHideIcon.Caption = "Show Taskbar Icon"
DoCmd.Close
DoCmd.OpenForm "frmStart", , , , , , "HideIcon"
Else
Me.cmdHideIcon.Caption = "Hide Taskbar Icon"
DoCmd.Close
DoCmd.OpenForm "frmStart"
End If
Exit_Handler:
Exit Sub
Err_Handler:
strProc = "cmdHideIcon_Click"
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub cmdDragForm_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
On Error GoTo Err_Handler
'drag form to new position
X = ReleaseCapture()
X = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
'restores form size so update caption on cmdRestore
cmdRestore.Caption = "Maximize Form"
'enable fill screen button
cmdFillScreen.Enabled = True
Exit_Handler:
Exit Sub
Err_Handler:
strProc = "cmdDragForm_MouseDown"
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub btnExit_Click()
On Error GoTo Err_Handler
'restore taskbar then quit application
'ShowTaskbar
Application.Quit
Exit_Handler:
Exit Sub
Err_Handler:
strProc =
Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane
.TopLine, 0)
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub Form_Open(Cancel As Integer)
fAccessWindow "Minimize", False, False
End Sub
Sheets(Array("RESTRUK SYARIAH", "RESTRUK KONVEN")).Copy
After:=Workbooks(TempWindow).Sheets(Workbooks(TempWindow).Sheets.Count)
Sheets(Array("A SYARFULL", "A RESTRSYR", "A RESTRLNS", "A PRKFULL", "A PHMUTASI",
"A PH_SYAR", _
"A PH_PRK", "A PH_LOANS", "A MRGNSYR", "AA SYRFULL", "AA PRKFULL", "AA
LNSFULL", "AA ULS_PAG", _
"A LNSFULL", "AAA LNSNEW")).Move
After:=Workbooks("Book1").Sheets(Workbooks("Book1").Sheets.Count)
Sub ReName()
Sheets("Sheet3").Select
Sheets("Sheet3").Name = "SATU"
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "DUA"
End Sub
Sub DeleteSheet()
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub
Sub Macro3()
Windows("DATA KREDIT GABUNGAN 010322.xlsb").Activate
Sheets("ULS PAG").Select
Sheets("ULS PAG").Move After:=Workbooks("Book1").Sheets(2)
Windows("DATA KREDIT GABUNGAN 010322.xlsb").Activate
Windows("Book1").Activate
End Sub
Sub IMPORTDATA()
Dim SourceWorkbook As Workbook
Dim CurrentWorkbook As Workbook
Application.ScreenUpdating = False
FileSelect = Application.GetOpenFilename(MultiSelect:=False)
If FileSelect = False Then
OutPut = MsgBox("Tidak Ada File Yang Di Pilih...!!!", vbInformation,
"Pemberitahuan!!!")
Exit Sub
End If
Range("AC1").Value = FileSelect
If MsgBox("Proses Ini Akan Memperbaharui Data..." & vbCr & "Apakah Anda Ingin
Melanjutkan???", _
vbOKCancel + vbExclamation, "Mohon Perhatian!!!") = vbOK Then
Set CurrentWorkbook = ThisWorkbook
Set SourceWorkbook = Workbooks.Open(Range("AC1").Value)
With SourceWorkbook.Sheets("DATA KREDIT GABUNGAN")
Sheets(Array("A SYARFULL", "A RESTRSYR", "A RESTRLNS", "A PRKFULL", "A
PHMUTASI", "A PH_SYAR", _
"A PH_PRK", "A PH_LOANS", "A MRGNSYR", "AA SYRFULL", "AA PRKFULL", "AA
LNSFULL", "AA ULS_PAG", _
"A LNSFULL", "AAA LNSNEW")).Move
After:=Workbooks("Book1").Sheets(Workbooks("Book1").Sheets.Count)
End With
SourceWorkbook.Close
Set SourceWorkbook = Nothing
Set CurrentWorkbook = Nothing
ThisWorkbook.Activate
ThisWorkbook.Sheets("HOME").Activate
ThisWorkbook.Sheets("HOME").Range("A1").Select
Range("AC1").Value = ClearContent
Application.ScreenUpdating = True
OutPut = MsgBox("Proses Import Data Berhasil...!!!", vbInformation,
"Pemberitahuan!!!")
End If
End If
End Sub
Set TempWindow = Workbooks.Add
Private Sub Form_Load()
On Error GoTo Err_Handler
' DoCmd.Maximize
SetAccessWindow (SW_SHOWMINIMIZED)
'set startup conditions
Me.cmdAppWindow.Caption = "Show Application Window"
Me.cmdRestore.Caption = "Maximize Form"
Me.cmdTaskbar.Caption = "Hide Taskbar"
Me.cmdFillScreen.Enabled = True
Me.cmdNavPane.Caption = "Show Navigation Pane"
Me.cmdRibbon.Caption = "Show Ribbon"
Me.cmdVBE.Caption = "Open the VBE"
Me.cmdFormView.Caption = "Open in design view"
Exit_Handler:
Exit Sub
Err_Handler:
strProc =
Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane
.TopLine, 0)
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Handler
ReSizeForm Me
Exit_Handler:
Exit Sub
Err_Handler:
strProc =
Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane
.TopLine, 0)
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " &
Err.Description
Resume Exit_Handler
End Sub
Private Sub Form_Load()
'Hide Data-Base Window:
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
'...Other Actions...
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub
