Получение ошибки приложения при настройке диапазона - PullRequest
Новая
       19

Получение ошибки приложения при настройке диапазона

0 голосов
/ 16 октября 2018

При попытке установить диапазон я получаю определенную приложением или возражаемую ошибку.Первые 4 работают вообще без проблем, поэтому я не уверен, почему 5 (CD_entireRange) доставляет мне проблемы.(Я намеренно пропустил большинство переменных и просто добавил то, что мне показалось важным, иначе это 500-строчный код) 

Dim CD_entireRange As Range

CD_datetimeColumn = 1
CD_weekofColumn = 18
CD_callernumberColumn = 3
CD_talktimeColumn = 8
CD_uniqueduplicateColumn = 14

CD_callendRow = Cells(Rows.count, 1).End(xlUp).Row
CD_callendCol = Cells(1, Columns.count).End(xlToLeft).Column

Set calldataFile = ActiveWorkbook.Sheets("Calls")

With calldataFile
    Set CD_weekofRange = .Range(.Cells(2, CD_weekofColumn), .Cells(CD_callendRow, CD_weekofColumn))
    Set CD_callernumberRange = .Range(.Cells(2, CD_callernumberColumn), .Cells(CD_callendRow, CD_callernumberColumn))
    Set CD_talktimeRange = .Range(.Cells(2, CD_talktimeColumn), .Cells(CD_callendRow, CD_talktimeColumn))
    Set CD_uniqueduplicateRange = .Range(.Cells(2, CD_uniqueduplicateColumn), .Cells(CD_callendRow, CD_uniqueduplicateColumn))
    Set CD_entireRange = .Range(.Cells(2, CD_datetimeColumn), .Cells(CD_callendRow, CD_callendCol))
End With

Я пытаюсь определить весь диапазон, чтобы я мог сделать что-то вродеданные по конкретным столбцам.

При запуске отладки все мои переменные заполняются правильно.Код такой же, как и над 4, поэтому, опять же, не уверен, почему я получаю сообщение об ошибке.

...