عبدالله باقشير

الله اعلم لايوجد عندي Excel 2013

اخي الحبيب الجزيرة

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

السلام عليكم الشكر واصل لاختي الفاضلة / أم عبدالله تفضل هذه الاكواد استخدم منها ماتشاء 'تحويل الاحرف الصغيرة في بداية الكلمة الى كبيرة Sub kh_RngProper() Dim Cel As Range For Each Cel In ActiveSheet.UsedRange Cel.Value = StrConv(CStr(Cel), vbProperCase) Next End Sub ' احرف كبيرة Sub kh_RngUpper() Dim Cel As Range For Each Cel In ActiveSheet.UsedRange Cel.Value = StrConv(CStr(Cel), vbUpperCase) Next End Sub ' احرف صغيرة Sub kh_RngLower() Dim Cel As Range For Each Cel In ActiveSheet.UsedRange Cel.Value = StrConv(CStr(Cel), vbLowerCase) Next End Sub هذه الاكواد لجميع الخلايا في الشيت النشط اما اذا تريد تغير الى خلايا معينة استبدل في الكود ActiveSheet.UsedRange الى اي نطاق تريده مثلا Range ("A1:A1000") تحياتي

السلام عليكم بعد اذن اختي الفاضلة أم عبدالله ارجوا ان يكون هذا طلبك مربع++.rar

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

اخي الفاضل مجدي يونس

غير مفهوم هل تريد الناتج على صفين ؟؟

السلام عليكم الفورم الموجود معدل بطريقة غير صحيحة استبدلت الفورم بفورم احدث وايضا كود فتح الفورم غير صحيح اسم الورقة خطا وصف رؤس الاعمدة خطا تم تعديله Sub kh_Show_UFormChang2() On Error GoTo 1 With UFormChang .kh_SetAddrss "Collecter Sheet", "E12,D12,f12:as12", "C12" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub المرفق 2010 PF Template.rar

السلام عليكم ورحمة الله وبركاته اخي الحبيب حمادة عمر ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم زر البحث في اعلى الصفحة في اليسار

السلام عليكم ورحمة الله وبركاته اخي الفاضل احمد غانم ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب أبو حنين ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب رجب جاويش ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب وليد فتحي ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب ضاحي الغريب ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم هذا المرفق 2003 مع اضافة تنسيق لون الخط اضافة نطاق الى فورم بنفس التنسيقات 2003.rar

السلام عليكم جرب الكود التالي Sub kh_RngProper() Dim Cel As Range For Each Cel In ActiveSheet.UsedRange Cel.Value = StrConv(CStr(Cel), vbProperCase) Next End Sub تحياتي

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

السلام عليكم اضافة نطاق الى فورم بنفس تنسيقات خلايا النطاق هذا طلب لاحدهم على الرابط التالي http://www.officena.net/ib/index.php?showtopic=52564 جعلته هنا لتعم الفائدة ملحوظة : بالنسبة لعمل صورة للمخطط ليست من عملي وانما هي موجودة في ملف صاحب الطلب المرفق 2010 اضافة نطاق الى فورم بنفس التنسيقات.rar

السلام عليكم هل يتم النقل في الصف الاول او كل واحد حسب الصف الذي هو فيه انا عملت على كل واحد حسب الصف الذي هو فيه المرفق 2010 نبات.rar

السلام عليكم اخي الحبيب حمادة .........حفظكم الله ما في داعي للاعتذار ....وبالعكس اخي فان تعدد الاجابات يسهل وصول المعلومة بارك الله فيكم وجزاكم خيرا تقبلوا تحياتي وشكري

شاهذ المرفق 2003 2003بحث و شطب.rar

السلام عليكم تم تعديل العنوان ليتناسب مع الطلب , فارجوا الانتباه لهذا مستقبلا ضع هذه في الخلية B13 واسحبها الى اسفل =SUM(OFFSET($B$2;;ROW()-13;5)) تحياتي هذا التطبيق المرفق 2010 gs.rar

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