Vlook or index or match dosn't give me what i want

[احمد ديرو]

السلام عليكم,

 اريد ان احصل علي البيانات من الورقة "انبوت " الي الورق الاخر لقد وضعت مثلا لما اريد ان احصل عليه عن طريق فانكشن مناسبة  ولكن دائما ما يكون هناك اضافة لعمود اخر فيه ارقام ترتيب مثلا او ماشابه انا لا ايرد ذلك 
المثال في الورقة "تفاح" للتوضيح فقط لم استخدم اي فانكشن. لا اريد استخدام شء فيه"روو" لاني لا اريد خانة فيها ترتيب اعداد. فقط نفس الشكل في الصفحه التي ادرجتها  

Kopie von obst.xlsx

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته  ..تفضل اخي 

Sub Data_Transfer()
    On Error GoTo Fin
    Application.ScreenUpdating = False
    Dim MH%, MH2%, F
    MH = [A65500].End(xlUp).Row
    For Each F In Worksheets
        If F.Name <> "Input" Then
            With Sheets(F.Name)
                .Range("A1:E10000").ClearContents
              .Cells(1, 1) = F.Name: .Cells(1, 2) = "Kg": .Cells(1, 3) = "€"
            End With
        End If
    Next F
    For L = 2 To MH
        Feuille = Cells(L, "A")
        If Feuille = "" Then Exit Sub
        With Sheets(Feuille)
            .Cells(.[C65500].End(xlUp).Row + 1, 2) = Cells(L, 3)
            .Cells(.[C65500].End(xlUp).Row + 1, 3) = Cells(L, 5)
        End With
    Next L
    Exit Sub
Fin:
    MsgBox "The sheet " & Cells(L, "A") & " does not exist."
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub clear()
    Dim ws As Worksheet
    For Each ws In Worksheets
    If ws.Name <> "Input" Then
        ws.Range("a1:c1000").ClearContents
    End If
    Next ws
    
End Sub

Kopie von obst_MH.xlsm