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

اريد توزيع مدارس على الموجهين


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

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

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

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

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


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