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

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

قام بنشر

كل الشكر والتحية لأخى الفاضل / هاني عدلى

على مجهوده الرائع

ولاثراء الموضوع

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


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = [E4].Address Then

[C8:E1000].ClearContents

Dim LR As Integer

LR = Sheets("ورقة1").Cells(Rows.Count, 3).End(xlUp).Row

For Each cl In Sheets("ورقة1").Range("C3:C" & LR)

If cl = [E4] Then

cl.Resize(1, 3).Copy

Range("C" & [C1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End If

Next

End If

End Sub

توجيه.rar

قام بنشر

أستغل هذه المشاركة لأستاذي ومعلمي ( الرائع ) (( رجب جاويش )) لأهنئك بعيد الفطر المبارك أعادة الله عليك وعلي الأمة الأسلامية بالخير والبركات

كل ألف سنة وأنت بصحة وسلامة أستاذي ومعلمي

(( عيد سعيد ))

قام بنشر

أخى الحبيب / محمود

يطيب لي تهنئتكم بحلول

عيد الفطر المبارك سائلا المولى الكريم ان يمن على الجميع بقبول الاعمال والطاعات وان يعيده عليكم وعلى الامة الاسلامية جمعاء بالخير والبركة وان يوفقنا جميعا لمرضاته

  • 1 month later...
قام بنشر

أليك أختي ماطلبت لقد تم إضافةعدد من الأعمدة أربع أعمدة لكل جانب مع زيادة نطاق البيانات ليستوعب الأعمدة الجديدة

وإذا أردت عدد معين فأنا تحت أمر حضرتك

3توجيه.rar

  • 2 weeks later...
قام بنشر

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

لقد قمت بعمل هذه الفكرة

هل هذا يناسبك

جربي المرفقات

استاذ هانى هل من الممكن ان اضيف اعمدة اخرى بنفس طريقة حضرتك

قام بنشر

الأخت / زهرة

وبعد اذن الأستاذ القدير هاني عدلي

لقلة تواجده في المنتدى هذه الأيام في خير وحفظ الله إن شاء الله

الطريقة المستخدمة هي عبارة عن تسجيل كود للتصفية المتقدمة

وقد أضفت عمودين ويكنك إضافة ما تريدين من الأعمدة فيما بعد

وقد أرفقت شرح فديو صامت يوضح الطريقة

وعلى فكرة لأستاذنا الكبير (كيماس ) أبو لميس شرح فديو وافي للطريقة التصفية المتقدمة

يمكنك الإستفادة منه

تسجيل كود للتصفية المتقدمة.rar

توجيه.rar

قام بنشر (معدل)

اساتذتى الاعزاء

الاستاذ / هانى عدلى

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

الاستاذ / mahmoud_lee

الاستاذ / الشهابى

اساتذتى بقية خبراء واعضاء منتدى اوفيسنا

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

تم تعديل بواسطه زهرة122
  • 2 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