عبدالله باقشير

السلام عليكم ورحمة الله وبركاته انظر الى المرفق اصبحك ومساك ربي بكل الخيرات اخوكم خبور خير ______________________1.rar

السلام عليكم انظر الى المرفق ان شاء الله يكون المطلوب _____.rar

السلام عليكم ورحمة الله وبركاته الاخ / احمد يعقوب المحترم تفضل المرفق مثالين لعمل قائمة الاخ ابو اكرم المحترم ساوافيك بالرد قريبا خبور خير _______________________.rar

السلام عليكم الاخ المبارك / ابو عبدالله الجزيرة حفظه الله وانتم احبائي في الله حفظكم الله ورعاكم واحسن ختامكم اخوكم خبور خير

السلام عليكم تحت النظر ان شاء الله وساوافيكم بالرد قريبا

السلام عليكم الاخ / هادي سالم حفظه الله و يبارك فيك ان شاء الله خبور خير

السلام عليكم شكرا اخي assahir واثابك بمثل دعائك اضعاف مضاعفة

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

السلام عليكم شكرا يا استاذ حاجب على فكرة كيف صحة ابنتك ؟ ان شاء الله تكون في صحة وعافية اخوك خبور خير

السلام عليكم اما زلت مستيقظا يا ابو الاكارم بارك الله فيك و اكثر الله من امثالك شكرا جزيلا

السلام عليكم الاصدار الثاني من دليل الحسابات اكثر سهولة ومرونة لاكثر من دليل واحد ليس في المصنف فقط ولكن في الورقة الواحدة ممكن تعيين اكثر من دليل مع التعليمات في التجربة والاستخدم ما يغني عن الشرح خبور خير __________________.rar

السلام عليكم انظروا الى المرفق استخراج بيانات من عمود الى عمود آخر بدون تكرار خبور خير ________________.rar

السلام عليكم تفضل المرفق اذا اضفت في العمود B اسم ليس موجودا في العمود I يقوم باضافته في العمود I ان شاء الله يكون المطلوب خبور خير _______.rar

السلام عليكم الف شكر للجميع وما توفيقي الا بالله عليه توكلت وهو رب العرش العظيم خبور خير

السلام عليكم اخي ضيف في الكود بجنب التيكس بوكس كلمة قيمة هكذا TextBox1.Value Private Sub CommandButton4_Click() Dim Response Response = MsgBox(":لقد قمت بالتعديل " & "فهل تود الإستمرار؟", vbYesNo + vbQuestion, "تأكيد التعديل") If Response = vbYes Then For T = 2 To Columns(1).Rows(65536).End(xlUp).Row If Cells(T, 4) = ComboBox1.Text Then With Cells(T - 1, 1) .Offset(1, 0) = TextBox1.Value .Offset(1, 1) = TextBox2.Value .Offset(1, 2) = TextBox3.Value .Offset(1, 3) = TextBox4.Value .Offset(1, 4) = TextBox5.Value .Offset(1, 5) = TextBox6.Value .Offset(1, 6) = TextBox7.Value .Offset(1, 7) = TextBox8.Value .Offset(1, 8) = TextBox9.Value .Offset(1, 9) = TextBox10.Value .Offset(1, 10) = TextBox11.Value .Offset(1, 11) = TextBox12.Value .Offset(1, 12) = TextBox13.Value .Offset(1, 13) = TextBox14.Value .Offset(1, 14) = TextBox15.Value .Offset(1, 15) = TextBox16.Value .Offset(1, 16) = TextBox17.Value .Offset(1, 17) = TextBox18.Value .Offset(1, 19) = TextBox19.Value .Offset(1, 20) = TextBox20.Value .Offset(1, 21) = TextBox21.Value .Offset(1, 22) = TextBox22.Value .Offset(1, 23) = TextBox23.Value .Offset(1, 24) = TextBox24.Value .Offset(1, 26) = TextBox25.Value .Offset(1, 28) = TextBox26.Value .Offset(1, 29) = TextBox27.Value .Offset(1, 30) = TextBox28.Value End With End If Next End MsgBox "تمت إضافة جميع البيانات بنجاح", vbInformation, "تمت الإضافة" End If End Sub الجميع حق الااضافة والتعديل وستنتهي المشكلة

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

السلام عليكم انظر الى المرفق ان شاء الله يكون المراد اخوكم خبور خير Copy__2__of_Orders.rar

السلام عليكم انظر الى المرفق اخوك خبور خير ___________.rar

ارسل رابط لهذه المشاركة لننظر فيها

السلام عليكم ارجو المعذرة وجدت بعض الاخطاء في الملف المشاركة (12) فقمت بالتعديلات في الملف ارجوا التحميل مرة اخرى خبور خير

السلام عليكم ورحمة الله وبركاته عيد مبارك على الجميع شرح لعمل الازرار المضافة : 1 - الفرز : يقوم بفرز العمود النشط بغض النظر عن الصف ( أي عمود انت واقف عليه ) ضغطة تصاعديا واخرى تنازليا للبيانات او العكس (ما عدى العمود الاول المتسلسل) 2 - مسح : يقوم بمسح جميع الصفوف والاعمدة ما عدى الاعمدة التي توجد فيها معادلات (5,6,7,11,14). وهي محدده في الكود وبامكانك تغييرها 3 - نسخ تنسيقات : الصف رقم 6 هو الصف الذي ستعمل عليه التنسيقات ثم ستستخدم زر نسخ تنسيقات ليقوم بتعميمها على جميع الصفوف 4 - في حالة انك اضفت أي اسم مكرر يعطيك رسالة ويحذف ما كتبته واذا كان ليس مكررا يعطيك تسلسل تلقائي في العمود الاول (م). 5 - في حالة لصق الاسماء من مصدر آخر قم باللصق في جميع الصفوف ثم استخدم زر فحص ليقوم بفحص الاسماء ويقوم بحذف الاسماء المكررة من البيانات ويعيد التسلسل للبيانات المتبقية مع ابقاء الاسماء المكررة في العمود رقم 50 للاطلاع عليها قم بالتجربة في هذا الملف (فيه اسماء مكررة) لترى بنفسك ما يحدث اضافة تنسيقات الاخ / ايمن الى طباعة ارقام الجلوس اخوكم خبور خير _______________________________________.rar

السلام عليكم انظر الى المرفق ___.rar

السلام عليكم ورحم الله وبركاته عيد مبارك للجميع عدد اللجان مفتوح اختار الذي تريد اخوكم خبور خير ________________________________________.rar

بسم الله الرحمن الرحيم وانا بالمثل اخي العزيز ممكن رسالة على الايميل بتاعي حتى اعرف ايميل حضرتك

السلام عليكم بامكانك ايضا استخدام هذا الكود اكثر مرونة وسهولة Sub Khboor_n() On Error Resume Next Dim Mycelle As Range 'الخلايا التي تريد نقلها من ورقة تسجيل الدرجات Set Mycelle = Range("F9,I16,I24,I34,C17,C35,F26,C7,F16,C25,F34,I8") Application.ScreenUpdating = False With Sheets("البيانات") W = .Cells(.Rows.Count, "B").End(xlUp).Row N = 21 'اول عمود في ورقة البيانات S = 12 'عدد الخلايا المنقولة For R = 1 To S For F = 2 To W If .Cells(F, 2) = Range("اسم_المدرس").Value Then .Cells(F, N - 1 + R) = Mycelle.Areas(R) T = F End If Next Next .Select End With Application.ScreenUpdating = True Range("U" & T).Select On Error GoTo 0 End Sub اخوك خبور خير