حمادة عمر

بارك الله فيك اخي الحبيب / قنديل الصياد وكل عام وانتم بخير والامه الاسلامية في احسن حال تقبل خالص تحياتي اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

جزاك الله خيرا تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ريان أحمد بارك الله فيك بالنسبة لطلبك فهو موجود في المشاركة رقم 224 مع الشرح للطريقة ولكنه كان لعمود واحد فقط وتم تعديل نفس الملف ( حيث انك لم ترسل ملف كمثال ) لتجميع عمودين في تكستات بوكس شاهد مجموع عمود ( العدد و عمود السعر ) في الليست بعد الاختيار من الكومبوبكس ارجو ان يفي بطلبك تقبل خالص تحياتي مجموع عمودين السعر والعدد في تكستات بوكس.rar مجموع عمودين السعر والعدد في تكستات بوكس وتجميعهما في تكست واحد.rar

لا يوجد اخي الكريم اي فورم في الملف المرفق منكم برجاء اعادة مراجعة الملف المرفق ويجب التأكد من انه عند حفظك للملف يجب ان يكون بامتداد XLSM وليس XLSX لضمان حفظ الفورم المطلوب لتنفيذ طلبك عليه تقبل خالص تحياتي

استخدم اخي الكريم معادلة VLOOKUP فمثلا قم بوضع المعادلة التالية في العمود D ثم قم بسحبها ثم بنفس الطريقة للايام بعد ذلك =VLOOKUP(A2;'30-07-2013'!$A$3:B6607;2;0)

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

السلام عليكم الاخت الفاضلة / أم عبد الله بارك الله فيكي بالفعل معادلة متقتة و اكثر من راائعة حل راائع واثراء اكثر للموضوع بك وبقدراتك الراائعة تقبلي خالص تحياتي

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

الأخ الحبيب / سيد رجب عذرا أخي الحبيب يجب عليك وضع هذا الطلب في موضوع جديد وذلك تبعا لقواعد المشاركات وقم بارسال رابط الموضوع لي علي الخاص او وضعه هنا وسوف اقدم لك كل ما في وسعي حسب حدود علمي ان شاء الله تقبل خالص تحياتي

الأخ الكريم / فتحي ابو الفضل بارك الله فيك تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / محمود الشريف تقبل الله منا ومنكم جزاكم الله خيرا

الاخ الكريم .... لم اقل ذلك انا فعلا الا ممازحا لك حيث اعجبتني ( آخر مرة ) وهو واضح في ردي اولا ... بلاش تهديد ياعم .... هههههههههههههههه تقبل خالص تحياتي

السلام عليكم الاخ الكريم / med-7 بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

ملفات مرفقة للكود الثاني ملف+1+ د.rar

واثراءا للموضوع يمكنك استخدام استبدال الاكواد الموجودة في الملف المرفق بالاكواد التالية Private Sub TextBox1_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox1 = "" Then Selection.AutoFilter Field:=3 Else Range("sama").AutoFilter , Field:=3, Criteria1:=CStr(TextBox1) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub '=========================================================== Private Sub TextBox2_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox2 = "" Then Selection.AutoFilter Field:=4 Else Range("sama1").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub وذلك لتنفيذ نفس المهمة او الوظيفة تقبل خالص تحياتي

تفضل اخي المرفقات ارجو ان تفي بطلبك ملف++ د.rar

السلام عليكم الاخ الكريم / Ahmed Habiba بارك الله فيك يمكنك تنفيذ ذلك اخي الكريم بوضع ارقام الاعمدة التي تريدها في الكود .. كما يلي ولتنفيذ طلبك قم باستبدال الكود الموجود لديك ( في المشاركة رقم 11 # ) بالكود التالي لتنفيذ طلبك Private Sub Worksheet_Change(ByVal Target As Range) LR = Sheets("تعديلات").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Target.Column = 1 Or Target.Column = 7 Or Target.Column = 11 _ Or Target.Column = 25 Or Target.Column = 26 And Not IsEmpty(Target) Then With Sheets("تعديلات") .Cells(LR, 1) = Target.Value .Cells(LR, 2) = Format(Now, "h:mm:ss") .Cells(LR, 3) = Format(Date, "dd-mm-yyyy") .Cells(LR, 4) = Target.AddressLocal .Cells(LR, 5) = ActiveSheet.Name End With: End If End Sub تقبل خالص تحياتي

اولا ... بلاش تهديد ياعم .... هههههههههههههههه ثانيا : بالنسبة لطلباتك او استفساراتك 1 - هل يمكن حذف ملف الاكسيل بعد فترة معينة حتى ولو لم يكن قيد التشغيل ...؟؟؟ == اعتقد ان طلباتك باستخدام الاكواد لا يمكن تنفيذها اخي الكريم حيث ان الكود لا يعمل في الملف الا اذا تم فتحه ولكن اخي الكريم يمكن التحايل علي مثل هذا الامر لتنفيذ المطلوب وذلك باستخدام المهام الخاصة بالويندوز لفتح الملف المطلوب في تاريخ معين والموجود به اكواد الانتحار او الحذف في نفس التاريخ ومن ثم يحذف الملف نفسه بعد الفتح مباشرة ولتنفيذ هذه الطريقة شاهد الرابط التالي http://www.officena....لف +تاريخ +محدد 2 - هل يمكن حذف الفورم فقط (مع أكواده ) والابقاء على ملف الاكسيل ...؟؟؟ بالنسبة لحذف الفورم فقط مع اكواده اعتقد انه يمكن تنفيذ ذلك ولكني احتاج لبعض الوقت وان شاء الله عند الوصول اليه سيتم ارساله لك ... حيث انه يوجد الكود الخاص بحذف ومسح الاكواد في الموديلات وقمت باستخدامه اكثر من مرة ولكني لم اتطرق لفكرة حذف الفورم ذاته ... سيتم العمل عليها وان شاء الله خيرا 3 - كود الحذف هل يمكن جعله مرتبط بتاريخ محدد كمثال يتم حذف الملف بتاريخ 12-2-2014 ....؟؟؟ == بالنسبة لهذ الطلب فهي نفس الاجابة علي السؤال الاول ارجو ان اكون قد اوضحت لك الامر وعذرا اخي الكريم علي التأخر في الرد ... ولكني بالفعل لم اشاهد الموضوع الا الآن تقبل خالص تحياتي

السلام عليكم الاخ الكريم / أبو محمد عباس بارك الله فيك مرور طيب وكريم من شخص كريم دائما تشرف المواضيع بحضورك المميز تقبل خالص تحياتي