حمادة عمر

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

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك بالنسبة لشيت عام فلقد تم حمايته فقط في المرفق المرسل مني ولكن قم بازاله الحماية عليه ولن يتأثر بالكود فيما بعد فالكود لا يخصه حيث انه الشيت رقم 1 وفي الكود كما قلنا يبدأ الحماية وفك الحماية من الشيت رقم 2 كما في السطر التالي من الكود For i = 2 To Sheets.Count واليك الملف مرة اخري بدون حماية شيت عام وفي انتظار ردك تقبل خالص تحياتي تنفيذ كود مسح بيانات من شيتات مع حماية هذه الشيتات+.rar

جزاك الله خيرا تقبل خالص تحياتي وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

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

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك وبعد اذن اخي الفاضل / وليد فتحي ... جزاه الله خيرا والذي يسير في طريقه الي التميز ومساعدة الجميع تقبل الله منا ومنكم .. ووفقكم الله جرب هذه المحاوله مني علي حسب فهمي لطلبك ... واستخدم الكود التالي ضع رقم الصفحة الذي تريد الطباعه اليها في الفورم .. ثن اضغط زر طباعة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=TextBox1.Value, _ Copies:=1, Collate:=True End End Sub تقبلوا خالص تحياتي طباعة صفحات.rar

السلام عليكم الاخ الحبيب / فتحى ابوالفضل بارك الله فيك كل الشكر علي التهنئة الغالية من شخصكم الكريم وأسأل الله تعالي أن أكون دائما عند حسن الظن بي جزاك الله كل خير

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

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

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

السلام عليكم الاخ الحبيب / محمود الاسيوطى بارك الله فيك ضع الكود التالي في حدث الشيت Entry بالشكل التالي ليجعل الزر نشط او غير نشط لتنفيذ عملية الترحيل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("f14").Value = "يمكنك الترحيل" Then CommandButton1.Enabled = True ElseIf Range("f14").Value = "لا يمكنك الترحيل" Or Range("f14").Value = "ادخل بياناتك" Then CommandButton1.Enabled = False End If End Sub وقم بوضع الكود التالي في حدث زر الترحيل Private Sub CommandButton1_Click() Dim ws, ws1 As Worksheet Dim LR, LR1 As Long Dim iRow As Long Set ws = Worksheets("Database") Set ws1 = Worksheets("Entry") LR = ws.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 4).Value = ws1.[d14].Value ws.Cells(LR, 5).Value = ws1.[d15].Value ws.Cells(LR, 6).Value = ws1.[d16].Value ws1.Range("C20:F40").Copy ws.Select LR1 = ws.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row ws.Cells(LR1, 7).Select ws.Paste ws.[d3].Select MsgBox "الحمد لله... تم ترحيل القيد بنجاح" ws1.Select Range("C18").Select Application.CutCopyMode = False End Sub تقبل خالص تحياتي مثال على الترحيل-SAMA.rar

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك بالنسبة للشرح واين الخطأ ... انت تريد في الكود الخاص بك ان تقوم بمسح محتويات نطاقات معينة وهي Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents وفي نفس الوقت تقوم بحماية الشيتات من التعديلات ... فبالتالي عند تنفيذ الكود لعملية المسح .. سيتوقف ... حيث ان الشيت المحدد او الشيتات المحددة لعمل الكود محمية من التعديل وبالنسبة للكود ( السطر ) المستخدم منكم او من الاخ الفاضل / وليد فتحي فهو صحيح ولكن يخص الشيت النشط فقط ... فمثلا في الملف المرفق في مشاركتي يتم تشغيل المود من خلال شيت ( عام ) وبالتالي سيتم ازاله الحماية عن هذا الشيت النشط فقط وبالتالي تظهر معك الرسالة الخاصة بمسح المحتويات المطلوبة في الشيتات المحددة .. حيث انه لم يتم ازاله الحماية عنها لتنفيذ الكود ومسح البيانات الرسالة : يظهر run-time error 1004 ولذلك فقمت في التعديل علي الكود بالتالي واولا اليك الصورة التي يتم الشرح علي اساسها للجزءين المضافين اضافة الجزء التالي علي الكود وذلك حتي يتم اولا ازاله الحماية من علي الشيتات المحددة في بداية تنفيذ الكود بالجزء التالي وهي هنا في الشكل السابق اعتبارا من الشيت رقم 2 وحتي آخر شيت السطر التالي يقوم بامر الكود بالاكمال حتي في حاله وجود خطأ On Error Resume Next السطر التالي يتم وضع متغير اسمه i يكون اعتبارا من الشيت رقم 2 كما في الصورة التاليه حتي آخر شيت في الملف ( يقوم بعد الشيتات من 2 الي النهاية ) For i = 2 To Sheets.Count ثم نأمر الكود باختيار الشيت i وهو هنا كما قلنا الاختيار من الشيت رقم 2 الي النهاية وهو هنا في مثالنا يبدأ بعد الشيت ( عام ) ليشمل الشيتات (الاتوبيس - طائرة - مطروح - تعديل ) Sheets(i).Select السطر التالي يقوم بازالة الحماية عن الشيت النشط والذي تم حمايته بالرقم السري 1 والشيت النشط هنا هو الشيت i في كل مرة يقوم الكود باختيار شيت معين من الشيتات i ActiveSheet.Unprotect ("1") انهاء جمله for Next i ثم اعادته الحماية مرة اخري في نهاية الكود بالجزء التالي من الكود On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select Sheets(i).Select ActiveSheet.Protect ("1") Next i وهو نفس شرح الجزء السابق فيما عد الجزء الخاص ActiveSheet.Protect حيث يكون Protect وليس Unprotect لاعادة الحماية علي الشيتات i المحددة في الكود ارجو ان اكون قد وفقت في شرح المعلومة تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / عادل ابوزيد بارك الله فيك كل الشكر علي التهنئة الغالية من شخصكم الكريم وأسأل الله تعالي أن أكون دائما عند حسن الظن بي جزاك الله كل خير

اللهم آمين آمين آمين

في انتظار عودتك لنا بوعدك تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / krimo145 بارك الله فيك طالت غيبتك عنا ... لعله خيرا ان شاء الله ونحب ان نراك معنا دائما لك مني ارق التحيات جزاك الله خيرا

السلام عليكم الاخ الكريم / تركي بعد اذن اخي / أبوعيد ... جزاه الله خيرا اليك الطلب الثاني علي حسب فهمي للطلب .. هل هذا ما تقصده Copy of1 نقل محتويات صف عند وقوع شرط1.rar

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

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك بعد اذن اخي الفاضل / وليد فتحي ... جزاه الله خيرا استخدم التعديل التالي علي الكود الخاص بك لتنفيذ طلبك Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i '============================= For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! لم يتم التفريغ" End If '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select Sheets(i).Select ActiveSheet.Protect ("1") Next i '============================= Application.ScreenUpdating = True Sheets("عام").Select End Sub وان شاء الله سينفع معك او قم بوضع ملف كمثال للعمل عليه تقبل خالص تحياتي وجرب علي المرفقات تنفيذ كود مسح بيانات من شيتات مع حماية هذه الشيتات.rar

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

الاخ الكريم / ريان احمد بارك الله فيك شاهد الرابط التالي ... ان شاء الله به ما تريد بعنوان بحث بثلاثة معايير حسب الاختيار http://www.officena.net/ib/index.php?showtopic=33514

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

السلام عليكم منتهي الجمالي والروعة الاستاذ الحبيب / ابو حنين ... جزاك الله خيرا شرح راقي وسلسل واكثر من ممتاز ومشاركة مني ولو بمعلومة بسيطة وسط هؤلاء العمالقة الي الاخ / عبد الرحمن اي انك ان اردت ايضا ان يظهر اسم الملف بالامتداد الخاص به سيكون الكود كالتالي بدون المعادلات المذكورة والمشروحة من / ابو حنين Me.Label3.Caption = ThisWorkbook.Name والشكر موصول لصاحب الرد العملاق / رجب جاويش .. جزاه الله خيرا فهو دائما مبدع بكل المقاييس تقبلوا خالص تحياتي

السلام عليكم الاخ الحبيب / محمود_الشريف بارك الله فيك كل الشكر علي التهنئة الغالية من شخصكم الكريم وأسأل الله تعالي أن أكون دائما عند حسن الظن بي وان شاء الله تكون الصحة تمام وفي احسن حال جزاك الله كل خير

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