Для l oop копирование ячеек с одного листа на другой работает, но дает ошибку в конце цикла - PullRequest
Новая
       9

Для l oop копирование ячеек с одного листа на другой работает, но дает ошибку в конце цикла

0 голосов
/ 18 июня 2020

Я написал простой код For, который на самом деле работает, но после того, как он предоставит мне все нужные мне значения, он выдает ошибку «run-time-13 type not matching». Я копирую код в надежде, что более внимательный взгляд может что-нибудь уловить. Большое спасибо, если вы посмотрите. 

Sub REPORT()

Dim ipt As String
Dim foc As Worksheet

Set foc = ActiveSheet

ipt = foc.Range("C2")

a = Worksheets("DB").Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To a

If Worksheets("DB").Cells(i, 5).Value = ipt And Worksheets("DB").Cells(i, 24).Value = "Achieved" Then

B = Worksheets("field").Cells(Rows.Count, 2).End(xlUp).Row

Worksheets("field").Activate

Worksheets("field").Cells(B + 1, 2) = Worksheets("DB").Cells(i, 4)


End If
Next


End Sub
...