Нужна помощь в исправлении ошибки vba «1004» после редактирования раздела кода

Question

В некотором фоне я написал фрагмент кода, который циклически перебирает все книги в каталоге и выполняет функцию, а эта функция также выполняет другую функцию. Обе функции протестированы отлично и работают без проблем, пока я не помещу их в код, который проходит через все книги. я имел этот код изначально и не было никаких проблем с ним:

Set tbl = shtOfErrors.UsedRange 
tbl.Offset(2, 0).SpecialCells(2, 23).Select 
Selection.Resize(, 3).Select 

Я пытался избавиться от всех .select я имел в оригинальных функций, потому что он держал erroring, когда он был вызван в качестве части книги петля. Но теперь я получаю сообщение об ошибке 1004 приложения или объекта определяется здесь ошибка в строке 3:

Set tbl = shtOfErrors.UsedRange 
Set selrng = tbl.Offset(2, 0).SpecialCells(2, 23) 
Set seltbl = selrng.Resize(, 3) 

Answer 1

один вариант будет:

Set tbl = shtOfErrors.UsedRange 
Set tbl = Intersect(tbl, tbl.Offset(2, 0)).Resize(, 3).SpecialCells(2, 23) 

должны делать все, что вы хотите ... (не тестировался)

другой вариант:

Set tbl = shtOfErrors.Range("$2:$2", Rows(Rows.Count).Address).UsedRange.Resize(, 3).SpecialCells(2, 23) 

третий вариант будет:

Set tbl = shtOfErrors.UsedRange.Offset(2, 0).UsedRange.Resize(, 3).SpecialCells(2, 23)