Ali994m

جزاك الله كل خير

السلام عليكم الطلوب جعل ال Textboxلا يقبل أي قيمة ليست رقم وجزاكم الله كل خير textbox.xlsm

اجابة رائعة جزاكم الله كل خير

كود رائع جزاك الله كل خير أخي هذا الكود رائع لكن لتنسيق معين التنسيق المطلوب "S21-"00# فهل توجد طريقة لهدا التنسيق .. أو طريقة لعامة لاظهار النص بدلا من القيمة .. وجزاك الله كل خير

السلام عليكم أرجو المساعدة تعديل الكود الذي يعمل على اظهار قيمة اخر خلية في العمود المطلوب أن يظهر نص الخلية أي يظهرها مع ال format الخاص بها Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) msgbox LR End Sub وجزاكم الله كل خير Book1.xlsm

كود رائع جزاك الله كل خير لكن الكود لايعمل الى مع الخلايا التي معرفها نص ولا يعمل مع الأرقام والتاريخ

الملف ppp.xlsm

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

الهدف الكلي من الموضوع أني أقوم باضافة بيانات على عالشيت raw و micro على مدار اليوم بشكل متكرر من خلال فورم اخر في اخر اليوم أريد اضافة بيانات أخرى على نفس الصفوف من خلال هذا الفورم وذلك من خلال اختيار تاريخ اليوم وجزاك الله كل خير

يتم الترحيل الى جميع الصفوف في الشيت raw و micro التي تساوي قيمة العمود Date قيمة ال Textbox

المطلوب أن يتم الترحيل على الى الصفوف في الشيت RAW & Micro اذا كانت خلية F الصف في احدى أو كلتا الشيتات تساوي قيمة ال TEXTBOX دون الترحيل الى اخر صف وجزاكم الله كل خير

السلام عليكم أرجو المساعدة في تعديل كود الترحيل ليتم الترحيل الى الصفوف التي تساوي خلية العمود F مع ال Date TEXTBox وجزاكم الله كل خير ppp.xlsm

جزاك الله كل خير

جزاك الله كل خير تم تعديل الكود وتم الأمر

السلام عليكم ورحمة الله بعد تبديل النظام من ويندوز 7 32bit الى ويندوز 10 64bit لم يعد يعمل أي فورم وظهرت رسائل المشاكل التالية علماً أن الفورمات تعمل حواسيب أخرى وجزاكم الله كل خير

السلام عليكم أرجو المساعدة في كود لإخفاء الصفوف عدا الصف الذي يحتوي قيمة ال Combobox وجزاكم الله كل خير Hide.xlsm

تم بنجاح سلمت يداك

وعليكم السلام ورحمة الله وبركاته كل ماعليك تعديل الكود بإضافة اسم النص المطلوب تحويله لنص فلاشي وتغيير رقم اللون حسب الرغبة Private Sub UserForm_Activate() For i = 1 To 10000 DoEvents L1.ForeColor = QBColor(Rnd * 15) Label2.ForeColor = QBColor(Rnd * 15) Label3.ForeColor = QBColor(Rnd * 8) Label1.ForeColor = QBColor(Rnd * 9) CommandButton1.ForeColor = QBColor(Rnd * 7) Call Sleep(200) Next i End Sub Test.xlsكما يجب أن يحتوي الملف على Module يحتوي الكود التالي Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) أرجو الله تعالى أن أكون وفقت في الاجابة على سؤالك

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

السلام عليكم ورحمة الله وبركاته أرجو المساعدة في كود لتحديد أربع صفوف في كل نقرة --------------------------------------------------------------- أو شرح كيفة عمل حدث مختلف في كل نقرة لزر -------------------------------------- وجزاكم الله كل خير click.xlsm

السلام عليكم أرجو المساعدة في اصلاح ملف تالف اذا أمكن الاصلاح وجزاكم الله كل خير MIQ_QIT62_HM2_F19_C1_Mohammad_123680.docx

تم الأمر وجزاك الله كل خير

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

السلام عليكم أرجو المساعدة في تعديل الكود ليتم الترحيل بعدد مرات معين قيمة ال Textbox ويتم الترحيل الى خلايا معينة كما في الصورة وجزاكم الله كل خير lable.xlsm