احمد عبد الناصر

السلام عليكم جرب هذا Dim i As Integer Private Sub CommandButton1_Click() TextBox1.Value = Sheets("Sheet1").Cells(i + 5, "b") i = i + 1 End Sub تحياتي

السلام عليكم جرب هذا Sheets("res_gen").Range("D3:AK32,AM3:BL32").ClearContents اين يوضع الكود بصراحة هذا نسبي يعتمد علي متي تريد ان يعمل الكود (بزر-عند الفتح-قبل الغلق-او اي وقت اخر ) تحياتي

هذا علي اكسيس 2010

السلام عليكم بعد اذن استاذنا رجب (تسلم ايدك) هذا حل كنت قد عملت عليه تحياتي تاريخ الجمعة+.rar

معذرة خطأ غير مقصود جرب المرفق تحياتي المكتبة+.rar

السلام عليكم جرب المرفق ملاحظة : لدقة النتائج مستقبلا حاول استخدام data validation في ادخال البيانات مثل (اسماء الكتب و موظف او طالب) تحياتي المكتبة+.rar

السلام عليكم هذا الملف بعد اظهار الجداول تحياتي كشف 12د+.rar

السلام عليكم جرب هذا التعديل With wo .Sheets(Sht).Range("b:c").Delete .SaveAs iPath & Sht .Close False End With تحياتي ترحيل صفحات الى ملفات منفصله+.rar

السلام عليكم الاخ حسين حياك الله عند التعامل مع اكسل 2003 فاعتقد ان sumproduct هي الدالة البطل ,والله اعلم تحياتي

السلام عليكم لاثراء الموضوع هذه باستخدام sumproduct =SUMPRODUCT(C1:C13*((A1:A13="اثاث")+(A1:A13="مفروشات"))) تحياتي للجميع

السلام عليكم هذا علي حسب ما فهت تحياتي التاريخ+.rar

السلام عليكم بصراحة لم استوعب معظم الكلام , لكن هناك اداة اسمها Goal seek في الاكسيل علها تنفع . تحياتي

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

السلام عليكم جرب هذه تحياتي دالة بحث+.rar

السلام عليكم جرب text to columns delimited other واكتب / finish تحياتي

السلام عليكم حياك الله استاذ حمادة (ابو سما )

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

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

السلام عليكم جرب المرفق تحياتي +فواصل.rar

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

السلام عليكم استاذنا الفاضل طارق بالطبع , انتهز هذه الفرصة لاشكرك علي الجهد الرائع الذي تقوم به فهو يولد حافز لنا لتقديم مزيد من المشاركات واسأل الله ان يجزيك خيرا ويزيدك علما .http://www.officena.net/ib/index.php?showtopic=45601 تحياتي للجميع

السلام عليكم هذا باستخدام datavalidation =COUNTA($A4:$I4)=9 تحياتي Book1+.rar

السلام عليكم -يمكن ان يظهر الرقم كرقم موجب حتي و ان كتب سالب , ولكن عند عمل عمليات حسابية عليه سوف يتعامل معه الاكسيل كسالب .اي مجرد شكل الظهور . -اما ان كنت تريد استعمال الارقام في عمليات حسابية فاعتقد ان الطريقة الوحيدة هي باستخدام كود .والله اعلم --اختر ما تريد و ارفق ملف . و الله المستعان تحياتي

السلام عليكم لا اعرف ان كنت فهمت المشكلة بشكل صحيح لكن جرب هذا Private Sub Command10_Click() Me.SerchItemOriginal = "" Me.SerchItemName = "" Me.SerchItemID = "" Me.Requery End Sub تحياتي

السلام عليكم لاثراء الموضوع Private Sub CommandButton1_Click() Cells(Range("a:a").Find(TextBox1.Text, LookAt:=xlWhole).Row, Columns.Count).End(xlToLeft).Offset(0, 1) = TextBox3.Text Me.TextBox1 = "" Me.TextBox2 = "" Me.TextBox3 = "" Me.TextBox1.SetFocus End Sub Private Sub TextBox1_Change() On Error Resume Next TextBox2.Text = Range("a:a").Find(TextBox1.Text, LookAt:=xlWhole).Offset(0, 1) End Sub تحياتي