Определяемая приложением или объектная ошибка с диапазоном и ячейками - PullRequest
Новая
       21

Определяемая приложением или объектная ошибка с диапазоном и ячейками

0 голосов
/ 31 мая 2018

Я пытаюсь использовать VBA для обновления ячеек на листе «Allocation TEST» в переменном количестве столбцов, найденных на листе «Worksheet».Код сохраняется в Module1.

Я получаю сообщение об ошибке в строке .Range.Что я делаю неправильно?

Sub resetDoors()
Dim TotalDoorsR As Integer
Dim rr As Integer

TotalDoorsR = ThisWorkbook.Sheets("Worksheet").Range("C14").Value

For rr = 0 To TotalDoorsR
    With ThisWorkbook.Sheets("Allocation TEST")
        .Range(.Cells(4, rr * 2), .Cells(18, rr * 2)).Value = "EMPTY"
    End With
    Next

On Error Resume Next

End Sub
...