Ошибка 91, когда я пытаюсь изменить строку на переменную (VBA) - PullRequest
0 голосов
/ 14 декабря 2018

Итак, у меня возникли некоторые проблемы с поиском и копированием содержимого из одной книги из другой, вот мой код:

Sub beta()


Dim actual As Workbook: Set actual = ActiveWorkbook
Dim brf As Workbook: Set brf = Workbooks.Open(Filename:="brf.csv", Local:=True)
brf.Sheets("brf").Range("A1:E1").Delete
brf.Sheets("brf").Range("D:D").NumberFormat = "@"
Dim numerofilas As Integer
Dim etiqueta As String
Dim caudal As Double
actual.Activate

numerofilas = actual.Sheets(1).Range("C1", Range("C1").End(xlDown)).Rows.Count

actual.Sheets(1).Range("H1").Select
For x = 1 To numerofilas
    etiqueta = ActiveCell.Text
    ActiveCell.Offset(0, -1).Value = 
    brf.Sheets("brf").Range("D:D").Find(etiqueta).Offset(0, 1).Value

    ActiveCell.Offset(1, 0).Select
    Next

End Sub

Внутри цикла For (), когда я назначаю etiqueta как "123"он работает отлично, но когда я пытаюсь назначить ActiveCell.Value, я получаю «Ошибка (91)» при выполнении.

Спасибо.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...