Страницы: 1
RSS
Почему ошибка в заголовке цикла For Each?
 
Добрый день, ув пользователи и программисты.
Подскажите пожалуйста, никак не разберусь, почему выдает ошибку в строке начала цикла:
Код
Sub Char()
    Dim ShList As Worksheet
    Dim ProdTb As ListObject
    Dim ProdRow As ListRow
 
    Set ShList = ThisWorkbook.Worksheets("Черновик")
    Set ProdTb = ShList.ListObjects("Ч_Прод_тб")
    
    For Each ProdRow In ProdTb.ListRows ' ошибка!
            
    Next ProdRow
End Sub 
 
Код
Dim ProdRow As Long

Если это не помогло, прикрепите к первому сообщению пример.
 
Подозреваю, что Long не поможет. Но действительно лучше прикрепить файл и объяснить, ЧТО Вы собираетесь перебирать в цикле.
 
Информация к размышлению.
Ошибок нет
Код
Sub Char()
    Dim ShList As Worksheet
    Dim ProdTb As ListObject
    Dim ProdRow As ListRow
  
    Set ShList = ThisWorkbook.Worksheets(1)
    Set ProdTb = ShList.ListObjects(1)
     
    For Each ProdRow In ProdTb.ListRows ' ??????!
     ProdRow.Range.Select
    Next ProdRow
End Sub
 
Цитата
RAN написал:
Информация к размышлению.Ошибок нет
вывод, кошак взломал обработчик ошибок. :D
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх