ابو اسامة العينبوسي

ممكن تستفيد من هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim My_Value If Target.Address = "$A$1" Then Range("A1").Select My_Value = ActiveCell.Value Range("B1").Select ActiveCell.FormulaR1C1 = ActiveCell.Value + My_Value End If End Sub

مثال للجمع بشرطين ________.rar

هل من مجيب ؟؟

اخ خضر هل لديك حل؟؟

السلام عليكم لدي العمود A فيه ارقام و صيغ اريد كود لتحديد الخلايا التي تحتوي على ارقام فقط(وهي خلايا متجاوره) دون التي تحتوي على صيغ عثرت على كود يختار الخلايا غير الفارغه لكن المشكله انه يعتبر الخليه التي تحتوي على صيغه غير فارغه Sub Select_nonBlank() Dim FutureRow As Long, CurrRow As Long Dim col As Integer, nwRow As Long Dim nonBlank As Range col = ActiveCell.Column If Cells(1, col).End(xlDown).Row >= 65536 Then Exit Sub End If ' initialize nonblank with first nonblank cells If Cells(1, col) <> "" Then If Cells(2, col) <> "" Then Set nonBlank = Range(Cells(1, col), _ Cells(1, col).End(xlDown)) Else Set nonBlank = Cells(1, col) End If Else nwRow = Cells(1, col).End(xlDown).Row If Cells(nwRow + 1, col) = "" Then Set nonBlank = Cells(nwRow, col) Else Set nonBlank = Range(Cells(1, col).End(xlDown), _ Cells(1, col).End(xlDown).End(xlDown)) End If End If CurrRow = nonBlank.Rows(nonBlank.Rows.Count).Row + 1 If CurrRow < 65536 Then FutureRow = Cells(CurrRow, col).End(xlDown).Row Else FutureRow = 65536 End If While FutureRow < 65536 nwRow = Cells(CurrRow, col).End(xlDown).Row If Cells(nwRow + 1, col) = "" Then Set nonBlank = Union(nonBlank, Cells(nwRow, col)) CurrRow = nwRow + 1 Else Set nonBlank = Union(nonBlank, _ Range(Cells(CurrRow, col).End(xlDown), _ Cells(CurrRow, col).End(xlDown).End(xlDown))) CurrRow = Cells(CurrRow, col).End(xlDown) _ .End(xlDown).Row + 1 End If If CurrRow > 65536 Then FutureRow = 65536 Else FutureRow = Cells(CurrRow, col).End(xlDown).Row End If Wend nonBlank.Select End sub ]

السلام عليكم لم اطلع على عملك لكنك مبدع تستحق كل تقدير جزاك الله خيرا

السلام عليكم الف شكر اخي بارك الله فيك و جزاك خيرا

مبدع اخ خضر

السلام عليكم اخي خضر و اخ تامر ارجو الاطلاع على الملف المرفق في المشاركه السابقه

السلام عليكم اذا كان رد الاخ العزيز خضر كافيا و اظنه كذلك فالموضوع تم حله و الا فانا اقول كاتالي : Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "E:\adel\adel.XLS" End Sub انشئ مجلد على القرص e باسم adel هذا الحدث يتم اي النسخ قبل الاغلاق (اغلاق الملف )

نعم ممكن ارفق ملف و حدد ماكن النسخه التي تريد ان تضعها على اي قرص و باي اسم تريدها ايضا و انا اتولى الباقي

السلام عليكم هل من طريقه معينه لفعل ذلك و لو بطريقه اخري

انت اكثر من رائع و حلك خلاق وبسيط و لا املك الا ان ادعو لك و لاخوانك

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

السلام عليكم ممكن ترحيل البيانات من ورقة الحوالات الى ورقة اللارشيف حيث تضاف البيانات الجديده اسفل البيانات القديمه ______.rar

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

السلام عليكم و الله اني اقدر كل شخص في هذا المنتدى و الف شكر لكم و انا اعتذر عما فعلت سارفق ملف بعد الصلاه ان شاء الله علما اني ارفقت ملف في المشاركه السابقه

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

يبدو انني لا اجيد المشاركه او هنا ك مشكله ما ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ان لم لها حل نرجو الاجابه بالنفي

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

السلام عليكم هذه المشاركه اضيفها الى مشاركتين لم يجب عليها احد بالجواب الشافي كيف استخرج قيم مكرره موجوده في عمود Book1.rar

و لا واحد يجيب خساره وا الله ماكان الامل؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ارسل مثال اي ارفق ملف

??

شكرا لك اخ محفوظ عملت ذلك مسبقا لكن المعلومات لايتم تحدثها الا عند فتح الملف من جديد(amjadxl)