عبدالسلام ابوالعوافي

وفيك بارك الله اخي محمد

شهادة اخرى افتخر بها .. جزاك الله خيرا استاذ محمد علي التشجيع

جزاك الله خير استاذنا محمد

الطريقة اليدوية اعلاه .. اما الكود فهو كالاتي Dim lstRow As Integer lstRow = Cells(Rows.Count, "C").End(xlUp).Row - 1 Rows(lstRow - 1).Select Selection.Copy Rows(lstRow).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Range("A" & lstRow & ":D" & lstRow & ", F" & lstRow).ClearContents

لعلك تقصد هذا Sheets("1A").Range("A1:Z50").Copy Sheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True

قمت بالرد علي المشاركة ولم اجد ردي .. يبدو بان خطأ ما قد حصل اكرر اجمالي المصروفات =SUM(C4:INDIRECT("C"&ROW()-2)) اجمالي الايرادات =SUM(D3:INDIRECT("D"&ROW()-2)) اما بالنسبة لاضافة صفوف جديدة هناك طريقتين الاولى يدوية وهي كالاتي حدد الصف الاخير في الجدول الذي يحتوي بيانات " الصف رقم 7" ضع الموشر علي حد التحديد حتى يظهر شكل اربع اسهم اضغط كنترول وشفت ثم اسحب التحديد للاسف قليلا حتى يحدث تغيير طفيف علي شكل التحديد قم بالافلات .. ستلاحظ ادراج صف جديد الطريقة الثانية عن طريق الكود .. اذا لم تنجح معك الطريقة الاولى وتريد كود ساقوم بعمله لك تحياتي

=IF(AND(A2=B2;A2=C2);"TRIPLESTARTING";IF(AND(C2=D2;E2=C2);"TRIPLEMIDD";IF(AND(E2=F2;E2=G2);"TRIPLENDING";"")))

بعد اذن اساتذتي .. هذا موضوع مشابه .. المعادلة تقوم بتجديد التاريخ في العمود B اذا كانت الخلايا المجاورة في العمود A فارغة .. اي يمكن التجديد اذا قمنا بمسح محتوي الخلية قد لا تكون المعادلة بالشكل المطلوب .. لكن هذا مااستطيع فعله بالمعادلات

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

اعتذر اخي .. نسيت ارفاق الملف Book2.rar

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

عن نفسي .. لم ارى منك الا كل ماهو طيب وكل عام وجميع اعضاء المنتدى بخير

اتمنى ان يكون هذا المطلوب فرز النصوص بناء على عدد الكلمات.rar

الفرز بطريقيتين .. عدد الكلمات ( المسافات بين الكلمات ) وعدد الاحرف ( بما فيها المسافات والنقاط ) فرز النصوص بناء على عدد الكلمات.rar

فرز النصوص بناء على عدد الكلمات.rar

ضعها في الخلية C2 واسحب لاسفل .. ثم راقب النتائج .. لعلها تحتاج تعديلات اضافية

بعد اذن الاستاذ ياسر بعد الشرح الاخير فهمت السؤال اكثر .. اتمنى ان تكون المعادلة الاتي يحل بعض الطلبات .. ويبقى الطلب الاخير الذي لم افهمه جيدا =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;CHAR(10);"."&CHAR(10));" .";".")&".";"..";".")

اعتقد ان الحل موجود في الملفي السابق .. اطلع عليه

تمام اخي .. استبدل =IF(SUM(O23:O25)<>INT(SUM(O23:O25));SUM(N23:N25)-SUM(O23:O25);SUM(N23:N25)) بـ =IF(SUM(O23:O25)<>INT(SUM(O23:O25));SUM(N23:N25)+SUM(O23:O25);SUM(N23:N25)) حضرتك قلت اطرح .. عند القيام بعملية الطرح N26 = 7169753-(-3423611) = 10593364 اما اذا قلت جمع القيمتين تكون كالاتي : N26 = 7169753+(-3423611) = 3746142 واعتقد هذا ماتقصده

يمكن يفيدك هذا الحل .. المعادلة تقوم بتجديد التاريخ اذا تم مسح الخلية في العمود A .. مع مراعاة التعديل كما في المرفق

يمكن اضافة الموقع او المجلد الي المواقع الموثوقة .. ولن يطلب منك تمكين المحتوى

اخي اسامة .. لم تجبني عن سؤالي الا بالملف الاخير .. وهو ان القيم ناتجة عن معادلات وليس كتابة يدوية ارفقت لك فكرة الحل في الخليتين N26 O26 وتجدهما باللون الاحمر اتمنى ان يكون هو المطلوب اختبار.rar

Dim ws As Worksheet On Error Resume Next For Each ws In Worksheets ws.ShowAllData Next On Error GoTo 0

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

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Offset(0, 1) = Date End Sub