محمد عبدالسلام

لسلام عليكم اخي العزيز : هل من طريقة نريد تعديل البيانات في الورقة من التكست بوكس اشكرك وفقكم الله

نريد تعديل بيانات من التكست بوكس

سلام عليكم ورحمه الله وبركاته لي طلب اريد تعديل الكوداليوزر فورم ليتم البحت بسم الصنف في عمود B العطارتمسنا_2015_07_21.zip

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل ياسر خليل أبو البراء جزاك الله خيرا و زادها بميزان حسناتك

السلام عليكم ورحمة الله وبركاته طلب تفعيل مفتح تعديل في يوزار فورم العطارتمسنا_2015_07_21.zip

جزاك الله اخي خالد الرشيدى لم يعمل الكود معي

جزاك الله خير اخي صالح احمد المريسي على الاهتمام الموضوع لقد تما رفع الملف من خرج المنتدى حجم الملف كبر ربط الملف http://download1494.mediafire.com/7v7nibu3xr8g/lx3k2c4z52copc0/تمسنا_2015_07_21.zipp

تواجهني مشكلة في هذا الكود اريد شرح كيف يتم جمع كودتسلسل مع هدا الكود الااخر في السفل Private Sub Worksheet_Change(ByVal Target As Range) 'كود عمل ترقيم متسلسل If Target.Column = 5 Then Range("c10:c60").ClearContents s = 0 'متغير يشير الى ان بدايه الترقيم الرقم صفر For T = 5 To 20000 ' متغير يشير ان الترقيم سيبدا من السطر الاول 1 الى السطر 100 If Cells(T, 5) > "" Then s = s + 1 Cells(T, 5).Offset(0, -2).Value = s End If Next End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 11 Then Exit Sub If Target.Address = [i3].Address Then n = [i3] If WorksheetFunction.CountIf(Sheets("Customers").[C6:C10000], [i3]) <> 0 Then Dim message As Integer message = MsgBox("اضغط زر YES من اجل مشاهدة البيانات " & vbNewLine & "----------------------------" _ & vbNewLine & "او اضغط زر NO لالغاء الامر " & vbNewLine & "==========================================" _ & vbNewLine & "Click Yes to SHOW DATA" & vbNewLine & "----------------------------" _ & vbNewLine & "Click NO EXIT", vbYesNoCancel, "تعليمات-Login") '---------------------------------------------------------------------------------------------------------- If message = 6 Then '------------------------------------------------------------------- '--------------------------------------------------------------------- ElseIf message = 7 Then '------------------------------------------------------------------- '--------------------------------------------------------------------- ElseIf message = 8 Then Exit Sub End If ' MsgBox "هذه الفاتروره موجوده من قبل" ' ElseIf WorksheetFunction.CountIf(Sheets("Customers").[C6:C10000], [i3]) = 0 Then End If End If Application.ScreenUpdating = False On Error Resume Next If Not Intersect(Target, Range("F10:F59")) Is Nothing And IsNumeric(Target) Then Target.Offset(0, 3).Value = Target.Value * Target.Offset(0, 2).Value End If If Not Intersect(Target, Range("H10:H59")) Is Nothing And IsNumeric(Target) Then Target.Offset(0, 1).Value = Target.Value * Target.Offset(0, -2).Value End If End Sub

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

اريد لما تكون في خلاياق قيمة يظهار سطر ولما يتم حدف البيانات من الخلايا يختفي سطر

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

السلام عليكم و رحمة الله و بركاته مبروك على الجميع الاعضاء و المشرفين في فتح المنتدى من جديد ونسخة الجديد المنتدى لي طلب اريد كود تسطير الخلايا اليا بمجرد ادخال البيانات في سطير من نطاق C10 الى J60 العطارتمسنا_2015_07_21.zip

اريد كود لعمل نسخه احتياطيه في اكثر من مجلد في (D) بي اسم العامل لدى كتر من 10 عملاء اريد حفظ كل فاتورة بسم عمل في مجلد فيD اريدحفظ الملف بسم العامل الدى في الخلية E5 والتاريخ في E3 متل صورة التانية ارجوالمعديرة هدالمضوع الاول

استاذخالد الرشيدى تسلم ايدك و جزاك الله خيراً

في (D) حسب اسم العامل لا ن كل مجلد في D بسم العامل لدى يوجد في الملف اريد عمل نسخه احتياطيه للملف بسم العامل لفي الخلية E5 والتاريخ في E3 العطارتمسنا_2015_07_21.zip

كيف يتم تنشيط التكست بوكس

اخى الكريم لدي استفسار لما احذف هذا السطر Me.TextBox1.Value = "" هل من طريقة لجعل مربع اللبحت في يوزار فورم متل الخلية في صفحة في اكسل لما تكتب في الخلية تم تخرج منها وتعود اليها تم تكتب فيها يتم استبدل الحرف بحرف وهل يمكن دلك وفقك الله وسدد خطاك

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

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

اريد طريقة لي اجعل البيانات في List Box ان تبقى واقفة على حرف البحت حتى لما يتم مسح الحرف من مربع اللبحت تبقى واقفة عليه حتى يتما كتبة حرف اخر للبحت كمتال لما اكتب حرف س تبقى على حرف س حتى عندما يتم مسح الحرف من مربع اللبحت اسف لم استطع رفع على المنتدى http://www.mediafire.com/download/tb0pfy2133j18c2/اÙعطارتÙسÙا_2015_07_+(2).zip

جزاك الله خيرا قال عمر بن الخطاب رضي الله عنه: ((لَوْ يَعْلَمُ أَحَدُكُمْ مَا لَهُ فِي قَوْلِهِ لِأَخِيهِ: جَزَاكَ اللَّهُ خَيْرًا، لَأَكْثَرَ مِنْهَا بَعْضُكُمْ لِبَعْضٍ

السلام عليكم اريد طريقة لما اختار الصنف من اللست بوكس يتم حدف الحرف في المربع تلقائيا ليتم كتابة حرف اخر للبحت دونا ستعمل الماوس ليتم الحذفه ان يكون الحذف تلقائيا العطارتمسنا_2015_07_.zip

جزاك الله خيرا اخي خالد الرشيدى

اريد لما ينتقل المؤشر من اللست بوكس الى مربع البحت يتم حدف الحرف في المربع تلقائيا

ان شاء الله مادا لوتمة اضفات يوزرفورم جديد لتعديل يتم تحكم فيه بي رز دخل اليوزر فورم الأول