jaber77

نعم استاذي هذا هو المطلوب شكرا جزيلا وتقبل تحياتي وأسأل الله العلي القدير ان يحفظك

Sub ex1() On Error Resume Next Dim Dept_Row As Integer, Dept_Clm As Integer Dim Table1 As Range, Table2 As Range, CL As Range Set Table1 = Sheet10.Range("A3:A2000") Set Table2 = Sheet1.Range("s3:w2000") Dept_Row = Sheet10.Range("b3").Row Dept_Clm = Sheet10.Range("b3").Column For Each CL In Table1 Sheet10.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(CL, Table2, 2, False) Dept_Row = Dept_Row + 1 Next CL End Sub Sub ex2() On Error Resume Next Dim Dept_Row As Integer, Dept_Clm As Integer Dim Table1 As Range, Table2 As Range, CL As Range Set Table1 = Sheet10.Range("A3:A2000") Set Table2 = Sheet1.Range("s3:w2000") Dept_Row = Sheet10.Range("c3").Row Dept_Clm = Sheet10.Range("c3").Column For Each CL In Table1 Sheet10.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(CL, Table2, 3, False) Dept_Row = Dept_Row + 1 Next CL End Sub