Я написал следующий код VBA, чтобы автоматически заполнить столбец "P" "ожидающим", "Не подлежит оплате", «-» на основе значения столбца "O".
Пользователь должен будет вручную ввести "завершить" в столбец "P", если задача выполнена. Это не заполняется автоматически.
Мне нужно убедиться, что последнее правило (если в столбце O указано "да", введите "в ожидании в столбец P"), если в столбце "P" уже указано "Complete".
Кто-нибудь может мне помочь? Довольно срочно. Спасибо!
Sub info()
Dim i As Long
For i = 11 To ActiveSheet.Cells(Rows.Count, 11).End(xlUp).row
If ActiveSheet.Cells(i, 15) = "No" Then
ActiveSheet.Range("P" & i) = "Not due"
End If
Next i
For i = 11 To ActiveSheet.Cells(Rows.Count, 11).End(xlUp).row
If ActiveSheet.Cells(i, 15) = "-" Then
ActiveSheet.Range("P" & i) = "-"
End If
Next i
**For i = 11 To ActiveSheet.Cells(Rows.Count, 11).End(xlUp).row
If ActiveSheet.Cells(i, 15) = "Yes" Then
ActiveSheet.Range("P" & i) = "Pending"
End If**
Next i
End Sub