новичок в VBA, так что это может быть быстрым решением, но у меня проблемы с этим кодом. Это в самом начале подпрограммы:
Sub NewDiscounts()
Dim iLastRow As Long
Dim wsOrg As Worksheet, orgnameB As Range, orgListB As Range
Set wsOrg = Worksheets("Org List")
iLastRow = wsOrg.Cells(Rows.Count, "B").End(x1Up).row
Set orgListB = wsOrg.Range("B3:B" & iLastRow)
Четвертая строка: iLastRow = wsOrg.Cells(Rows.Count, "B").End(x1Up).row
вызывает ошибку "Определено приложением или объектом", и я не уверен, почему, так как весь синтаксис кажется правильным. Вы знаете, почему это может быть так? Как это исправить? Спасибо!
xlUp
... букваl
как вlambda
, а не число1
.xl
---> Excel.Также добавьте
Option Explicit
в начало модуля. Это пометит необъявленную переменнуюx1Up
.