طارق محمود

السلام عليكم أخي العزيز عدل كود زر الإضافة كالتالي Private Sub Comd1_Click() If txt1.Text = "" Or txt2.Text = "" Then MsgBox "يرجى ادخال كود الفرع ", vbInformation + vbMsgBoxRight, "بيانات غير كافية": Exit Sub Sheets("BrCode").Visible = True With Sheets("BrCode") LastR = .[A10000].End(xlUp).Row For Each cl In Range("A2:A" & LastR) If cl = txt1.Text Then MsgBox "هذا الكود مستخدم للفرع " & cl.Offset(0, 1): Exit Sub Next cl For Each cl In Range("B2:B" & LastR) If cl = txt2.Text Then MsgBox "هذا الفرع تم إدخاله من قبل تحت الكود " & cl.Offset(0, -1): Exit Sub Next cl .Cells(LastR + 1, 1) = txt1.Value .Cells(LastR + 1, 2) = txt2.Value .Cells(LastR + 1, 3) = txt3.Value End With MsgBox "تمت الاضافة بنجاح", vbCritical + vbMsgBoxRight, "تنبيه" txt1.Text = "" txt2.Text = "" txt3.Text = "" End Sub أو تفضل المرفق إن شاء الله يكون هو ماتريد فورم 11_2.rar

السلام عليكم اخي الكريم الأفضل دائما أن ترفق ملف به ماتريد (ولاتنسي ضغطه قبل الرفع winrar - winzip) يوجد موضوع شبيه ، لاأذكر اسمه ابحث وستجده مرفق ملف (من ذلك الموضوع) قد يكون به ماتحتاج أو يصلح كبداية تسأل عليه ماتريد حسابات بحث فقط2.rar

السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row < 6 Then Exit Sub If Target.Column = 9 Or Target.Column = 15 Or Target.Column = 16 Then [R6:R999].ClearContents For r = 6 To [A1000].End(xlUp).Row x = -IsEmpty(Cells(r, 15)) - IsEmpty(Cells(r, 16)) If IsEmpty(Cells(r, 9)) Then If x <> 0 Then Cells(r, 18) = "BALANCE" Else If x = 2 Then Cells(r, 18) = "STATMENT" If x = 1 Then Cells(r, 18) = "WRONG" End If Next End If End Sub

السلام عليكم اسمحوا لي بالتدخل كلام أخي الحبيب / محمود مضبوط وكلام الأخت الفاضلة / أم عبدالله مضبوط فقط أريد أن أصحح به طريقة حذف السطور أو الأعمدة أنك تقف بعد آخر خلية تريدها ، لإلغاء الصفوف وعندك بيانات حتي السطر 200 مثلا فلتقف علي أي خلية في الصف 201 (الصف التالي لـ 200) ثم Shift+Ctrl+End ثم Shift+Space لتظليل جميع الأسطر الزائدة ثم حذفها ولإلغاء الأعمدة وعندك بيانات حتي العمود X مثلا فلتقف علي أي خلية في العمودY (العمود التالي لـ X) ثم Shift+Ctrl+End ثم Ctrl+Space لتظليل جميع الأعمدة الزائدة ثم حذفها ولابد أن تجري هذا الإجراء لكل الشيتات بالملف ثم تحفظ الملف (والأفضل أن تحفظ الملف بعد الإنتهاء من كل شيت) وأضيف أيضا لتقليل حجم الملف بتقليل عدد وحجم الصور المستخدمة بالملف في 2007 ومابعدها كليك علي اي صورة فتنشط قائمة Picture Tools ومنها قائمة فرعية (الاولي) اسمها Adjust وفيها أيكونة Compress picture بالضغط عليها ، ثم إختر E-mail (96 ppi....) وحرر (أي لاتختار) Apply only to this picture لينفذ ذلك علي كل الصور بالملف

السلام عليكم أخي الكريم الأفضل دائما أن ترفق ملف به ماتريد (ولاتنسي ضغطه قبل الرفع winrar - winzip)

رابعا وكترحاب آخر بك ، سأرفق لك ملفا به المطلوب بالتنسيق الشرطي راجع معادلة التنسيق الشرطي بالعمود B =SUM($B$2:B2)>$D$2 فهي تجمع بداية دائما من B2 حتي الخلية الحالية وتقارن المجموع دائما بالخلية D2 فإذا كان أكبر منها تجعل اللون أحمر تفضل المرفق Cond_Format.rar

السلام عليكم اخي الكريم أولا أهلا ومرحبا بك بين إخوانك ثانيا لابد ان تلتزم بقواعد المنتدي (ومنها إسم الموضوع - راجعها رجاءا) وكترحاب بك ، لن يغلق الموضوع كما هو متبع ولكني سأغير أسمه ليتناسب مع طلبك ثالثا الأفضل دائما أن ترفق ملف به ماتريد (ولاتنسي ضغطه قبل الرفع winrar - winzip)

الحمد لله

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

السلام عليكم أخي العزيز تفضل المرفق بيان حركة الموظفين بالتأمينات2.zip

السلام عليكم تعديل طفيف آخر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Cells(Target.Row, 1) = 1 Else Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1 End If If Not Intersect(Target, [B2:B100]) Is Nothing Then If IsDate(Target) Then Target.Offset(0, 7) = Month(Target) End If End Sub مرفق الملف وبه الكود ومعه فيديو يوضح أنه شغال COUNTIFS_2.rar

السلام عليكم أخي الحبيب وأستاذي الجليل / عبد الله باقشير (خبور خير) هذه والله شهادة ووسام علي صدري جزاك الله كل خير علي كلماتك الطيبة ومرورك الكريم

السلام عليكم أخي العزيز ماهو كود العميل الأفضل إرفاق ملف ولكن بفرض أن هذا الكود اسمه code_3ameel فلتضع في حدث ورقة الإجمالي هذا الكود Private Sub Worksheet_Activate() code_3ameel End Sub

السلام عليكم بعد إذن أخي الغالي / أحمد فضيله أخي / محمد تفضل المرفق هل هذا ماتريد اجازه.rar

أخي ابراهيم الله يفتح عليك كلامك مضبوط 100% انا تسرعت وهذا خطأ عندي ولكن قد يكون افضل للمجموع حيث التفاعل مطلوب

السلام عليكم ثالثا وكترحاب آخر بك ، سأرفق لك ملفا به 3000 إسم أنظر للورقتين ثم راجع المعادلات بالورقة الثانية ثم راجع التنسيق الشرطي بالورقة الأولي تفضل المرفق مقارنة الشيتات لاستخراج المتكرر وتلوينهم بلون اخر.rar

السلام عليكم أولا أهلا ومرحبا بك اخي الكريم بين إخوانك ثانيا لابد ان تلتزم بقواعد المنتدي (ومنها إسم الموضوع - راجعها رجاءا) وكترحاب بك ، لن يغلق الموضوع كما هو متبع ولكني سأغير أسمه ليتناسب مع طلبك ثالثا الأفضل دائما أن ترفق ملف به ماتريد (ولاتنسي ضغطه قبل الرفع winrar - winzip)

بغرض تسريع الكود ككل Tip # 003 ضع أمر في أول الكود بالأعلي لإطفاء عمل تحديث الشاشة (ScreenUpdating) ولاتنسي أن تضع أمرا آخر في آخر الكود بالأسفل يعيد عمل تحديث الشاشة (ScreenUpdating) كالتالي Sub code001() Application.ScreenUpdating = True code ... code Application.ScreenUpdating = False End Sub

بغرض تسريع عمليات الكود Tip # 002 ضع الأوامر في سطر واحد وبينهما : أفضل من وضعها في أسطر متتالية خصوصا لو الأوامر قصيرة مثلا: For i = 1 To 20 Cells(i, 2) = i ^ 2 Cells(i, 3) = i * 2 Cells(i, 4) = i / 2 Next i تستبدل بــ For i = 1 To 20: Cells(i, 2) = i ^ 2: Cells(i, 3) = i * 2: Cells(i, 4) = i / 2: Next i

السلام عليكم أخي العزيز ماتطلبه صعب جدا لأن الكود من أعمال استاذنا الجليل / عبدالله باقشير ، حفظه الله وكالعادة يتميز بدقة غير عادية ومراعاة لكافة الإحتمالات التي قد تنتج عند استخدام الكود ولاأدري ، هل فهمت كل مايريده من الكود أم لا ولكن وبعد إذنه طبعا تفضل المرفق ، قد يكون شرحا متواضعا للكود وأدعو الله ألا يقلل الشرح البسيط من قيمة الكود العالية تفضل المرفق شرح الكود3.rar

السلام عليكم أخي العزيز جرب هذا مرة أخري Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Cells(Target.Row, 1) = 1 Else Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1 End If If Not Intersect(Target, [B2:B100]) Is Nothing Then If IsDate(Target) Then Target.Offset(0, 7) = Month(Target) End Sub

السلام عليكم أخي الحبيب فكرة ممتازة بارك الله فيك سأبدا معك بهذه المعلومة الصغيرة القيمة ممكن نقول عنها tip يمكنك إستبدال الأمر Tip # 001 Range ("A1") بالتعبير [A1] وهما يؤديان نفس الغرض إلا أن الأخير يجعل الكود أخف وأقصر لقارئه وطبعا A1 لأي خلية ويمكن أيضا للمجالات ككل مثل Range ("A1:X555") تستبدل بــ [A1:X555]

السلام عليكم أخي العزيز إليك حلا بالجداول المحورية (بلا أكواد ولاحتي معادلات) ويلزمك قليل من التعديلات ليتم تنفيذ ذلك بالسرعة المطلوبة التعديلات (في ورقة مبيعات2) مليء سطر التاريخ لكل حركة منفصلة لاتدمج -->> ملونة بالأزرق إضافة عمود لمجمل الصنف ، في حالة إحتجت لذلك -->> العمود D باللون الأزرق أنظر لكلا الجدولين في ورقتي (جدول شهري، جدول ملخص أسبوعي) تفضل المرفق ولاتنسي عمل تنشيط (Refresh) للجداول المحورية كلما عدلت بالبيانات شهر فبراير2.rar

السلام عليكم أخي العزيز لابد من ملف (مثال) لتساعد من يريد المساعدة ولتحذف منه جميع الشيتات وتبقي علي 3 أو 4 فقط

السلام عليكم أخي العزيز أنت قلت في مشاركتك السابقة # 6 أن لديك2003 وعلي هذا وضعت لك الحل ، أرجو أن تجربه علي 2003 والآن لاأفهم هل لديك 2003 أم 2013