اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

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

قمت برفع شيت بالمرفقات واوضحت المطلوب به في ورقة العمل رقم 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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information