اذهب الي المحتوي
أوفيسنا

jaber77

عضو جديد 01
  • Posts

    2
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

عن العضو jaber77

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    manager
  • البلد
    jordan
  • الإهتمامات
    MS Excel
  1. نعم استاذي هذا هو المطلوب شكرا جزيلا وتقبل تحياتي وأسأل الله العلي القدير ان يحفظك
  2. 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
×
×
  • اضف...

Important Information