Как сделать оператор If в цикле For в VBA

Question

Я делаю проект в VBA, и у меня возникла проблема со следующим кодом ...

В нем говорится, что существует объект или неопределенная функция, но я не понимаю, почему ... Любая идея о том, в чем проблема?

(Все переменные объявлены, и я проверил имя листов)

Set FinalRange = ActiveWorkbook.Worksheets("Fiche Horaire").Range("A:A")
emptyroww = WorksheetFunction.CountA(FinalRange)

precautionroww = 0
If emptyroww > 50 Then precautionroww = emptyroww - 50

For a = precautionroww To emptyroww
    If ActiveWorkbook.Worksheets("Fiche Horaire").Cells(a, 1).Value = name Then ActiveWorkbook.Worksheets("Fiche Horaire").Cells(a, 4).Value = "it works"
Next

Сообщение, которое он выдает: «Ошибка приложения или объекта»

Answer 1

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

Это проблема в VBA, если у вас есть цикл for и начните с того жезначение как ваше «конечное» значение, чем я все еще выполняется 1 раз.