ياسر خليل أبو البراء

بارك الله فيك اخي الغالي ابن مصر إنك بتدل الناس على طريق الباب الاخ الفاضل محمود معلش الجو كان برد اليومين اللي فاتوا فالباب كان مقفول ، بس إن شاء الله الجو لما يتزبط هتلاقي الباب مفتوح .. بس لما تدخل الباب متنساش تقفل الباب وراك أخاف على الأخوة الأعضاء اللي دخلوا الباب يجيلهم برد بسببي تقبلوا تحياتي

جرب أخي الغالي بان مصر تكتب حرف واحد وتضغط Enter....

ماذا عن هذا Private Sub UserForm_Initialize() With Me .Width = Application.Width .Height = Application.Height End With End Sub

جرب الملف التالي Data Iput.rar

إثراءً للموضوع هذا حل آخر بالأكواد Sub Test() Dim Cell As Range, Rng As Range On Error Resume Next Set Rng = Sheet1.Range("B2:E" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row) For Each Cell In Sheet2.Range("E2:E" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row) Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -3), Rng, 4, False) Next Cell End Sub

أخي الحبيب الكود بالفعل يقوم بمسح المجموعات أفقياً ..!! أفضل أن ترفق ملفك بشكل النتائج المتوقعة بعد الإدخال ..

أخي الحبيب جرب أن تكتب الشهر الذي تريده في الخلية A1 ثم نفذ الكود التالي (الرقم 20 يمكنك تغييره كما تريد) Sub FillMonths() Dim LastDataRow As Long LastDataRow = 20 Range("A1").AutoFill Destination:=Range("A1:A" & LastDataRow) End Sub

أخي الغالي الجموعي بعثت إليك برسالة خاصة .. يرجى مراجعة الخاص بارك الله فيك

بسم الله ما شاء الله أفكار خلاقة وإبداع بلا حدود تمت الإضافة للمكتبة بشكل أكيد .. ولكن مع تعديل النطاق فقط ..دا بعد إذنك طبعاً

بارك الله فيكم إخواني الكرام جاري العمل على الأكواد التي تقدمتم بها .. وإن شاء الله يتم إضافتها جزاكم الله خير الجزاء تقبلوا تحياتي

أخي الفاضل ما هو شكل النتائج بعد الإدخال ؟؟ حاول تحدد شكل النتائج المطلوبة ...حتى يسهل العمل وتسهل على من يريد المساعدة أخي الحبيب جدو الطيب أبو القبطان .. أنا فعلا أستاذ (معلم لغة إنجليزية) أشكرك على تشيجعك الدائم لتلميذك (تقبل تحياتي .. وودي .. وحبي .. وأشواقي .. ) اوعى تكون المدام جنبك لتغير مني

بارك الله فيك أخي الحبيب حسام على المتابعة الجيدة لمواضيع المنتدى جعل الله اعمالك في ميزان حسناتك يوم القيامة تقبل تحياتي (يا صياد السمك)

يكفيني تلك الدعوات منك أخي الحبيب جزيت خير الجزاء على دعواتك الطيبة ، ولك بمثل إن شاء الله

جزيت خيراً أخي الحبيب جزيت كل خير على كل ما تقدمه من إسهامات من شأنها أن ترقى بمستوى المشروع إلى المستوى الاحترافي جعل الله أعمالك في ميزان حسناتك وتشكر على التصحيح واعذرني إني بجرب الملف وأفليه .. إنت عارف إني لازم أشتغل فلاية .. أصل الأكواد عندي بتعدي على فلاااااااااااااااتر (فلاااااتر يا مصريين)

ارفق ملفك للإطلاع عليه

أخي الحبيب ابن مصر بارك الله فيك وجزاك الله كل خير يرجى مراجعة الكود الخاص بالتعقب ، جرب تغير خلية أو اتنين واعرف عنوان الخلايا ، وبعدين بص على الملف النصي اللي في المجلد اللي موجود على الـ C وقولي النتيجة ..عشان هتجنني شوية تطلع النتائج صحيحة وشوية غلط !

أهلا بك أخي الحبيب في المنتدى نورت بين إخوانك جرب هذا الرابط ربما تجد رداً على سؤالك إذا لم تجد يفضل طرح موضوع مستقل http://www.officena.net/ib/index.php?showtopic=58478

هل بالعمود أي خلايا بها تعليقات Comments؟

أخي الحبيب سليم بارك الله فيك أخي الفاضل خالد إليك فورم للبحث وتظليل النتائج Find Form.rar

أخي الحبيب التاج بارك الله فيك وجزيت خيراً على كلماتك الرقيقة ودعائك الطيب ..أرجو الله أن يتقبل دعائك بالنسبة للكود في المشاركة السابقة لم يكن يجلب كل البيانات ولم ألاحظ ذلك إلا الآن حيث أن هناك اسم ياسر في الصف رقم 20 لم يتم جليه بالكود السابق .. إليك الملف التالي فيه نسخ النطاق B2:C21 وكذلك التخلص من الفراغات ...وكذلك وضعت لك المصنفات الفرعية في مجلد . وضعت بعض التعليقات التي قد تفيدك في الكود ، ويمكنك الإطلاع على الكود بالضغط على Alt + F11 للدخول لمحرر الأكواد تفضل أخي الغالي بيانات الطلاب.rar

جرب أخي الحبيب المرفق التالي Get Data.rar

صراحة اطلعت على ملفك ، وأعتقد أنك من فترة طرحت نفس الطلب .. إذا لم تجد استجابة إذاً أخي أحمد الموضوع مبهم قليلا وإلا لكنت وجدت المساعدة في الحال سهل على إخوانك سهل الله عليك أولا يرجى تحديد طلبك بكل دقة بكل التفاصيل وشكل النتاج المتوقعة بعد تنفيذ الأكواد ..

أخي الكريم جرب الملف المرفق... إذا قمت بإدخال أكثر من 10 مجموعات أفقياً فلن يتم التعامل إلا مع 10 مجموعات فقط والباقي لن يلتفت إليه ادخال البيانات .rar

أشكرك يا أخي الحبيب على كلماتك المشجعة ، آملاً من الله عزوجل أن ينفع بهذا العمل جموع المسلمين .. وأرجو من الله أن تكون في ميزان حسناتنا جميعا من ساهم ولو بكود ولو بكلمة تشجيع .. ولو بإرشاد الناس إلى البحث في المكتبة .. المكتبة مهمة جداً لأنها تقوم بلم شمل الأكواد المبعثرة في كل مكان ، والإتيان بهذه الأكواد يجعل من البحث أمر يسير وسهل ، ومع الوقت أعتقد أنها ستكون الملاذ الأول للبحث قبل البحث في المنتدى أو البحث في المواقع المختلفة .. أو على الأقل ستكون الشرارة الأولى للبحث تقبل تحياتي أخي الحبيب أ إ

بارك الله فيك يا ابن مصر يا غالي تسلم على الأكواد الجميلة تمت الإضافة أيضاً في نفس الموضوع لتعميم الفائدة ... برجاء الاهتمام بشرح الأكواد التي تقوم بها والتنويه على إضافة المفيد منها للمكتبة ..إنتو نسيتو أمر المكتبة رغم عظم فائدتها .. للأسف بدأت أصاب بالإحباط !!!! الشديد !!! ولذلك قررت ألا أقوم بتحميل نسخة جديدة حتى يزال الإحباط من عندي (بجد والله أشعر بإحباط شديد .. أشعر أن البعض يتهمني بأن موضوع المكتبة موضوع شخصي لي فقط..وهذا هو سبب شعوري بالإحباااااااااااط) .. برجاء أخي الحبيب ابن مصر أنا مازلت أعمل على المكتبة ، ولذا أريد منك دائما الاهتمام بالشرح ..مدوا لي يد العون !!!