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

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

قام بنشر

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

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