for, если true, если a = b copy

Question

For i = 2 To finalrow
   If Range("J100").End(xlUp).Offset(1, 0).Value = "" & Range("J100").End(xlUp).Offset(1, -3).Value <> "" Then
     If Cells(i, 14) = Vlot Then
       Sheet7.Range(Cells(i, 14)).Copy
       Sheet7.Range("J100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
     End If
Next i

Я получаю следующий без ошибок.Любая помощь будет отличной, спасибо!

Answer 1

Пожалуйста, попробуйте это :)

For i = 2 To 8
   If Range("J100").End(xlUp).Offset(1, 0).Value = "" And Range("J100").End(xlUp).Offset(1, -3).Value <> "" Then
        If Cells(i, 14) = Vlot Then
          Sheet7.Range(Cells(i, 14)).Copy
          Sheet7.Range("J100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
        End If
    End If
Next i