حمادة عمر

تقبل خالص تحياتي وجزاك الله خيرا

شاهد اخي الكريم الرابط التالي ( ان شاء الله به طلبك ) http://www.officena.net/ib/index.php?showtopic=53112

تمام كما ذكرت اخي الحبيب ولكن تم الاستغناء عن اجزاء كبيرة من الكود السابق او بمعني آخر تم تغييره قم بتسمية نطاق البحث كما تريد .. واستخدم هذا الكود لتنفيذ طلبك تقبل خالص تحياتي

السلام عليكم الاخ الفاضل / السلطانmax بارك الله فيك اهلا وسهلا بك بين اخوانك في هذا الصرح العملاق منتدي اوفيسنا وان شاء الله ستسعد جدا بالانضمام الي هذه الاسرة الراائعة ويسعدني جدا ان تكون اول مشاركة لك في موضوع لي تقبل خالص تحياتي

ولاثراء الموضوع اخي الكريم جرب الكود التالي ... يقوم باضافة التاريخ في العمود B اذا كان الخلية في العمود A ليست فارغة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 2) = Now() End If End If End Sub   شاهد المرفق 2003 Book1-sama.rar

اعجبتني جدا وتستحقها بجدارة اخي الحبيب / ضاحي

السلام عليكم الاخ الحبيب / ريان أحمد بارك الله فيك عذرا ع التأخر في الرد حيث لم اري طلبك الا الآن اليك الملف المرفق ... قم بكتابة اي اسم او اي حرف موجود في العمودين C-D وستحصل علي النتيجة المطلوبة ( ان شاء الله ) شاهد المرفق ... تقبل خالص تحياتي تجريب البحث_3.rar

الاخ الحبيب : حمادة باشا بارك الله فيك مرور طيب و كريم من اخ كريم وحبيب جعلني الله عند حسن ظنكم دائما وفي انتظار رد اخونا الاستاذ : تومي محمد تقبل خالص تحياتي

السلام عليكم الاستاذ الحبيب / تومي محمد بارك الله فيك بالنسبة للكودين الموجودين في مشاركتك الهدف والغرض منهما واحد حيث ان كلا الكودين يقومان بتسجيل محتويات التكستات بوكس الموجودة في الفورم في آخر صف به بيانات ولكن مع الاختلاف 1- الكود الاول يقوم بالتسجيل في آخر صف به بيانات ويعمل ويقوم بعملية التسجيل حتي آخر صف في شيت الاكسيل نفسه 2- اما بالنسبة للكود الثاني فيقوم بالتسجيل قيمة التكستات بوكس في آخر صف ولكن حتي الصف رقم 1000 فقط واري انه من الافضل استخدام الكود الاول في حالة ان البيانات المراد تسجيلها كبيرة وتحتاج اكثر من 1000 صف ولكن كلاهما يؤدي نفس الغرض بالنسبة للسطر Me.TextBox1.SetFocus يقوم الكود فيه بعد التسجيل وترحيل البيانات المحددة في التاكستات بوكس والقيان بمسح القيم الموجودة فيهم بجعل التكست بوكس 1 TextBox1 هو التكست بوكس الافتراضي SetFocus للادخال بعد تنفيذ الكود ... اي انك تجد المؤشر في تكست بوكس رقم 1 جاهز للادخال مباشرة ارجو ان اكون قد اوضحت لك الفكرة ويكون الشرح مفيد ... وكما تريد واي استفسار معك دائما باذن الله تقبل خالص تحياتي

برجاء ارفاق ملف اخي العزيز لتوضيح طلبك وتحديد ما هو المطلوب فيه وعلي حسب فهمي لطلبك اظهار التاريخ في العمود B بدون الكتابة في العمود A !!!!!!!!

كود راائع وجميل تقبل خالص تحياتي اخي الحبيب / سليم حاصبيا نشاط وتميز واضحين

السلام عليكم الاخ الحبيب / سليم حاصبيا الاخ الحبيب / محمد أبو البراء بارك الله فيكما وسلمت ايديكم تقبلوا خالص تحياتي

جزيت كل خير أخي الحبيب

شاهد المرفق اخي الكريم Classeur1.rar

اللهم وبحق الجنة التى تحت قدميها ان تشفى والدتنا أم رجب شفاءا لايغادرسقما وأن تعفوا عنها برحمتك إنه ولى ذلك والقادرعليه

السلام عليكم الاخ الكريم / أبو چيداء بارك الله فيك جميل جدا ان تصل للحل بنفسك وتقوم بوضعه ليستفيد منك غيره ممن يقابله مثل موضوعك حيث ان هناك البعض عندما يطرح السؤال ويصل للحل لا يقوم بالاهتمام بالموضوع او الرد عليه حتي ولو لم يتم الرد عليه من قبل اي عضو آخر ولاثراء الموضوع .... شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=50134&hl= تقبل خالص تحياتي

السلام عليكم كما ذكر اخي الحبيب / سليم اليك الكود التالي ... جرب واخبرنا بالنتيجة Sub sama() With Range("C5") .Interior.ColorIndex = xlNone .Font.ColorIndex = 2 .Borders.LineStyle = xlNone End With Sheets("Feuil2").PageSetup.PrintArea = "A1:g50" Sheets("Feuil2").PrintOut With Range("C5") .Interior.ColorIndex = xlAutomatic .Font.ColorIndex = 0 .Borders.LineStyle = xlContinuous End With End Sub تقبلوا خالص تحياتي

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520