ايمن جباره

اولا انا شاكر جدااااااا لتجاوبك معى وردك على استفساراتى حيث انى جديد فى مجال برمجة الاكسيل وارجو ان انال القدر الكافى من توجيهاتك فى هذا المجال ثانيا بالنسبه للكود دى داله بتشوف ميين اللى مدفش الاقساط وتطلعهم فى شيت جديد فيه الاسم ورقم العميل وعنوانه وتليفونه وحصر بالاقساط المتأخره عليه المشكله كلها ان الاقساط عباره عن 70 قسط يعنى 70 شهر فالكود اللى عملتو زى محضرتك شوفتو عقيم وبطئ جدا فى العمل هوه بيطلع المطلوب ولكنه بطئ جدااااا بسبب انى بخلى البرنامج يبحث فى 300 عمود فى الشيد عن حالة السداد ازا كانت لم يسدد يضع بيانات العميل ورقم القسط فى شيت جديد وطبعا العميل ممكن يكون مسددش اكتر من قسط فلازم يبحث فى ال 70 قسط لكل عميل وهذه المشكله يعنى فى الكود لو قللت عدد الاعمده من 300 الى 30 فالنتيجه بتكون لحظيه Sub Remin_2() Sheets("المبيعات كلها").Activate Sheet3.Cells.ClearContents LR = Cells.SpecialCells(xlCellTypeLastCell).Row Sheet3.[b5:AC1000].ClearContents For c = 20 To 300 If Cells(3, c) = "حالة السداد" Then N = (c - 2) / 4 - 4 For R = 4 To LR V = Cells(R, c - 1) D = Cells(R, c - 2) If Cells(R, c) = "لم يسدد" And D <= [P1] Then Clnt_N = Cells(R, 2) C_Nam = Cells(R, 4) Clnt_T = Cells(R, 5) C_Add = Cells(R, 6) Else: GoTo 10 End If With Sheet3 s = .[H1000].End(xlUp).Row + 1 For s_r = 5 To s - 1 If .Cells(s_r, 3) = C_Nam Then clm = .Cells(s_r, "IV").End(xlToLeft).Column .Cells(s_r, clm + 1) = N .Cells(s_r, clm + 2) = D .Cells(s_r, clm + 3) = V GoTo 10 End If Next s_r .Cells(s, 2) = Clnt_N .Cells(s, 3) = C_Nam .Cells(s, 4) = Clnt_T .Cells(s, 5) = C_Add .Cells(s, 6) = N .Cells(s, 7) = D .Cells(s, 8) = V End With 10 Next R End If Next end sub

up please

السلام عليكم كيفكم يا اعضاء المنتدى الكرام اليوم طلبى كبير شوية ولكنى اعلم ان رجالة المنتدى هنا قدها واكبر انا اعمل على كود تم اخذه من المنتدى هنا وتم التعديل عليه و هو لاظهار المتأخرين فى دفع الاقساط الى تاريخ معين طبعا البرنامج كان على 12 قسط وانا كنت احتاجه على 70 قسط فتم التعديل على الكود كما هوضح بعد قليل بس بعد التعديل لاحظت بطئ شديييييييييييييييييييييييييييييد عند تشغيل الكود من الفورم ياخذ اكتر من 2-3 دقائق للظهور وطبعا هذا مرفوض فجئت اليكم بالكود لاى افكار للاختصار او للتسريع مع بعض الملاحظات لى بعد الكود Sub Remin_2() Sheets("المبيعات كلها").Activate Sheet3.Cells.ClearContents LR = Cells.SpecialCells(xlCellTypeLastCell).Row Sheet3.[b5:AC1000].ClearContents For c = 20 To 300 If Cells(3, c) = "حالة السداد" Then N = (c - 2) / 4 - 4 For R = 4 To LR V = Cells(R, c - 1) D = Cells(R, c - 2) If Cells(R, c) = "لم يسدد" And D <= [P1] Then Clnt_N = Cells(R, 2) C_Nam = Cells(R, 4) Clnt_T = Cells(R, 5) C_Add = Cells(R, 6) Else: GoTo 10 End If With Sheet3 s = .[H1000].End(xlUp).Row + 1 For s_r = 5 To s - 1 If .Cells(s_r, 3) = C_Nam Then clm = .Cells(s_r, "IV").End(xlToLeft).Column .Cells(s_r, clm + 1) = N .Cells(s_r, clm + 2) = D .Cells(s_r, clm + 3) = V GoTo 10 End If Next s_r .Cells(s, 2) = Clnt_N .Cells(s, 3) = C_Nam .Cells(s, 4) = Clnt_T .Cells(s, 5) = C_Add .Cells(s, 6) = N .Cells(s, 7) = D .Cells(s, 8) = V End With 10 Next R End If Next Sheets("المبيعات كلها").Activate Cells(1, 2).Value = "رقم العميل" Cells(1, 3).Value = "الاسم" Cells(1, 4).Value = "رقم الهاتف" Cells(1, 5).Value = "العنوان" Cells(1, 6).Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "رقم القسط" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "التاريخ" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = "قيمة القسط" ActiveCell.Offset(0, 1).Range("A1").Select Sheet3.Activate End Sub الملاحظه انه فى هذا السطر For c = 20 To 300 عند تقليل ال 300 فانه يساعد فى سرعة تنفيذ البرنامج ولكن لا تظهر جميع الاقساط مثلا يظهر الى القسط رقم 30 فقط منتظر الحل من الاخوه الكراام شكرا مقدما لتعاونكم

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

up plz

السلام عليكم كما تعودت منكم على المساعده السريعة فاسميتكم منتدى الحالات الصعبه والمستعجله فهذا شرف لى ان اكون عضو فى هذا الصرح العملاق اليوم وقف معايا شئ وهوه انى اريد اخذ قيمه (رقم) من شيت 1 واطرحها من قيمه اخره من شيت 2 انا محتاج الفكره والكود المختصر للعمليه للتوضيح انا عملت كود ومتأكد انو غلط بس يمكن يفهمكو انا محتاج ايه Dim a As Integer Dim b As Integer Remin_33 Macro1255 Macro1266 Sheets("Sheet1").Activate a = Cells(6505, 8) Macrosum Sheets("Sheet2").Activate b = [b20004] TextBox1.Value = (a - b) الماكروز اللى فوق دوول عمليات بتتم على كل شيت قبل اظهار الرقم اللى انا محتاجه وعاوز اخده فى متغير اسمه a وهكذا فى الشيت الاخر

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

شكرا جزيلا لك اخى محمود_الشريف بارك الله فيك

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

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

شطرا جزيلا اخى محمود_الشريف على مجهودك انا حاولت الدخول لملفى الشخصى لتغيير الاسمولكنى لم استطيع الخيار الاول هوه تغيير الصوره ومن بعده باقى المعلومات عدا الاسم!! انا مسجل حسابى هنا عن طريق الفيس بوك

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