Я работаю над макросом статуса счета - проблема с формулой Ragne (с использованием функций if и match)

Question

Цель:

Мне нужно назначить текущий статус для счетов на основе статуса, срока оплаты, номера платежа и суммы баланса

Если статус POSTED, номер платежа доступен, и нет статус суммы баланса должен быть "Счет полностью оплачен"

один следующий, если условие

Sub Status () '' Макрос состояния '

' Dim ColNumST как целое число Dim ColNumDD как целое число Dim ColNumPN как целое число Dim ColNumPA как целое число Dim ColNumIN как целое число Dim ColNumCS как целое число

Dim SelRange как диапазон Dim CWS как рабочий лист

Sheets("All Invoices").Select
Range("A1").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Pending Invoice"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Pending Amount"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Current Status"

Set CWS = ActiveSheet

ColNumST = Application.WorksheetFunction.Match("Status", CWS.Rows(1), 0)
ColNumDD = Application.WorksheetFunction.Match("Invoice Due Date", CWS.Rows(1), 0)
ColNumPN = Application.WorksheetFunction.Match("Payment Number", CWS.Rows(1), 0)
ColNumPA = Application.WorksheetFunction.Match("Pending Amount", CWS.Rows(1), 0)
ColNumIN = Application.WorksheetFunction.Match("Invoice#", CWS.Rows(1), 0)
ColNumCS = Application.WorksheetFunction.Match("Current Status", CWS.Rows(1), 0)


Set SelRange = CWS.Columns(ColNumST)
Set SelRange = CWS.Columns(ColNumDD)
Set SelRange = CWS.Columns(ColNumPA)
Set SelRange = CWS.Columns(ColNumPN)
Set SelRange = CWS.Columns(ColNumIN)
Set SelRange = CWS.Columns(ColNumCS)



lastrow1 = ThisWorkbook.Worksheets("All Invoices").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow1

If Range ("ColNumST" & i). Значение = "POSTED" И Диапазон (ColNumPN & i). Значение> 1 И Диапазон (ColNumPA & i). Значение = 0 Тогда

Диапазон ("ColNumCS"). Значение = "Счет полностью оплачен"

Else