أبو أنس حاجب

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله باقشير (أبا علي) حفظك الله وأتم الله عليك وافر أنعمه تشعرنا دائماً بالفخر لوجودك بيننا. صدقني لم أستطع أكمال التعبير. أستاذي وسيدي أبا أحمد حفظك الله أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله المجرب (أبا أحمد) حفظك الله عملت المطلوب وهو الأصوب والأروع متعك الله بال صحة والعافية وجعل السعادة خليلة قلبك وحفظ الله لك ذريتك من بعدك وجعلهم من عباده الصالحين. هنالك رجاء آخر هل ممكن عمل كود عكسي للموضوع بحيث أذا كانت خلايا العمود I كلها فارغة يقوم بإضافة علامة أكس في الخلايا التي لايوجد فيها تناظر للاسماء بين العمودين J و K أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا أحمد حفظك الله لقد أضفت بداية الكود أمر مسح معادلات الصفيف مع الأبقاء على أول خلية فيها معادلة الصفيف ثم في نهاية الكود نسخ المعادلات مرة أخر وضبط الأمر أرجو أرشادي هل هو الحل الأمثل. Sub Abu_Ahmed_Delet() [M3:M1000].ClearContents Dim CL As Range For Each CL In [H4:H1000] If Application.CountIf([J4:J1000], CL) = 1 Then CL.Offset(0, 1) = Empty Next [M2].Copy [M3:M1000].PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub هنالك رجاء آخر هل ممكن عمل كود عكسي للموضوع بحيث أذا كانت خلايا العمود I كلها فارغة يقوم بإضافة علامة أكس في الخلايا التي لايوجد فيها تناظر للاسماء بين العمودين J و K أرجو أن لا أكون أخذت من وقتك أكثر مما أستحق ربما غيري أحوج مني لوقتك أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله المجرب (أبا أحمد) حفظك الله وأكرم منزلك في الجنة أشكرك على السرعة والكفاءة والاحتراف في الرد جزاك الله خير الجزاء في الدنيا وحسن ثواب الآخرة. ملاحظة بسيطة لو لاحظت أن لدي معادلات صفيف في العمود M مما سببت بطئ شديد لعمل الكود هل من حل؟ أبو أنس

السلام عليكم ورحمة الله وبركاته المطلوب حفظكم الله كود يقوم بمسح علامة أكس من الخلية المجاورة للعمود H اذا تحقق شرط أن الاسم الموجود في العمود H موجود أيضاً في العمود J طبعاً الأسماء في العمود J متغيرة وليست ثابته والله الموفق والمستعان وجزاكم الله كل خير أبو أنس مسح قيمة خلية بناءاً على شرط.rar

السلام عليكم ورحمة الله وبركاته أخي الفاضل عباس السماوي حفظك الله أجعل الكود على هذا الشكل من الترتيب Private Sub Workbook_Open() UserForm1.Show On Error Resume Next For Each sh In Worksheets sh.Visible = xlSheetHidden Sheets("abbas").Visible = True Next End Sub أخي الفاضل أحمد غانم حفظك الله بالنسبة لاضافة اي عدد من الاوراق سوف يقوم الكود باخفاءها جميعا واظهار فقط الورقة الموجود اسمها في الكود وهي هنا "abbas" أي بدل هذه الكلمة في الكود وضع أسم الورقة التي تريد أن يفتح الملف عليهاعوضا عنها. الأخوة أعلاه بلا أستثناء جميعاً حفظكم الله وجميع أساتذة وأعضاء منتدانا الحبيب أرجو المعذرة على التقصير أبو أنس

السلام عليكم ورحمة الله وبركاته أهنئ أستاذي وسيدي الفاضل محمد (أبا محمود) حفظه الله بهذه الترقية ومزيداً من النشاط والأبداع والتميز أبو أنس ناصر حاجب

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله راجع المرفق أرجو أن يكون ماتتمنى أبو أنس تنقل بين الصفحات2.rar

للرفع

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله باقشير (أبا على) حفظك الله أدام الله عليك الصحة والعافية ورزقك من حيث لا تحتسب. أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا حنين حفظك الله أنت عنوان الأبداع والتميز اللهم لاتحرمنا من سماع واتباع والعمل بقرآنك. جزاك الله خير الجزاء وأثابك حسن الثواب وجعل الفردوس الأعلى دار قرارك ومستقرك وأصلح لك ذريتك من بعدك. أبو أنس

السلام عليكم لقد أضفت أسفل كل كود في التكست بوكس الأضافة أدناه وضبط معي If Me.TextBox2 = Empty Then [a5:k60000].Select Selection.AutoFilter [a4].Select End If أذا كان هنالك تصحيح أحترافي جزاكم الله كل خير أبو أنس

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل رجب جاويش حفظك الله وعافاك اللهم أعزه في الدنيا وأرفع درجاته في الجنة حتى يرضى. أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله باقشير حفظك الله هل هنالك حل لبطئ استعادة ظهور بيانات العمود بعد مسح الرقم من داخل البوكس وذلك كوني جربته على بياناتي الحقيقة والتي هي في الغالب كبيرة جداً حيث كان بطئ جداً (مما يجعل البحث بالطريقة التقليدية أسرع من الكود!!). أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي عبد الله باقشير (خبور خير - أبا علي)حفظك الله جزاك الله خير الثواب في الدنيا وحسن ثواب الآخرة. أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله باقشير حفظك الله أشكر تكرمك بالرد جزاك الله كل خير ولكن الأرقام ليست ثابتة الطول في العمود أرجو التفضل بالتعديل في الكود حيث أنني ربما احتاج الكود أيضاً في العمود G أبو أنس