جلب بيانات العميل من ملف

[عمر الجزاوى]

السلام  عليكم ورحمة الله وبركاته خبراء منتدى اوفيسنا عند 2 ملف ملف باسم الاستعلام وملف باسم العملاء ممكن كود يدرج مربوط العميل الموحود في شيت العملاء الى شيت الاستعلام بناء على اسم العميل وجزاكم الله خير

الاستعلام.xlsm العملاء.xlsm

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

تفضل اخى الكريم 

Option Explicit

Sub Test()
Dim WB As Workbook, WS As Worksheet, SH As Worksheet, sFile As String
Application.ScreenUpdating = False
Set WS = ThisWorkbook.Worksheets("ورقة1")
sFile = ThisWorkbook.Path & "\" & "العملاء.xlsm"
Set WB = Workbooks.Open(sFile, False)

    For Each SH In WB.Worksheets
    If SH.Name = WS.Cells(2, 3).Value Then WS.Cells(3, 3).Value = SH.Range("H2").Value
    Next SH
    WB.Close SaveChanges:=True

Application.ScreenUpdating = True
End Sub

 

[عمر الجزاوى]

استاذ حسونة الف شكر على الرد ولكن ليس هذا هو المطلوب  _ المطلوب عند اختيار الاسم من القائمة المنسدلة الموجودة فى شيت الاستعلام عند اختيار اسم عميل واحد ياتى بمربوط العميل 1 من شيت العملاء  واذا اخترت مرة ثانية مثلا عميل 3 يعطينى مربوط عميل 3 الموجود فى شيت العملاء فقط وهكذ ا

[حسونة حسين]

تم تعديل الكود في المشاركه السابقه 

 

[عمر الجزاوى]

ميه ميه تسلم ايديك الله يوفقك ويسعدك تعبتك معى شكرا على جهدك معى وهذا هو المطلوب

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات 

آمين يارب العالمين وإياكم اخى