عبدالله المجرب

ضع مرفق به توضيح لطلبك

حياك الله بارك الله فيك

ضع هذا الكود في حدث الورقة ثم جرب كتابة اي كلمة في خلايا العمود C وسيتم اضافة القيمة السابقة الى ما قمت بادخاله Dim OldValue Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub With Application .ScreenUpdating = False .EnableEvents = False End With If Not Intersect(Target, [C5:C23]) Is Nothing Then Target = Target & " " & OldValue End If OldValue = vbNullString With Application .ScreenUpdating = True .EnableEvents = True End With End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target End Sub

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

ضع مرفق تبين به ما تريد

تفضل المرفق القائمة المنسدلة الخاصة بالكفيل تبداء من الصف W2 2.zip

برنامج رائع ان شاء الله تستمر بهذا النشاط اخي ابو حنين

السلام عليكم هذا هو اختصار التصفية التلقائية (ctrl + shift + L

ردي كان اقتباس من مرفق اخي احمد لكلمات اعجبتني من الموضوع

السلام عليكم هل هكذا تقصد UserForm1&2.rar

اخي alhami احسنت - مشاركة مميزة

بارك الله فيك اخي أحمد

مبارك اخونا تومي على الترقية المستحقة

اتقدم بالاصالة عن نفسي ونيابة عن جميع الاعضاء بالتهنئة الى الاخوين الكريمين 1. alidroos (العيدروس - ابونصار) بمناسبة ترقيته الى خبير معتمد 2. رجب جاويش بمناسبة ترقيته الى عضو محترف وان شاء الله نرى فيهما النشاط المعهود دائماً === وشكرا لادارة المنتدى للتحديث والتطوير وشكرا للمتابعة والتقييم سينقل الموضوع الى المنتدى الاجتماعي بعد فترة

الحمدلله ونسال الله ان يفرج عن اخواننا في سوريا الحبيبة

السلام عليكم جزاك الله خيراً ابا ادم على التذكير دعاء لاهل سوريا اللهم إنا نسألك و نتوسل إليك بأسمائك الحسنى و بأنك أنت الله الذي لا إله إلا أنت وحدك لا شريك لك نسألك اللهم أن تصلي و تسلم و تبارك على سيدنا محمد و على آله وصحبه وسلم تسليماً كثيراً ونسألك يا الله يا غياث المستغيثين ويا أمان الخائفين أن تغيث أهل سوريا اللهم أغث أهل سوريا .. اللهم أغث أهل سوريا.. اللهم أغث أهل سوريا اللهم .. اكشف عنهم الكرب.. اللهم عجّل بالفـرج.. اللهم ألف بين قلوبهم .. اللهم وحد كلمتهم على الحق يارب العالمين ... يا ذا الجلال والإكرام.. يا حي يا قيوم ياودود يا ودود... يا ذا العرش المجيد... يا مبدئ يا معيد...يا فعالا لما يريد... نسألك بنور وجهك الذي ملأ أركان عرشك ونسألك بقدرتك التي قدرت بها على جميع خلقك.. نسألك اللهم أن ترحم أهل سوريا .. اللهم مدهم بممدك .. اللهم ظللهم بالغمام اللهم وظللهم بملائكتك ورحمتك .. اللهم وظللهم بعفوك وعنايتك .. اللهم اشدد ازرهم ..واربط على قلوبهم ...اللهم وأنزل عليهم دفئا وسلاما وأمنا وأمانا.. اللهم وأنزل عليهم صبراً وثبت أقدامهم وانصرهم على القوم الظالمين .. اللهم اجعل فى قلوبهم نورا وفى سمعهم نورا من فوقهم نورا ومن تحتهم نورا وعن يمينهم نورا وعن شمالهم نورا.. يالله يالله يالله ياقوي ياعزيز ياناصر المستضعفين ياولي المؤمنين نسألك برحمتك وعفوك وكرمك وجودك وإحسانك أن تتقبل شهدائهم وأن تشفي مرضاهم اللهم ارحم الأمهات الثكالى والزوجات الأرامل والشيوخ الركع والأطفال اليتامى من لهم إلا أنت .. من ناصرهم إلا أنت .. من رحيمهم إلا أنت .. من وكيلهم إلا أنت .. اللهم اضرب الظالمين بالظالمين اللهم شتت شملهم وفرق جمعهم اللهم مزقهم كل ممزق اللهم أحصهم عددا و اقتلهم بددا ولا تغادر منهم أحدا اللهم وألق الرعب في قلوبهم اللهم وأخرج المسلمين من بينهم سالمين غانمين منصورين إنك على كل شئ قدير و بالاجابة جدير اللهم هاهم أهل سوريا قد خرجوا طالبين نصرتك وعونك ومددك وفرجك وعفوك اللهم لا تخيب لهم رجاء اللهم لا تقفل أبوابك دونهم اللهم كن لهم ولاتكن عليهم برحتمك وجودك وكرمك ياأرحم الراحمين اللهم هذا الدعاء ومنك الإجابة وهذا الجهد وعليك التكلان ولاحول ولاقوة لنا ولهم إلا بك اللهم صل على محمد عدد ماذكره الذاكرون وغفل عن ذكره الغافلون وصل على محمد عدد خلقك ورضا نفسك وزنة عرشك ومدادكلماتك واجعل لنا بالصلاة عليه من كل هم وغم فرجاً ومخرجاً يارب العالين اللهم آمين اللهم آمين اللهم آمين

السلام عليكم ملف مميز واقترح جعل القائمة المنسدلة متغير حسب عدد ايات السورة

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

السلام عليكم اليك شرح الكود http://youtu.be/w10cjZ8bJXA

السلام عليكم ما تطلبه اخي الفاضل يتطلب المزيد من الجهد والوقت وهذا غير متوفر لي حالياً والله اعلم

تم فصل الموضوع كونه تم وضعه في موضوع قديم ان شاء الله ستكون لي محاولة في الغد لعمل حل للطلب

معلومة مفيدة بالفعل شكراً لك

حسب فهمي للمطلوب هكذا سيصبح الكود Sub Abu_Ahmed() Dim cl As Range For Each cl In [E2:Lu2] If cl = [B2] Then cl.Select: Exit Sub Next End Sub

ملف ممتاز وعملي لمتابعة أمم اوربى

السلام عليكم ضع هذا الكود في زر امر (مع مراعاة تطابق الاسماء) Sub Abu_Ahmed() Dim cl As Range For Each cl In [B5:B200] If cl = [B2] Then cl.Select: Exit Sub Next End Sub