Retrieve data from an Excel table into another table.

[julietterichelieu]

Hello,

I would like to retrieve data from an Excel table into another table.

In my table I have to retrieve in column AX, the data according to two criteria in column E and in column F

If in column E there is "VMO" and in column F there is "EKZEK" then take the value in column "AX" on the same line and give me the value "215" in cells N14 for example

Is it possible??

Thanks in advance

 

[mumps]

Try:

Sub retrieveData()
    Application.ScreenUpdating = False
    Dim v As Variant, i As Long, x As Long, srcWS As Worksheet, desWS As Worksheet, desRng As Range
    Set srcWS = Sheets("Data")
    Set desWS = Sheets("Inventaire")
    Set desRng = desWS.Range("B2", desWS.Range("B" & Rows.Count).End(xlUp))
    v = srcWS.Range("E2", srcWS.Range("E" & Rows.Count).End(xlUp)).Resize(, 9).Value
    For i = 1 To UBound(v)
        If v(i, 1) = "VMOB" Then
            If Not IsError(Application.Match(v(i, 2), desRng, 0)) Then
                x = Application.Match(v(i, 2), desRng, 0)
                With desWS
                    .Range("D" & x + 1).Resize(, 2).Value = Array(v(i, 8), v(i, 9))
                End With
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub