update,

2025-01-31 21:13:26 +08:00
parent f08350ff38
commit 154255d9ca
98 changed files with 12589 additions and 0 deletions
--- a/natalie0312/task3/delivery1/Copy
+++ b/natalie0312/task3/delivery1/Copy
--- a/natalie0312/task3/delivery1/Copy
+++ b/natalie0312/task3/delivery1/Copy
@@ -0,0 +1,828 @@
+' change log:
+
+Option Explicit
+
+Dim first_row As Integer
+Dim current_row As Integer
+Dim last_check_row As Integer
+
+Dim ADJUSTMENT_WORKSHEET As String
+Dim BMF_ADJUSTMENT_WORKSHEET As String
+
+' Raw Data BALANCE_SHEET
+Dim COL_BALANCE_SHEET_NA_1 As String
+Dim COL_BALANCE_SHEET_PCCO_1 As String
+Dim COL_BALANCE_SHEET_PCEC_1 As String
+Dim COL_BALANCE_SHEET_AMOUNT_TO_ADJ_1 As String
+
+Dim COL_BALANCE_SHEET_NA_2 As String
+Dim COL_BALANCE_SHEET_PCCO_2 As String
+Dim COL_BALANCE_SHEET_PCEC_2 As String
+Dim COL_BALANCE_SHEET_AMOUNT_TO_ADJ_2 As String
+
+' Raw Data OFF_BALANCE_SHEET
+Dim COL_OFF_BALANCE_SHEET_NA_1 As String
+Dim COL_OFF_BALANCE_SHEET_PCCO_1 As String
+Dim COL_OFF_BALANCE_SHEET_PCEC_1 As String
+Dim COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_1 As String
+
+Dim COL_OFF_BALANCE_SHEET_NA_2 As String
+Dim COL_OFF_BALANCE_SHEET_PCCO_2 As String
+Dim COL_OFF_BALANCE_SHEET_PCEC_2 As String
+Dim COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_2 As String
+
+Dim COL_FINAL_BMF_ID As String
+
+'BMF 1690 2690
+Dim COL_BMF16902690_SHEET_BMF_REFERENCE_ID As String 'Column C
+Dim COL_BMF16902690_SHEET_PCCO_CODE As String 'Column E
+Dim COL_BMF16902690_SHEET_PCEC_CODE As String 'Column F
+Dim COL_BMF16902690_SHEET_NA As String 'Column H
+Dim COL_BMF16902690_SHEET_AMOUNT_TO_ADJ As String 'Column M
+
+'BMF Adjustment
+Dim COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID As String 'Column A
+Dim COL_BMF_ADJUSTMENT_SHEET_LINE_TYPE As String 'Column B
+Dim COL_BMF_ADJUSTMENT_SHEET_ADJUSTMENT_TYPE As String 'Column D
+Dim COL_BMF_ADJUSTMENT_SHEET_COMMENT As String 'Column E
+Dim COL_BMF_ADJUSTMENT_SHEET_REPORTING_ENTITY As String 'Column F
+Dim COL_BMF_ADJUSTMENT_SHEET_PCCO As String 'Column G
+Dim COL_BMF_ADJUSTMENT_SHEET_PCEC As String 'Column H
+Dim COL_BMF_ADJUSTMENT_SHEET_ACCOUNTING_BALANCE_CURRENCY As String 'Column I
+Dim COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE As String 'Column J
+Dim COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT As String 'Column K
+Dim COL_BMF_ADJUSTMENT_SHEET_INTERNAL_EXTERNAL_CODE As String 'Column M
+Dim COL_BMF_ADJUSTMENT_SHEET_IFRS_NORM_FLAG As String 'Column N
+Dim COL_BMF_ADJUSTMENT_SHEET_FRENCH_GAAP_NORM_FLAG As String 'Column O
+Dim COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_LIQ As String 'Column P
+Dim COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_STT As String 'Column Q
+Dim COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_YLD As String 'Column R
+Dim COL_BMF_ADJUSTMENT_SHEET_AMOUNT_TYPE_CODE As String 'Column S
+Dim COL_BMF_ADJUSTMENT_SHEET_OPAQUE_REPORTING_ENTITY As String 'Column BJ
+Dim COL_BMF_ADJUSTMENT_SHEET_LOCAL_OPERATIONAL_ACCOUNT As String 'Column BN
+
+Dim RED_THOUSAND_SEP_NUMBER_FORMAT As String
+
+Sub init()
+  On Error GoTo eh
+
+  RED_THOUSAND_SEP_NUMBER_FORMAT = "#,##0_);[Red](#,##0)"
+
+  ' HEADER_ROW = 6
+  first_row = 6
+  current_row = first_row
+  last_check_row = 9999
+
+  ' ADJUSTMENT_SHEET
+  ADJUSTMENT_WORKSHEET = "Raw Data"
+
+  ' BALANCE_SHEET
+  COL_BALANCE_SHEET_NA_1 = "Q"
+  COL_BALANCE_SHEET_PCCO_1 = "R"
+  COL_BALANCE_SHEET_PCEC_1 = "S"
+  COL_BALANCE_SHEET_AMOUNT_TO_ADJ_1 = "T"
+
+  COL_BALANCE_SHEET_NA_2 = "U"
+  COL_BALANCE_SHEET_PCCO_2 = "V"
+  COL_BALANCE_SHEET_PCEC_2 = "W"
+  COL_BALANCE_SHEET_AMOUNT_TO_ADJ_2 = "X"
+
+  ' OFF_BALANCE_SHEET
+  COL_OFF_BALANCE_SHEET_NA_1 = "Z"
+  COL_OFF_BALANCE_SHEET_PCCO_1 = "AA"
+  COL_OFF_BALANCE_SHEET_PCEC_1 = "AB"
+  COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_1 = "AC"
+
+  COL_OFF_BALANCE_SHEET_NA_2 = "AD"
+  COL_OFF_BALANCE_SHEET_PCCO_2 = "AE"
+  COL_OFF_BALANCE_SHEET_PCEC_2 = "AF"
+  COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_2 = "AG"
+
+  COL_FINAL_BMF_ID = "AM"
+
+  ' BMF_ADJUSTMENT_SHEET
+    BMF_ADJUSTMENT_WORKSHEET = "BMF Adjustment"
+    COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID = "A"
+    COL_BMF_ADJUSTMENT_SHEET_LINE_TYPE = "B"
+    COL_BMF_ADJUSTMENT_SHEET_ADJUSTMENT_TYPE = "D"
+    COL_BMF_ADJUSTMENT_SHEET_COMMENT = "E"
+    COL_BMF_ADJUSTMENT_SHEET_REPORTING_ENTITY = "F"
+    COL_BMF_ADJUSTMENT_SHEET_PCCO = "G"
+    COL_BMF_ADJUSTMENT_SHEET_PCEC = "H"
+    COL_BMF_ADJUSTMENT_SHEET_ACCOUNTING_BALANCE_CURRENCY = "I"
+    COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE = "J"
+    COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT = "K"
+    COL_BMF_ADJUSTMENT_SHEET_INTERNAL_EXTERNAL_CODE = "M"
+    COL_BMF_ADJUSTMENT_SHEET_IFRS_NORM_FLAG = "N"
+    COL_BMF_ADJUSTMENT_SHEET_FRENCH_GAAP_NORM_FLAG = "O"
+    COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_LIQ = "P"
+    COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_STT = "Q"
+    COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_YLD = "R"
+    COL_BMF_ADJUSTMENT_SHEET_AMOUNT_TYPE_CODE = "S"
+    COL_BMF_ADJUSTMENT_SHEET_OPAQUE_REPORTING_ENTITY = "BJ"
+    COL_BMF_ADJUSTMENT_SHEET_LOCAL_OPERATIONAL_ACCOUNT = "BN"
+
+
+Done:
+  Debug.Print "init done"
+  Exit Sub
+
+eh:
+  Debug.Print "init:Error: " & Err.Description
+
+
+End Sub
+
+Function paintYellow(cell As Variant)
+  cell.Interior.Color = RGB(246, 229, 141)
+  paintYellow = True
+End Function
+
+Function paintRed(cell As Variant)
+  cell.Interior.Color = RGB(255, 121, 121)
+  paintRed = True
+End Function
+
+Function CheckIfOffBalanceSheetAmountToAdjust1NoNeedCopy(current_row As Integer, bmf_id As String, pcco As String)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_1 & CStr(current_row)).Value
+
+  If (temp = "") Then
+    output = True
+  ElseIf (temp = "0") Then
+    paintYellow (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_1 & CStr(current_row)))
+    output = True
+  ElseIf (checkIfAlreadyExistInBmfAdjustmentResult(bmf_id, pcco, current_row)) Then
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range("AI" & CStr(current_row)))
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCCO_1 & CStr(current_row)))
+
+    output = True
+  End If
+
+
+  CheckIfOffBalanceSheetAmountToAdjust1NoNeedCopy = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfOffBalanceSheetAmountToAdjust1NoNeedCopy:Error: " & Err.Description
+
+End Function
+
+Function CheckIfAdjustmentSheetBmfIdValid(current_row As Integer)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(current_row)).Value
+
+  If (temp <> "") Then
+    output = True
+  End If
+
+  CheckIfAdjustmentSheetBmfIdValid = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfAdjustmentSheetBmfIdValid:Error: " & Err.Description
+
+End Function
+
+Function CheckIfOffBalanceSheetAmountToAdjust2NoNeedCopy(current_row As Integer, bmf_id As String, pcco As String)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(current_row)).Value
+
+  If (temp = "") Then
+    output = True
+  ElseIf (temp = "0") Then
+    paintYellow (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(current_row)))
+    output = True
+  ElseIf (checkIfAlreadyExistInBmfAdjustmentResult(bmf_id, pcco, current_row)) Then
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range("AI" & CStr(current_row)))
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCCO_2 & CStr(current_row)))
+    output = True
+  End If
+
+
+  CheckIfOffBalanceSheetAmountToAdjust2NoNeedCopy = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfOffBalanceSheetAmountToAdjust2NoNeedCopy:Error: " & Err.Description
+
+End Function
+
+Function CheckIfBalanceSheetAmountToAdjust1NoNeedCopy(current_row As Integer, bmf_id As String, pcco As String)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = False
+
+  Dim temp As String
+
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_1 & CStr(current_row)).Value
+  Debug.Print "CheckIfBalanceSheetAmountToAdjust1NoNeedCopy:" & temp = "0"
+
+  If (temp = "") Then
+    output = True
+  ElseIf (temp = "0") Then
+    paintYellow (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_1 & CStr(current_row)))
+    output = True
+  ElseIf (checkIfAlreadyExistInBmfAdjustmentResult(bmf_id, pcco, current_row)) Then
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range("AI" & CStr(current_row)))
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_1 & CStr(current_row)))
+    output = True
+  End If
+
+  CheckIfBalanceSheetAmountToAdjust1NoNeedCopy = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfBalanceSheetAmountToAdjust1NoNeedCopy:Error: " & Err.Description
+
+End Function
+
+Function CheckIfBalanceSheetAmountToAdjust2NoNeedCopy(current_row As Integer, bmf_id As String, pcco As String)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(current_row)).Value
+
+  If (temp = "") Then
+    output = True
+  ElseIf (temp = "0") Then
+    paintYellow (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(current_row)))
+    output = True
+  ElseIf (checkIfAlreadyExistInBmfAdjustmentResult(bmf_id, pcco, current_row)) Then
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range("AI" & CStr(current_row)))
+    paintRed (Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_2 & CStr(current_row)))
+    output = True
+  End If
+
+
+  CheckIfBalanceSheetAmountToAdjust2NoNeedCopy = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfBalanceSheetAmountToAdjust2NoNeedCopy:Error: " & Err.Description
+
+End Function
+
+Function CheckIfBalanceSheetNa2Exist(current_row As Integer)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_NA_2 & CStr(current_row)).Value
+
+  If (temp <> "") Then
+    output = True
+  End If
+
+  CheckIfBalanceSheetNa2Exist = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfBalanceSheetNa2Exist:Error: " & Err.Description
+
+End Function
+
+Function CheckIfBalanceSheetPcco2Exist(current_row As Integer)
+  On Error GoTo eh
+
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_2 & CStr(current_row)).Value
+
+  If (temp <> "") Then
+    output = True
+  End If
+
+  CheckIfBalanceSheetPcco2Exist = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfBalanceSheetPcco2Exist:Error: " & Err.Description
+
+End Function
+Function CheckIfBalanceSheetPcec2Exist(current_row As Integer)
+  On Error GoTo eh
+
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCEC_2 & CStr(current_row)).Value
+
+  If (temp <> "") Then
+    output = True
+  End If
+
+  CheckIfBalanceSheetPcco2Exist = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfBalanceSheetPcco2Exist:Error: " & Err.Description
+
+End Function
+
+
+Function CheckIfBalanceSheetAmountToAdjust2Exist(current_row As Integer)
+  On Error GoTo eh
+
+  Dim output As Boolean
+  output = False
+  Dim temp As String
+  temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(current_row)).Value
+
+  If (temp <> "") Then
+    output = True
+  End If
+
+  CheckIfBalanceSheetAmountToAdjust2Exist = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "CheckIfBalanceSheetAmountToAdjust2Exist:Error: " & Err.Description
+
+End Function
+
+Function isCurrentRowNeedToProcess(input_row As Integer)
+  On Error GoTo eh
+
+  Dim output As Boolean
+  Dim cell_value As Currency
+  Dim input_cell As String
+  input_cell = GRANDTOTAL_COL & input_row
+
+Done:
+  isCurrentRowNeedToProcess = Not (IsEmpty(Worksheets(ADJUSTMENT_WORKSHEET).Range(input_cell).Value))
+  Exit Function
+
+eh:
+  Debug.Print "isCurrentRowNeedToProcess:Error: " & Err.Description
+
+End Function
+
+Function getLastCheckRow(first_row As Integer)
+  On Error GoTo eh
+  getLastCheckRow = first_row + 10
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "getLastCheckRow:Error: " & Err.Description
+
+End Function
+
+Function checkAdjustmentSheetLastRow(current_row As Integer)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = True
+
+  Dim j As Integer
+  Dim temp As String
+
+  For j = current_row To getLastCheckRow(current_row)
+    temp = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(current_row)).Value
+    If (temp <> "") Then
+      output = False
+    End If
+  Next j
+
+  checkAdjustmentSheetLastRow = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "checkAdjustmentSheetLastRow:Error: " & Err.Description
+
+End Function
+
+Function checkBmfAdjustmentSheetLastRow(current_row As Integer)
+  On Error GoTo eh
+  Dim output As Boolean
+  output = True
+
+  Dim j As Integer
+  Dim temp As String
+
+  For j = current_row To getLastCheckRow(current_row)
+    temp = Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(current_row)).Value
+    If (temp <> "") Then
+      output = False
+    End If
+  Next j
+
+  checkBmfAdjustmentSheetLastRow = output
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "checkBmfAdjustmentSheetLastRow:Error: " & Err.Description
+
+End Function
+
+Function checkIfAlreadyExistInBmfAdjustmentResult(adj_bmf_id As String, adj_pcco As String, adj_sheet_row As Integer)
+  On Error GoTo eh
+
+  Dim i As Integer
+  Dim bmf_adjustment_sheet_last_row As Integer
+  Dim found As Boolean
+  found = False
+  Dim temp_value As String
+  Dim bmf_adj_bmf_id As String
+  Dim bmf_adj_pcco As String
+  Dim bmf_adj_pcec As String
+
+  Application.ScreenUpdating = False
+
+
+  bmf_adjustment_sheet_last_row = getBMFAdjustmentResultListEnd(1)
+
+  For i = 1 To bmf_adjustment_sheet_last_row
+    bmf_adj_bmf_id = Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(i)).Value
+    bmf_adj_pcco = Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(i)).Value
+    bmf_adj_pcec = Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCEC & CStr(i)).Value
+
+    ' debug.print bmf_adj_bmf_id
+    ' debug.print bmf_adj_pcco
+    ' debug.print adj_bmf_id
+    ' debug.print adj_pcco
+    ' debug.print bmf_adj_bmf_id = adj_bmf_id And bmf_adj_pcco = adj_pcco
+
+
+    If (bmf_adj_bmf_id = adj_bmf_id And bmf_adj_pcco = adj_pcco) Then
+
+      ' Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("B"&cstr(i)).value = Cstr(bmf_adj_bmf_id = adj_bmf_id)
+      ' Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("B"&cstr(i)).value = Cstr(bmf_adj_pcco = adj_pcco)
+
+      'Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(i)).Interior.Color = RGB(214, 48, 49)
+      paintRed (Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(i)))
+      ' Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(i)).Interior.Color = RGB(214, 48, 49)
+      paintRed (Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(i)))
+      paintRed (Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCEC & CStr(i)))
+
+      ' adj_sheet_row
+
+
+      found = True
+
+      Exit For
+    End If
+  Next i
+
+  checkIfAlreadyExistInBmfAdjustmentResult = found
+
+  Application.ScreenUpdating = True
+
+Done:
+  Exit Function
+
+eh:
+  Application.ScreenUpdating = True
+
+  Debug.Print "checkIfAlreadyExistInBmfAdjustmentResult:Error: " & Err.Description
+
+End Function
+
+Function getBMFAdjustmentResultListEnd(start_row As Integer)
+  On Error GoTo eh
+
+  Dim i As Integer
+
+  Dim last_row As Boolean
+  Dim last_row_found As Boolean
+  last_row_found = False
+  last_row = True
+  current_row = start_row
+
+  For i = start_row To 9999
+    current_row = i
+    last_row_found = checkBmfAdjustmentSheetLastRow(current_row)
+
+    If (last_row_found = True) Then
+      Exit For
+    End If
+  Next i
+
+  getBMFAdjustmentResultListEnd = current_row - 1
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "getBMFAdjustmentResultListEnd:Error: " & Err.Description
+
+End Function
+
+Function getAdjustmentSheetListEnd(start_row As Integer)
+  On Error GoTo eh
+
+  Dim i As Integer
+
+  Dim last_row As Boolean
+  Dim last_row_found As Boolean
+  last_row_found = False
+  last_row = True
+  current_row = start_row
+
+  For i = start_row To 9999
+    current_row = i
+    last_row_found = checkAdjustmentSheetLastRow(current_row)
+
+    If (last_row_found = True) Then
+      Exit For
+    End If
+  Next i
+
+  getAdjustmentSheetListEnd = current_row - 1
+
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "getAdjustmentSheetListEnd:Error: " & Err.Description
+
+End Function
+
+
+Sub resetBmfAdjustmentSheet()
+  init
+  Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("A4:BN9999").Clear
+
+End Sub
+
+Sub Main()
+  On Error GoTo eh
+  Dim need_to_copy As Boolean
+
+  Dim adjustment_sheet_first_row As Integer
+  Dim adjustment_sheet_last_row As Integer
+  Dim adjustment_sheet_current_row As Integer
+
+  Dim bmf_adjustment_sheet_last_row As Integer
+  Dim bmf_adjustment_sheet_current_row As Integer
+
+  Dim temp_value As String
+
+  adjustment_sheet_first_row = 7
+
+  init
+  ' MsgBox "helloworld"
+  adjustment_sheet_last_row = getAdjustmentSheetListEnd(adjustment_sheet_first_row)
+  Debug.Print adjustment_sheet_last_row
+
+  For adjustment_sheet_current_row = adjustment_sheet_first_row To adjustment_sheet_last_row
+    Debug.Print "processing adjustment_sheet_current_row: " & adjustment_sheet_current_row
+
+    ' if (CheckIfBalanceSheetAmountToAdjust2Exist(adjustment_sheet_current_row) and CheckIfBalanceSheetNa2Exist(adjustment_sheet_current_row) and CheckIfBalanceSheetPcco2Exist(adjustment_sheet_current_row)) then
+    If (CheckIfAdjustmentSheetBmfIdValid(adjustment_sheet_current_row)) Then
+      Debug.Print "processing row: " & adjustment_sheet_current_row
+
+      Dim bmf_id As String
+      bmf_id = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(adjustment_sheet_current_row)).Value
+
+      Dim bal_pcco_1 As String
+      bal_pcco_1 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_1 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim bal_pcco_2 As String
+      bal_pcco_2 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_2 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim off_bal_pcco_1 As String
+      off_bal_pcco_1 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCCO_1 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim off_bal_pcco_2 As String
+      off_bal_pcco_2 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCCO_2 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim bal_pcec_1 As String
+      bal_pcec_1 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCEC_1 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim bal_pcec_2 As String
+      bal_pcec_2 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCEC_2 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim off_bal_pcec_1 As String
+      off_bal_pcec_1 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCEC_1 & CStr(adjustment_sheet_current_row)).Value
+
+      Dim off_bal_pcec_2 As String
+      off_bal_pcec_2 = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCEC_2 & CStr(adjustment_sheet_current_row)).Value
+
+      ' balance sheet 1
+      ' check need to copy ? see amount to adjust <> 0 ?
+      If (CheckIfBalanceSheetAmountToAdjust1NoNeedCopy(adjustment_sheet_current_row, bmf_id, bal_pcco_1) = True) Then
+        ' do skip
+        Debug.Print "skip balance sheet 1"
+      Else
+        ' do copy
+        bmf_adjustment_sheet_last_row = getBMFAdjustmentResultListEnd(1)
+        bmf_adjustment_sheet_current_row = bmf_adjustment_sheet_last_row + 1
+        Debug.Print "bmf_adjustment_sheet_current_row:" & bmf_adjustment_sheet_current_row
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "14004"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_OPAQUE_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "N"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_INTERNAL_EXTERNAL_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "E"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_IFRS_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_FRENCH_GAAP_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_LIQ & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_STT & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_YLD & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_TYPE_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "01"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_ADJUSTMENT_TYPE & CStr(bmf_adjustment_sheet_current_row)).Value = "DQ"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_COMMENT & CStr(bmf_adjustment_sheet_current_row)).Value = "Unsettled bond adjustment for RWA purpose"
+
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCEC_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCEC & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_NA_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_LOCAL_OPERATIONAL_ACCOUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value & " " & "15130"
+
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("A" & bmf_adjustment_sheet_current_row & ":" & "BN" & bmf_adjustment_sheet_current_row).NumberFormat = "@"
+        ' Selection.NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+
+
+
+      End If
+
+      ' balance sheet 2
+      ' check need to copy ? see amount to adjust <> 0 ?
+      Debug.Print bal_pcco_2
+      If (CheckIfBalanceSheetAmountToAdjust2NoNeedCopy(adjustment_sheet_current_row, bmf_id, bal_pcco_2)) Then
+        ' do skip
+        Debug.Print "skip balance sheet 2"
+      Else
+        ' do copy
+        bmf_adjustment_sheet_last_row = getBMFAdjustmentResultListEnd(1)
+        bmf_adjustment_sheet_current_row = bmf_adjustment_sheet_last_row + 1
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "14004"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_OPAQUE_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "N"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_INTERNAL_EXTERNAL_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "E"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_IFRS_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_FRENCH_GAAP_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_LIQ & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_STT & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_YLD & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_TYPE_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "01"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_ADJUSTMENT_TYPE & CStr(bmf_adjustment_sheet_current_row)).Value = "DQ"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_COMMENT & CStr(bmf_adjustment_sheet_current_row)).Value = "Unsettled bond adjustment for RWA purpose"
+
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCCO_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_PCEC_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCEC & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_BALANCE_SHEET_NA_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_LOCAL_OPERATIONAL_ACCOUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value & " " & "15130"
+
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("A" & bmf_adjustment_sheet_current_row & ":" & "BN" & bmf_adjustment_sheet_current_row).NumberFormat = "@"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+
+      End If
+
+      ' off-balance sheet 1
+      ' check need to copy ? see amount to adjust <> 0 ?
+      If (CheckIfOffBalanceSheetAmountToAdjust1NoNeedCopy(adjustment_sheet_current_row, bmf_id, off_bal_pcco_1)) Then
+        ' do skip
+        Debug.Print "skip off-balance sheet 1"
+      Else
+        ' do copy
+        bmf_adjustment_sheet_last_row = getBMFAdjustmentResultListEnd(1)
+        bmf_adjustment_sheet_current_row = bmf_adjustment_sheet_last_row + 1
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "14004"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_OPAQUE_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "N"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_INTERNAL_EXTERNAL_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "E"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_IFRS_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_FRENCH_GAAP_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_LIQ & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_STT & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_YLD & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_TYPE_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "01"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_ADJUSTMENT_TYPE & CStr(bmf_adjustment_sheet_current_row)).Value = "DQ"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_COMMENT & CStr(bmf_adjustment_sheet_current_row)).Value = "Unsettled bond adjustment for RWA purpose"
+
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCCO_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCEC_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCEC & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_NA_1 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_LOCAL_OPERATIONAL_ACCOUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value & " " & "15130"
+
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("A" & bmf_adjustment_sheet_current_row & ":" & "BN" & bmf_adjustment_sheet_current_row).NumberFormat = "@"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+
+      End If
+
+      ' off-balance sheet 2
+      ' check need to copy ? see amount to adjust <> 0 ?
+      If (CheckIfOffBalanceSheetAmountToAdjust2NoNeedCopy(adjustment_sheet_current_row, bmf_id, off_bal_pcco_2)) Then
+        ' do skip
+        Debug.Print "skip off-balance sheet 2"
+      Else
+        ' do copy
+        bmf_adjustment_sheet_last_row = getBMFAdjustmentResultListEnd(1)
+        bmf_adjustment_sheet_current_row = bmf_adjustment_sheet_last_row + 1
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_FINAL_BMF_ID & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_BMF_REFERENCE_ID & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "14004"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_OPAQUE_REPORTING_ENTITY & CStr(bmf_adjustment_sheet_current_row)).Value = "N"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_INTERNAL_EXTERNAL_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "E"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_IFRS_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_FRENCH_GAAP_NORM_FLAG & CStr(bmf_adjustment_sheet_current_row)).Value = "Y"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_LIQ & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_STT & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PROCESS_IMPACTED_YLD & CStr(bmf_adjustment_sheet_current_row)).Value = "1"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_TYPE_CODE & CStr(bmf_adjustment_sheet_current_row)).Value = "01"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_ADJUSTMENT_TYPE & CStr(bmf_adjustment_sheet_current_row)).Value = "DQ"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_COMMENT & CStr(bmf_adjustment_sheet_current_row)).Value = "Unsettled bond adjustment for RWA purpose"
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCCO_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCCO & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_PCEC_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_PCEC & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_AMOUNT_TO_ADJ_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value
+
+        temp_value = Worksheets(ADJUSTMENT_WORKSHEET).Range(COL_OFF_BALANCE_SHEET_NA_2 & CStr(adjustment_sheet_current_row)).Value
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_LOCAL_OPERATIONAL_ACCOUNT & CStr(bmf_adjustment_sheet_current_row)).Value = temp_value & " " & "15130"
+
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range("A" & bmf_adjustment_sheet_current_row & ":" & "BN" & bmf_adjustment_sheet_current_row).NumberFormat = "@"
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_ACCT_BALANCE & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+        Worksheets(BMF_ADJUSTMENT_WORKSHEET).Range(COL_BMF_ADJUSTMENT_SHEET_AMOUNT_IN_FUNT & bmf_adjustment_sheet_current_row).NumberFormat = RED_THOUSAND_SEP_NUMBER_FORMAT
+
+      End If
+
+    Else
+      Debug.Print adjustment_sheet_current_row & " skipping copy as bmfid is empty"
+    End If
+
+
+  Next adjustment_sheet_current_row
+
+Done:
+  Exit Sub
+
+eh:
+  Debug.Print "helloworld:Error: " & Err.Description
+
+End Sub
--- a/natalie0312/task3/delivery1/Copy
+++ b/natalie0312/task3/delivery1/Copy
--- a/natalie0312/task3/delivery1/notes.md
+++ b/natalie0312/task3/delivery1/notes.md
@@ -0,0 +1,35 @@
+係"BMF Adjustment"入面...
+
+1. If "BMF 1690 2680" tab 嘅 "NA" is 1690/2690 —> "Line type" 填 Reversing
+2. If "BMF 1690 2680" tab 嘅 "NA" is 1020/2020/8601/8701 —> "Line type" 填 Creation
+3. Columns Highlight in yellow 填嘅資料都一樣, refer to following photo
+4. 係"BMF 1690 2690"入面...
+    Copy corresponding data in "BMF 1690 2690" to corresponding column in "BMF Adjustment"
+
+
+
+1. If "Raw Data" tab 嘅 "NA" is 1690/2690 —> "Line type" 填 Reversing
+2. If "Raw Data" tab 嘅 "NA" is 1020/2020/8601/8701 —> "Line type" 填 Creation
+3. Columns Highlight in yellow 填嘅資料都一樣, refer to following photo
+
+![](./_images/1.png)
+![](./_images/2.png)
+
+"BMF 1690 2690"           | To | "BMF Adjustment"
+--------------------------|----|-----------------------------------------------------
+BMF ID (Column C)         |    | BMF reference ID (Column A)
+PCCO (Column E)           |    | PCCO (Column G)
+PCEC (Column F)           |    | PCEC (Column H)
+Amount in acct (Column M) |    | Amount in acct balance, Amount in funt (Column J, K)
+NA (Column H)             |    | Local Operational Account (Column BN) + 15130
+
+
+
+Hello~ 唔知你仲記唔記得上次搵你幫我做嗰個vba係做啲咩呢
+今次同上次個做嘅野一樣，但多咗一個tab想你幫我copy 啲data去返嗰個tab，同埋加多咗一個要求
+
+我改咗你original 個 vba少少，所以我send我改咗嗰version + 新要求 + excel file 俾你睇先吖🙇🏻‍♀️🙇🏻‍♀️
+
+咁呀，有冇可能之後你得閒開個 call 講講你想點做?
+sor 有小許蠢睇唔明 👉👈
+