اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رجب جاويش

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3492

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    41

 نوع المحتوي 

كل منشورات العضو رجب جاويش

  1. رجب جاويش
    أخى الفاضل هذا الخطأ يحدث لأن الخلية A14 فى الصفحة السابعة والثامنة فارغة ضع فيها أى رقم أو دالة للترقيم مثل الصفحات الأخرى سيعمل الكود بدون أى مشاكل أما الرقم 5 وهو يعنى العمود الخامس فعلا لكن يتم حذف الصف بكاملة ويمكنك تغيرة الى رقم آخر دون مشاكل ( المهم وجود مدى معين فقط )
  2. رجب جاويش
    أخى الفاضل المجموع موجود فى الصفين 34 و 35
  3. رجب جاويش
    أخى الفاضل ارفق ملف وضع فيه المعادلة ووضح فى المرفق ما تريده من تعديلات
  4. رجب جاويش
    أخى الفاضل هذه العملية تعتمد على ترتيب الصفحات أى لابد أن تكون الصفحات التى يتم تنفيذ الكود فيها بنفس أرقام حلقة التكرار For i = 3To 8 والرقم 5 يعنى العمود الخامس
  5. رجب جاويش
    أخى الفاضل لا يوجد مرفق
  6. رجب جاويش
    أخى الفاضل ليست جمايل ولكنه الواجب هذا ما تعلمته من هذا المنتدى العظيم
  7. رجب جاويش
    تفضل أخى Private Sub CommandButton2_Click() CommandButton1.Enabled = True End Sub Private Sub UserForm_Initialize() CommandButton1.Enabled = False End Sub enable.rar
  8. رجب جاويش
    تفضل أخى كنترول 2012 رجب جاويش.rar
  9. رجب جاويش
    أخى الفاضل جزاك الله كل خير على هذه الكلمات الطيبة الموضوع بسيط وتم كالاتى 1- قمت بحماية الصفحة حماية عادية 2- أضفت السطر التالى قبل تنفيذ الكود لفك حماية الصفحة قبل تنفيذ الكود ws.Unprotect 3- أضفت السطر التالى فى نهاية الكود لارجاع حماية الصفحة مرة أخرى ws.Protect
  10. رجب جاويش
    أخى الفاضل / عصام شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وكل عام وأنتم بخير
  11. رجب جاويش
    تفضل أخى Main_Sales_Today.rar
  12. رجب جاويش
    أخى الحبيب / محمود أخى الفاضل / مدريدى عمان شكرا جزيلا لكما وكل عام وأنتما بكل خير وسعادة
  13. رجب جاويش
    وهذا حل آخر بدون زر تختار المركب من الخلية L5 فيتم تنفيذ الكود مباشرة search2.rar
  14. رجب جاويش
    أخى الفاضل هذا هو الكود الذى تريده Sub ragab() Dim cl As Range [B3:H9].ClearContents For i = 1 To Sheets.Count - 1 For Each cl In Sheets(i).Range("B3:B10") If cl = [L5] Then cl.Resize(1, 7).Copy Range("b" & [B100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End If Next Next End Sub search1.rar
  15. رجب جاويش
    لا شكر على واجب أخى الفاضل تقبل الله منا ومنكم صالح الأعمال وكل عام وأنتم بخير
  16. رجب جاويش
    أخى ابراهيم الحل فى المرفق وفيه يتم كتابه التاريخ فى الخليتين D2 و C2 كشف حساب بالمعادلات.rar
  17. رجب جاويش
    أخى الفاضل يكون السطر كالاتى If (Target.Column = 1 And Target.Row > 9) Or Target.Address = [D9].Address Then
  18. رجب جاويش
    أخى الفاضل يفضل فى هذه الحالة ارفاق ملف للعمل عليه
  19. رجب جاويش
    الأستاذ الفاضل / جمال الفار كل عام وأنتم بخير كل عام وأنتم الى الله أقرب كل عام وأنتم على الطاعة دائمون تقبل الله منا ومنكم صالح الأعمال
  20. رجب جاويش
    أخى الفاضل جرب المرفق Main_Sales_Today.rar
  21. رجب جاويش
    أخى الفاضل / alyfahem أول تغير يكون فى السطر التالى Const A As Integer = 15 حيث يستبدل الرقم 15 بالرقم 22 التغيير الثانى يكون فى السطر التالى وهو الذى يقصده أيضا أخى الفاضل ابن بنها For i = 2 To 3 حيث يستبدل الرقم 3 بالرقم 4
  22. رجب جاويش
    وهذا حل آخر بدون زر مجرد الإختيار من الخلية B4 أو الخلية F4 كشف حساب بالمعادلات1.rar
  23. رجب جاويش
    تفضل أخى هذا حل باستخدام التصفية المتقدمة مع وجود زر كشف حساب بالمعادلات.rar
  24. رجب جاويش
    أخى الفاضل / على نور كل عام وأنتم بخير وسعادة تقبل أجمل وأرق تحياتى
  25. رجب جاويش
    هل تقصد هكذا علما بأن الورقة محمية حماية عادية بدون كلمة مرور ويمكن عمل كلمة مرور اذا أحببت بيانات.rar
×
×
  • اضف...

Important Information

  I accept