собираю макрос который должен скопировать данные из внешней книги и провести их сортровкуна соответствие признаку после чего удалить отброшенные ячейки для формирования пары столбцов без пустых ячеек. Огромное спасибо всем кто мне помогал до этого. Но сейчас я снова в тупике. При запуске отладки выдает invalid or unqualified reference на строке iRow = .Range("A" & .Rows.Count).End(xlUp).Row Если не трудно обьясните чем он недоволен чем ему переменная то не угодила?
| Код |
|---|
Sub макрос1()
Const iPath = "пример.xlsx"
Const iPath2 = "менеджер.xlsm"
Dim job As Workbook
Dim f As Integer
Set job = Workbooks.Open(iPath)
Set job2 = Workbooks.Open(iPath2)
Dim iRow, i, p As Integer
job.Worksheets("Август").Activate
Range("a:b,j").Copy
job2.Worksheets("Лист 3").Activate
Active.past
iRow = .Range("A" & .Rows.Count).End(xlUp).Row
For f = 1 To iRow
If Range(f, j).Value = "офсет" Then
.Cells(f, d) = Range(f, a).Value
.Cells(f, e) = Range(f, b).Value
Else
.Cells(f, d) = ""
.Cells(f, e) = ""
End If
Next
job.Close
On Error Resume Next
With Intersect(UsedRange, [d:e])
.Value = .Value: .SpecialCells(4).Delete xlUp
End With
End Sub |
Где то еще накосячено.