Snasui Excel Forum

Code: Select all

        With Bbook.Worksheets("BOM List SX3000II")
            Set rAll = .Range("R5", .Range("R" & .Rows.Count).End(xlUp))
        End With
        With Qbook.Worksheets("QTY")
            For Each r In rAll
                If r.Value = .Range("F2").Value Then
                    l = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
                    For i = 0 To UBound(IIrs)
                       .Range(Qrs(i) & l).Value = r.Parent.Cells(r.Row, IIrs(i)).Value
                    Next i
                End If
            Next r
        End With
        Bbook.Close

Code: Select all

'Other code...
With Qbook.Worksheets("QTY")
    For Each r In rAll
'                If r.Value = .Range("F2").Value Then
        If VBA.InStr(r.Value, .Range("f2").Value) > 0 Then
            l = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
            For i = 0 To UBound(Fors)
               .Range(Qrs(i) & l).Value = r.Parent.Cells(r.Row, Fors(i)).Value
            Next i
        End If
    Next r
End With

'Other code...