استعداء بيانات باستخدام القوائم المنسدلة

[علاء عامر]

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

 

المطلوب :: فضلا من حضراتكم

طريقة عمل ترحيل للبيانات بإستخدام القوائم المنسدبة

قمت برفع شيت بالمرفقات واوضحت المطلوب به في ورقة العمل رقم 3 " تفريغ توجيه ""

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

بيانات توجيه.rar

[ابراهيم الحداد]

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

انسخ هذا الكود والصقه فى حد الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$7" Then Exit Sub
Range("B11:C41").ClearContents
For R = 3 To Sheet1.Range("B" & Rows.Count).End(xlUp).Row
If Sheet1.Cells(R, "B") = Target Then
Range("B11:B41") = WorksheetFunction.Transpose(Sheet1.Range("D" & R & ":AD" & R))
Range("C11:C41") = WorksheetFunction.Transpose(Sheet1.Range("D2:AD2"))
End If
Next
For S = 11 To 41
If IsError(Cells(S, "B")) Or IsError(Cells(S, "C")) Then
   Cells(S, "B").ClearContents
    Cells(S, "C").ClearContents
    End If
Next
End Sub

 

[عبدالله الصاري]

كود رائع وسريع

في ميزان حسناتك

[علاء عامر]

جزاك الله خيرا  أستاذي الغالي

زيزو العجوز

كود رائع ..تمت بنجاح

بارك الله فيك ونفع بك

[الأستاذ / محمد الدسوقى]

كود فى منتهى الجمال بارك الله فيك استاذى الغالى