عبدالله المجرب

احسنت اخي رجب كنت بحاول في الحل بالاكواد لكن بعد هذا الكود مفيش كلام

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

محاولة ان شاء الله تصيب في قادم الايام

السلام عليكم ان كان كود اخونا ابو حنين يفي بالغرض فهذا اختصار له Private Sub CommandButton1_Click() Range("A1:C100").Copy ورقة2.Cells(1, 1) ورقة2.Select Application.CutCopyMode = False End Sub

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

حياك الله استاذ طارق كفييت ووفيت

للفائدة الباسوورد هي kind

قم بضغط الملف قبل رفعه

عمل مميز ونشاط ملحوظ وابداع متواصل ان شاء الله تستمر على هذا المنوال

السلام عليكم اليك الملف بعد التعديل مساعدة في فاتورة.rar

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

السلام عليكم هل المقصود هذا المربع الحواري

ارفق الملف الذي فيه الخطاء

ان شاء الله سأحل ضيفاً عليكم في الاكسس لنقتبس من علمكم

السلام عليكم جرب هذا التعديل Sub fatl() Range("a239:g300").ClearContents x = 8: xx = 239 Do Until Cells(x, 1) = "" If Cells(x, 7) <> 0 And Cells(x, 7) < 50 Then Range(Cells(x, 1), Cells(x, 7)).Copy Range("A" & xx).PasteSpecial Paste:=xlPasteValues xx = xx + 1 End If x = x + 1 Loop Application.CutCopyMode = False End Sub

اخي ارفق ملف

العفو منك استاذ عبدالفتاح ما اجمل تواضع العلماء ان شاء الله نراك كما السابق في قسم الاكسل

السلام عليكم طريقة عرض الموضوع بهذه الطريقة لا تساعد على الاجابة نرجو وضع مرفق للعمل المباشر عليه

اولا الفرق بين التاريخين 01/04/2012 وبين 11/04/2012 هو 10ايام وليس 9 ثانياً اليك هذا المرفق حساب السن في اكتوبر.rar

السلام عليكم شاهد الصور المرفقة

السلام عليكم جرب المرفق بعد التعديل 2.zip

السلام عليكم اخي الكريم لا اجد الوقت الكافي خصوصاً هذه الايام ولكن اليك هذه الروابط ربما تفيدك http://www.officena.net/ib/index.php?showtopic=36524 ========= http://www.officena.net/ib/index.php?showtopic=29935

ضع مرفق به توضيح لطلبك

حياك الله بارك الله فيك

ضع هذا الكود في حدث الورقة ثم جرب كتابة اي كلمة في خلايا العمود C وسيتم اضافة القيمة السابقة الى ما قمت بادخاله Dim OldValue Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub With Application .ScreenUpdating = False .EnableEvents = False End With If Not Intersect(Target, [C5:C23]) Is Nothing Then Target = Target & " " & OldValue End If OldValue = vbNullString With Application .ScreenUpdating = True .EnableEvents = True End With End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target End Sub