اذهب الي المحتوي
أوفيسنا

ترحيل بيانات من خلال قائمة منسدله


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

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

الاستاذ والاخ الحبيب رجب جاويش المحترم حفظك الباري عز وجل معادلات وحل رائع جعله الله سبحانه وتعالى في ميزان حسناتك

دمتم في رعاية الله وحفظه

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

وهذا حل آخر عن طريق كود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Integer, x As Integer
Dim sh As Worksheet
Set sh = Sheets("ورقة3")
LR = sh.[F10000].End(xlUp).Row

If Target.Address = [G2].Address Then
[E5:G1000].ClearContents
x = 5
For Each cl In sh.Range("G6:G" & LR)
    If cl = [G2] Then
        Range("F" & [F10000].End(xlUp).Row + 1) = cl.Offset(0, -1)
        Range("E" & [E10000].End(xlUp).Row + 1) = x - 4
        x = x + 1
    End If
Next
End If
Set sh = Nothing
End Sub

يعمل عند اختيار المادة من القائمة المنسدلة

النشاط2.rar

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

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

المتألق دائما في حلوله وابدعاته الاخ الكريم الاستاذ رجب جاويش

سلمت والله علي طرحك المتميز دائما

دمت ودامت ابدعاتك لنا وبارك الله لك في علمك وعملك ورزقك واولادك

تقبل تحياتي

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

أستاذى ومعلمى الرائع الجميل ( رجب جاويش ) ماشاء الله عليك معادلات أكواد شئ رائع بجد بارك الله فيك

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

ترحيل بيانات3.rar

ترحيل بيانات4.rar

تم تعديل بواسطه mahmoud-lee
  • Like 3
رابط هذا التعليق
شارك

أخى الفاضل / ضاحى الغريب

جزاك الله كل خير أخى الفاضل على هذه الكلمات العطرة والدعاء الطيب

الذى أدعو الله أن يعطيك بمثل هذ الدعاء أضعافا مضاعفة

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

استاذى الجليل رجب جاويش

لك الشكر والتحية والامتنان

فانت بحق زهرة عطرة في حديقة اوفيسنا

جزاك الله خيرا بعلمك

والتحية واجبة للدينامو الرائع دائما استاذى  mahmoud-lee الذى لا يتوانى في تقديم المساعده للجميع

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

  • 6 years later...

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information