Итак, у меня возникли некоторые проблемы с поиском и копированием содержимого из одной книги из другой, вот мой код:
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)» при выполнении.
Спасибо.