بحث فى جميع الشيتات عند اختيار الاسم

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

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

بحث فى كل الشيتات.xlsm

[محي الدين ابو البشر]

وعليكم السلام

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

 

بحث فى كل الشيتات.xlsm

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

الاستاذ الفاضل محى الدين بارك الله فيك ولا يحرمنا منك ومن اعمالك الرائعة ومن نهر علمك الواسع هذا هو المطلوب بالضبط الف شكر على مجهودك

[محي الدين ابو البشر]

بارك الله فيك أخي الكريم

شكراً لك

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

ربنا يبارك لنا فيكم وجزاكم الله خير

 

[lionheart]

Insert standard module and put the following code. Draw a shape or button and assign macro to it

Sub Test()
    Application.Run "Sheet1.Worksheet_Change", Sheet1.Range("C2")
End Sub

 

Or

Sub Test()
    Dim lr As Long
    With Sheets(Range("C2").Value)
        lr = .Cells(Rows.Count, 1).End(xlUp).Row - 5
        Sheet1.Cells(6, 1).Resize(lr, 6).Value = .Cells(6, 1).Resize(lr, 6).Value
        Sheet1.Range("C3") = .Range("C3")
    End With
End Sub

 

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

تسلم يارب وشكرا لكم