حمادة عمر

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

جزاك الله خيرا

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك وراك وراك برده .. في اي حته .. هههه لعمل ما تقصده اخي الكريم قم بتحديد النطاق الذي تريده بالماوس ان كان خليه او عده خلايا او كامل الورقة ثم اضغط كليك يمين تظهر القائمة اختار منها Format Cells او ( تنسيق خلايا ) ثم اختار منها تبويب Alignment او بالعربية ( محاذاة ) ثم قم بتفعيل الخيار الموضح بالصورة بوضع علامه ( الصح ) به المسمي Shrink to fit او بالعربي ( احتواء مناسب ) تقبل خالص تحياتي

جزاك الله خيرا اخي / محمد الخازمي

جزاك الله خيرا اخي استاذ / محمد الريفي تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك بالنسبة لطلبك الآخر الخاص بـ PrintArea .. وعذرا علي التأخير ولكن اعتقدت انك وصلت لما تريد وبعض مشغوليات الحياه فقط عموما سيكون الكود الخاص بك الذي تسخدمه في معاينه الطباعة مختلف بعض الشئ ( بتعديلات بسيطة ) عن الذي قمت بوضعه في مشاركتك حيث ستقوم بتحديد النطاق الذي تريده مرة واحد مع بعضه ثم اضافته لـ PrintArea ليمكنك المعاينة للثلاث نطاقات مع بعض تنفيذ ما تريد قمت بتطبيقه علي الملف الذي ارسلته لك في المشاركات السابقة .. قم بتجربته علي ملفك واخبرني بالنتيجة .. ان شاء الله يفي بطلبك Sub print_somwafaa() On Error Resume Next mahmoud_hide3 Sheets("som wafaa").Range("B3:h24,b26:h84,b86:g110").Select Sheets("som wafaa").PageSetup.PrintArea = "$b$3:$h$24,$b$26:$h$84,$b$86:$g$110" ActiveWindow.SelectedSheets.PrintPreview mahmoud_Unhide3 Sheets("som wafaa").Select End Sub تقبل خالص تحياتي

السلام عليكم الاخ الكريم /alaagold11 بارك الله فيك شاهد اخي الكريم المرفق المطلوب ... ان شاء الله يفي بطلبك تقبل خالص تحياتي حماية خلية معينة من التعديل فيها وظهور رسالة والرقم السري علي شكل نجوم.rar السلام عليكم لك مني اخي الكريم دعوة علي الرابط التالي تقبل خالص تحياتي

جزاك الله خيرا اخي الكريم

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك بالنسبة لطلبك الاول والخاص بطلب كود لعدم الحفظ او عدم الحفظ باسم .. استخدم الكود التالي ضعه في حدث الـ ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True SaveAsUI = False MsgBox "You cannot save a copy of this workbook!" End Sub وبالنسبة لطلبك الثاني الخاص بالحماية لمحرر الاكواد .. اليك الرابط التالي .. قم بتحميل الدرس السادس من المرفقات فيه الطريقة بالشرح خطوة خطوة وبالصور وبالنسبة لطلبك الثالث بخصوص الملف التنفيذي exe قم بالبحث في المنتدي عن طلمه ( تنفيذي ) .. واليك رابط احد المواضيع به طلبك لحبيب القدير / شوقي ربيع ... جزاه الله خيرا ان شاء الله به طلبك تقبل خالص تحياتي

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

برجاء ارفاق ملف كمثال اخي الكريم

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

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

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

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

وفقك الله .. انت في الطريق الصحيح باذن الله تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك اولا لا يوجد داعي لاي اسف فكلنا هنا اخوة الكل يشارك لافادة بعضنا البعض بالنسبة لاخفاء الاعمدة اليك كود بسيط لاخفاء الاعمدة التي تحددها انت ويمكنك دمجها مع الاكواد السابقة الكود يكون كالتالي مع الشرح Sub hide_Column() 'hide_Column طبعا السطر السابق كما اتفقنا هو بداية الكود ثم تسميته واسمه هنا Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True 'Sheet1السطر السابق نحدد فيع اولا الشيت المراد تنفيذ امر الاخفاء عليه وهو هنا في الكود 'F,I,K,Oثم نقوم بتحديد نطاق الاعمدة المراد اخفاؤها كما نريد وهو هنا الاعمدة ' F ويجب عند تحديد النطاق للعمود الواحد ان يكتب بالشكل الموجود في الكود فمثلا للعمود 'F:F يكون النطاق بهذا الشكل اي العمود من بابه .. يعني End Sub 'السطر السابق هو نهاية الكود كما اتفقنا سابقا ولا نسيت فيمكنك اخي الكريم استخدام هذا السطر للاخفاء : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True ثم قم باستخدام نفس السطر للاظهار ولكن بتغيير بسيط وضع FALSE مكان TRUE كالتالي : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = False ارجو ان اكون قد وفقت في شرح المطلوب واس استفسار معك دائما باذن الله تقبل خالص تحياتي

جزاك الله خيرا اخي الكريم

السلام عليكم الاخ الكريم / محمود أبوالدهب جزاك الله خيرا اولا : شكرا لك انت علي الاستجابة للدعوة .. ايوه كده يا عم .. النبي عربي ثانيا : جميعنا بدأ هنا في هذا المنتدي وان شاء الله تصبح احد خبراؤه .. والكل هنا اسرة واحدة متحابه في الله ثالثا : اليك شرح الاكواد المرفقة لكفي الملف السابق سطر سطر بالصور وملف اكسيل مرفق في المرفقات رابعا : بخصوص موضوع شيك بوكس اليك الرابط التالي عله يفيدك باذن الله او قم بوضع طلبك في موضوع جديد وسيتم الرد عليه وتزيد الاستفادة من آراء الجميع باذن الله واي استفسار معك دائما باذن الله تقبل خالص تحياتي شرح الكود سطر سطر .rar

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

جزاك الله خيرا

اليك اخي الكريم الملف المرفق به طلبك .. علي حسب فهمي له تقبل خالص تحياتي تعديل + وبحث.rar

شاهد المرفق ... الصف الاول chekbox.rar

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

جرب الماكرو التالي اخي الكريم Sub Macro1() ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Add Key:=Range("G7:G211") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Add Key:=Range("K7:K211") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة1").Sort .SetRange Range("A6:L211") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub