أبو أنس حاجب

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

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله جرب وضع الكودين مع بعض بهذا الترتيب طبعاً أستبدلت هنا كودك الخاص بالتحسس بين الدائن والمدين (والذي هو على ما أظن للأستاذ الفاضل عباد العيدروس حفظه الله فقط هنا للتنوع) بكود الأستاذ الفاضل عبد الحافظ الخالدي حفظه الله. أو انسخ كودك بالترتيب الآخر بعد هذا الكود أتمنى أن يضبط معك Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [D7:E13]) Is Nothing Then For Each cl In Intersect(Intersect(Target, [D7:E13]).EntireRow, [D7:E13]).Columns(2).Cells If CStr(cl.Offset(0, -1)) = "مدين" Then If IsNumeric(cl) Then If cl <> Abs(cl) Then cl.Value = Abs(cl) ElseIf CStr(cl.Offset(0, -1)) = "دائن" Then If IsNumeric(cl) Then If cl <> (Abs(cl) * -1) Then cl.Value = (Abs(cl) * -1) Target.Font.Color = RGB(255, 0, 0) End If Next End If On Error Resume Next If [e2].Value > 0 Then ActiveSheet.Shapes("button 1").Visible = True Else ActiveSheet.Shapes("button 1").Visible = False End If End Sub هنا كودك: Private Const Ali_Sta As String = "-" Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Range("E7:E13"), Target) Is Nothing Then If Target.Value > 0 Then Target.Font.Color = RGB(255, 0, 0) Target.Value = Ali_Sta & Target.Value Exit Sub End If End If On Error Resume Next If [e2].Value > 0 Then ActiveSheet.Shapes("button 1").Visible = True Else ActiveSheet.Shapes("button 1").Visible = False End If End Sub أذا لم يضبط معك فقد حاولت فقط المساعدة أبو أنس

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

السلام عليكم ورحمة الله وبركاته للرفع رفع الله قدركم

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله جرب التالي لعله المطلوب: تذهب إلى لوحة التحكم ثم الخيارات الاقليمة وخيارات اللغة من قائمة الخيارات الاقليمية عدل اللغة الى العربية السعودية ووافق على تغيير الاعدادات تظهر الاعداد باللغة العربية (ولكنها في الاصل اعداد هندية والاعداد العربية هي الاعداد المتعارف عليها انها انجليزية وجب التنوية) أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عباد حفظكم الله أدام الله عليك الصحة والعافية أبداً ما حييت أبو أنس

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

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أحمد زمان حفظكم الله جزاك الله كل خير وبارك الله بك وفيك على الرد. اصبحنا قريبين جداً من المطلوب كاملاً. 1. النقل للبيانات يبدأ في الصفحة الثانية حسب الكود من السطرالسادس وما اريده ان يبدا من السطر الخامس وقد غيرت الرقم 5 إلى الرقم 4 في هذا السطر أدناه وضبط ارجو التوجية بصحة ذلك TR = Application.CountA(TS.Range("A1:A55555")) + 5 2. في حالة كانت البيانات التي ارصدتها صفرية لاكثر من سطر (اي ان الكود يعمل فقط اذا كان النقل لسطر واحد) يقف الكود عن آخر سطر وأظنه الخاص بالفرز ولا يقوم بتنفذ الفرز. اكتفي حالياً بهاتين الملاحظتين والمراجعة ستكون تباعاً للملف اذا تفضلت وسمح وقتك بذلك (أرجو ملاحظة ان الكود التسجيلي الذي ارفقته يقوم بالمطلوب بدقة ولا يتأثر بالضغط على الزر مرات متعددة واذا كانت هنالك بيانات تحتاج او لا تحتاج للتحديث ولكني حبيت تبديله بكود احترافي). أدام الله علينا حضورك بيننا في المنتدى أبو أنس

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام حفظكم الله جميعاً المطلوب حلين منفصلين أحدهما بالكود والأخر بالمعادلات (على أن لاتكون معادلة صفيف وبدون اعمدة مساعدة - ان امكن- أكسيل 2003). الصفحتين المستثنيتين من العمل اسمهما Main و Total الصفحة الهدف للنتيجة (أي التي سوف تكون بها المعادلة ويعمل اليها الكود) هي Main والخلية الهدف هي I1 (ملونة بالاصفر) الخلية المطلوب جمعها من كل الصفحات باستثناء الصفحتين المذكورتين أعلاه هي G2 (أسماء الصفحات متغيرة دائماً وباستمرار وعددها متغير وأسمائها قد تحتوي على أعداد او تكون كلها أعداد او من كلمتين مركبتين وبينهما فراغ أو تحتوي على علامة - ). أرجو التكرم بالحلين كي أجربهم كلاهما على ملفي الاصلي واخذ الذي لا يتعارض مع ما فيه من معادلات واكواد. والله خير معين. المرفق جمع خلية من عدة صفحات.rar أبو أنس أرجو الاستفادة من هذا الكود الجميل اسفل للعلامة عبد الله باقشير حفظه الله فقط وضعت معادلة تقريبية غير صحيحة (فقط كي اقرب الفكرة المطلوبة) وحددتها بعلامة التنصيص وهنالك اظن سيكون شرط عمل الكود. Sub add() Dim Sh As Worksheet For Each Sh In ActiveWorkbook.Worksheets Select Case Sh.Name '''''''''''''''''''''''''''' Case "Main", "Totals" ''''''''''''''''''''''' Case Else 'Sheets("Main").[i1] = Sh.Range("g2").value End Select Next End Sub

السلام عليكم ورحمة الله وبركاته جزاك الله كل خيرعلى مرورك الطيب (ياسعادة الباشا) محمد مصطفى أبا حمزة حفظكم الله أبو أنس

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

السلام عليكم ورحمة الله وبركاته للرفع رفع الله قدركم

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل حفظكم الله تقبل خالص الشكر والتقدير والاحترام. ما رأيك بتعديل سطر الشرط في الكود بشرط جديد يجعل تنفيذ الكود في الاسطر التي تحقق الشرط فقط (الشرط هو إذا كانت الخلية في العمود U صفر وأيضاً الخلية المقابلة لها في العمود G ليست فارغة يتم تنفيذ الكود في السطر مالم يتم التجاهل). هذا الشرط الجديد أسفل لقد جربته للوهله الأولى وأظنه نجح أرجو التوجيه من سيادتكم بصحة ذلك (حيث عمل على التسريع من الكود): If cl.Offset(0, 6) <> "" And cl.Offset(0, 20) = 0 Then أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا حنين حفظكم الله وأهلكم جميعاً. جزاك الله كل خير على هذا الكود الجميل. أرجو أن تسمح لي ببعض الملاحظات: 1. الكود يقوم بنقل البيانات الصفرية لمرة واحدة فقط بشكل كلي (ما أريده هو النقل حسب المتغير في الصفحة المصدر- أي في حالة غيرت عمليتين واصبح رصيدهم صفري مثلاُ أضغط على الزر فيقوم بنقل بياناتهما إلى الصفحة الهدف وهكذا بعد ذلك إذا غيرت عدة عمليات مجتمعة أو فرادا (بضغظة زر أخرى) يتم نقلها اسفل أخر نقل حتى يصبح لدي تقرير بالعمليات المنجزة). 2. المطلوب بعد كل عملية (أي بعد كل ضغطة زر) أن يتم مسح البيانات المرحلة من المصدرثم إعادة فرز البيانات للتخلص من الفراغات على أن يشمل الفرز فقط المدى A:S ملاحظة طفيفة المدى A:S وليس A:R مع مراعاة الحماية في الملف. والله الموفق وخير معين أبو أنس

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام حفظكم الله المطلوب كود يقوم بنقل البيانات من المدى A:S التي رصيدها صفر في العمود U إلي الصفحة المجاورة ومسح بياناتها من المصدر مع فرز بيانات المصدر للتخلص من الفراغات (وذلك حسب عمود Duty Date) وهكذا ستكون العملية في حالة تم تعديل بيانات أخرى وتم تصفير رصيدها (أي ان عملية البيانات في هذه الصفحة ستكون متغيرة حسب الحاجة مع الاحتفاظ بما تم ترحيله إلى الصفحة الاخرى وفق ترتيب الترحيل). والله الموفق أبو أنس نقل بيانات المدفوعات المسدده.rar هذا كود تسجيلي قمت باضافته لاحقاً وهو يحقق المطلوب هل هنالك ماهو أفضل منه: Sub ExportClearedPayment() ActiveSheet.Unprotect Sheets("Cleared Payment").Select ActiveSheet.Unprotect [A65536].End(xlUp).Offset(1, 0).Select Sheets("Payment").Select Selection.AutoFilter Field:=21, Criteria1:="0.00" Range("A5:S2000").Select Selection.Copy Sheets("Cleared Payment").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Payment").Select Application.CutCopyMode = False Selection.ClearContents Selection.AutoFilter Field:=21 Selection.Sort Key1:=Range("F5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sheets("Payment").Protect , Sheets("Cleared Payment").Protect End Sub

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام جميعاً بلا أستثناء حفظكم الله أخص بالذكر هنا فقط لمن كان لهم نصيب الأسد في هذا الملف لا للحصر. السيد الفاضل النبيل عبد الله باقشير (أبا علي - خبور خير) حفظه الله السيد الفاضل النبيل عباد (أبا نصار - العيدروس) حفظه الله اللمسة الأولى المطلوبة وهي الأهم: عند طباعة العملاء وتكون الطابعة الأفتراضية للطباعة ليست الحقيقية ولكن Microsoft Office Document Image Writer يتم حفظ كشف الحساب على شكل صورة وتكون أسم الصورة (وان كانت متعددة الصفحات بالنسبة للعميل الواحد) بنفس أسم العميل وتكون العملية تلقائية حتى وأن كان الأختيار لعملاء متعددين للطباعة أو جميعهم. هذه الفكرة والحل وطريقته بالشكل المناسب الذي ترونه. اللمسة الثانية: أن يتم أرسال كشف الحساب على شكل صورة أيضاً بالأيميل مباشرة من الملف أما فرادا أو بشكل متعدد حسب الأمكانية في الأكسيل للعميل طريقة اضافة عنوان البريد الاليكتروني متروكة لكم أما من داخل الملف أو غير ذلك (أن كانت العملية غير ممكنة فلا عليكم فقد كفيتم ووفيتم). والله خير معين وموفق المرفق الأصل بتصرف في الأسماء: Account Statement New Version11 (RMB).rar أبو أنس ناصر حاجب

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

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام حفظكم الله المطلوب كود يعمل على مسح البيانات فقط لمدى الخلايا من A:S بشرط أذا كانت قيمة الخلية المقابلة لهم في العمود U صفر(مدى عمل الكود حتى السطر 2000). جزاكم الله كل خير أبو أنس مسح بيانات مدى بناءا علي شرط.rar

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