الأستاذ / محمد الدسوقى

هل تريد ترحيل هذه الأعمدة المتفرقة إلى ورقة all فى أعمدة متجاورة أم بنفس أسماء الأعمدة؟؟؟ بمعنى العمود مثلا : C ينقل إلى ورقة الهدف فى العمود C وهكذا

الحمد لله الذى بنعمه تتم الصالحات

اتفضل المعادلة التالية CONCATENATE ضعها فى الخلية H9 مع السحب لأسفل لنسخها فى باقى خلايا العمود =CONCATENATE(D9;E9;F9;G9) ويمكن أيضا استخدام هذه الطريقة باستخدام & =D9&E9&F9&G9

اتفضل أستاذ / أبو طيبه الملف المرفق تم اضافة كود لحماية كل أوراق العمل ما عدا الأوراق المذكورة وعند الخروج من الورقة ثم العودة مرة أخرى يتم حمايتها تلقائيا حتى وإن تم الغاء حمايتها يدويا كما طلبتم تعديل كود حماية الصفحات M_D.xls

يمكنك رفع الملف على أحد مراكز رفع الملفات مثل الميديا فاير أو جوجل درايف أو Top 4 Top أو غيرها ثم رفع رابط الملف وليس الملف نفسه

دائما مبدع ونتعلم منكم الكثير زادكم الله علما ونفعكم بما علمك

مبدع دائما أستاذنا الكبير / سليم وإثراء للموضوع يمكن تجربة الكود التالى لاستدعء البيانات بأكثر من شرط Option Explicit Sub M_D_Test() Dim ws As Worksheet: Set ws = Sheets("Data") Dim sh As Worksheet: Set sh = Sheets("المطلوب") Dim Arr As Variant, Arr1 As Variant, Temp As Variant Dim lr As Long, I As Long, j As Long, P As Long lr = ws.Range("C" & Rows.Count).End(xlUp).Row '------------------------------------ Application.ScreenUpdating = False sh.Range("H2:H22").ClearContents Arr = ws.Range("A2:Z" & lr).Value '=================== Arr1 = Array(5) '==================== ReDim Temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr1) + 1) For I = 1 To UBound(Arr) ' الـ 3 شروط ' ================================================================================================== If Arr(I, 19) = sh.[A2].Value And Arr(I, 7) = sh.[B2].Value And Arr(I, 3) = sh.[C2].Value Then '================================================================================================== P = P + 1 For j = 0 To UBound(Arr1) Temp(P, j) = Arr(I, Arr1(j)) Next j End If Next I If P > 0 Then sh.Range("H2").Resize(P, UBound(Temp, 2)).Value = Temp '------------------------------------ Application.ScreenUpdating = True End Sub MY_search_MD.xlsm

بارك الله فيك أستاذ / Mahmoud Abdou

الحمد لله الذى بنعمته تتم الصالحات

أستاذ / مالك يمكنك عمل زر ( الصفحة الرئيسية ) ووضعه فى كافة صفحات العمل و ربطه بكود للعودة للصفحة الرئيسية التى تريدها كما يلى Sub main() Application.Visible = True ' Sheet 1يمكنك اختيار اسم الصفحة الرئيسية بدلا من Sheet1.Activate End Sub

اتفضل استاذ مالك الملف المرفق به حلين: الحل الأول : عمل كمبوبوكس يحتوى على أسماء أوراق العمل وعند الاستدعاء اختر الشيت المطلوب سيتم الانتقال إليه تلقائيا الحل الثانى : عمل هايبر لينك بأسماء أوراق العمل فى مكان محدد من ورقة العمل تعبئة الكمبوبوكس بأسماء أوراق العمل.xlsm

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

بارك الله فيك أستاذ على دائما تحرص على نشر الخير وفقكم الله لكل خير

أحسنت أستاذى الفاضل وجزاكم الله خيرا

عفوا أخى الكريم لم أر ما أردت فى المشاركة الأولى وعلى العمود لعمل ذلك قم بعمل تنسيق للخلايا التى يتم إدخال التاريخ فيها لتكون بالهجرى وتم إدراج دالة معرقة للمبدع الأستاذ الكبير / عبد الله باقشير ـ غفر الله له ـ لاحتساب الفرق بين تاريخين الملف التنالى به المطلوب لعله يفى بالغرض دالة معرفة لاحتساب الفرق بين تاريخين ـ.xls

اتفضل أخى الكريم الملف المرفق به كيفية حساب السن وفقا لتاريخ محدد احتساب السن فى تاريخ محدد.xls

الحمد لله الذى بنعمه تتم الصالحات

اتفضل أخى الكريم ضع الكود التالى فى حدث الفورم سيظهر لك التكست بوكس 1 يحتوى على الوقت تلقائيا الكود Private Sub UserForm_Activate() Me.TextBox1 = Format(Date, "h:mm AM/PM;@") End Sub

اتفضل أخى الكريم تعديل بسيط على الكود الموجود بالملف يوضع فى حدث الضغط على الزر الموجود بالفورم سيقوم بفتح الملف الآخر Backup data الموجود بنفس المجلد الموجود به الملف الأول ( شرط اساسى ) وسيقوم بترحيل البيانات ثم حفظه وإغلاقه الكود Dim sh As Worksheet, ws As Worksheet Dim wkb As Workbook If TextBox1.Value = "" Or TextBox2.Value = "" Or ListBox1.Value = "" Or ListBox2.Value = "" Or ListBox3.Value = "" Or ListBox4.Value = "" Or ListBox5.Value = "" Then MsgBox "برجاء اكمال البيانات" Exit Sub End If '========================================================= Set wkb = Workbooks.Open(ThisWorkbook.Path & "\Backup data.xls") Set ws = Sheets("TAG CALL") ws.Activate '======================================================== LROW = Range("A" & Rows.Count).End(xlUp).Row Range("A" & LROW + 1).Value = TextBox2.Value Range("A" & LROW + 1).Offset(0, 1).Value = ListBox2.Value Range("A" & LROW + 1).Offset(0, 2).Value = ListBox4.Value Range("A" & LROW + 1).Offset(0, 3).Value = ListBox3.Value Range("A" & LROW + 1).Offset(0, 4).Value = ListBox5.Value Range("A" & LROW + 1).Offset(0, 5).Value = ListBox1.Value Range("A" & LROW + 1).Offset(0, 6).Value = TextBox1.Value TextBox1.Value = "" TextBox2.Value = "" ListBox1.Text = "" ListBox2.Text = "" ListBox3.Text = "" ListBox4.Text = "" ListBox5.Text = "" '--------------------------------- wkb.Close SaveChanges:=True

اتفضل استاذ / هشام جرب الكود التالى إن شاء الله يفى بالغرض المطلوب انسخ الكود وضعه فى موديول جديد واربطه بزر تنفيذ Sub MD_To_PDF() Dim ws As Worksheet Dim Fname As String Dim lr As Long Application.ScreenUpdating = False Set ws = ActiveSheet lr = ws.Cells(Rows.Count, "X").End(xlUp).Row '------------------------------------------------ With ActiveSheet On Error Resume Next .Range("X9:AA" & lr).Select Fname = ThisWorkbook.Path & "\Exported " & ws.Name ws.Range("X9:AA" & lr).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook _ .Path & "\" & ActiveSheet.Range("z1").Value & ".pdf", Quality:=xlQualityStandard _ , IncludeDocProperties:=True, IgnorePrintAreas:=False End With '------------------------------------------------ Application.EnableEvents = True Application.ScreenUpdating = True End Sub

اتفضل أخى الكريم الملف التالى به المطلوب إن شاء الله لعله يفى بالغرض المطلوب شهادة مدرسية.xlsm

أستاذى الكريم كود رائع ومميز بارك الله فيك وزادكم علما نافعا

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته ----------------------------------------- تم بحمد الله تعالى الانتهاء من التعديلات النهائية على برنامج الكنترول المدرسى للمرحلة الابتدائية 2019 ----------------------------------------------------------- فيسرنى أن أقدم لكم اليوم برنامج ( كنـــــــــوز ) للكنترول المدرسى وشئون الطلبة ـ الاصدار الرابع ----------------------- إعداد وتصميم / مـحمد الدسوقى وهو أحدث إصدار لبرنامج شيت كنترول ابتدائى 2019 بتعديلات القرار 360 لسنة 2018 بعد نجاح الاصدار الثالث نجاحا با هرا بفضل الله تعالى --------------------------------------------------------- البرنامج يعمل بكفاءة على أوفيس 2010 ـ ( لا يعمل على أقل من ذلك) -------------------------------------------------- وأهم ما يميز هذا الاصدار الرابع أنه يحتوى بجانب الكنترول على : * * واجهة البرنامج التى يظهر عليها شريط القوائم ـ بجانب مجموعة أيقونات أخرى لسهولة التعامل مع البرنامج * * سهولة التنقل بين أوراق العمل بجانب وجود أيقونات خاصة لكل صفحة للطباعة ومعاينة الطباعة وتحويل الصفحة إلى ملف PDF و أيقونة إدارة الصفحة التى تحتوى على مجموعة أوامر خاصة بهذه الصفحة * * كافة أنواع الاحصائيات والنتائج المتنوعة * * سجلات ملفات التقويم الخاصة بالمدرس الجديدة بالقرار 360 * * السجلات الخاصة برئيس الكنترول * * إمكانيات فائقة والبرمجة العالية ----------------------------------------- اسم المستخدم ( الافتراضى ) هو محمد باسورد فتح البرنامج ( الافتراضى ) هو 2020 يمكن تغيرها بعد ذلك تبعا لرغبتكم ------ ملحوظة هامة سيتم رفع رابطين فقط ( تخفيفا على الناس من كتر تحميل 6 ملفات لكل الصفوف ) الرابط الأول : ملف للصف الثالث الابتدائى ــ الرابط الثانى : ملف للصف الرابع الابتدائى بعد تحميل الملفين 1ـ قم بفك الضغط والحصول على البرنامج ( للصف الرابع الابتدائى مثلا ) ------------------------------------------------- 2ـ قم بأخد نسخة من الملف وغير اسمه ليكون للصف الخامس الابتدائى ـ وعند فتحها اذهب لصفحة البيانات الأساسية للمدرسة وغير اسم الصف فى الخلية B1 وكذلك نسخة ثالثة وغير اسمها للصف السادس الابتدائى وعند فتحها اذهب لصفحة البيانات الأساسية للمدرسة وغير اسم الصف فى الخلية B1 ------------------------------------------------- 3ـ كرر الخطوات السابقة مع ملف الصف الثالث للحصول على ملف للصف الثانى الابتدائى والأول الابتدائى ------------------------------------------------------------------------------------- والآن مع الخطوة الأخيرة وهى روابط التحميل 2/ 11/ 2018 م ----------------------------------------------------------------------------------------------- الصف الثالث الابتدائى الصف الرابع الابتدائى ------------------------------------------------------------- وهذه روابط تحميل أخرى على الميديا فاير الصف الثالث الابتدائى الصف الرابع الابتدائى ------------------------------------------------------------- **** ملف صغير لتفعيل ماكرو آليا 2010 === هــــنــــــا ------------------------------------------------------------- **** فى حالة فتح البرنامج على الاكسيل مباشرة دون المرور على شاشة ادخال الرقم السرى واسم المستخدم أو ـ عدم استجابة الأزرار الداخلية للبرنامج مع وجود رسالة تفيد بتعطيل كافة وحدات الماكرو لذلك يلزم ملف صغير لشرح كيفية تفعيل وحدات الماكرو يدويا === هــــنــــــا ------------------------------------------------------------- **** فى بعض الأحيان نقوم بتفعيل كافة وحدات الماكرو آليا أو يدويا ومع ذلك تظهر مشكلة ألا وهى ظهور الرسائل بلغة غريبة غير مفهومة ... والسبب فى ذلك أن بعذ نسخ الوندوز لا تدعم البرمجة الموجودة بالبرنامج لتناسب اللغة العربية لذلك يلزم ملف صغير لشرح كيفية إعداد اللغة العربية لتناسب لغات البرمجة === هــــنــــــا ------------------------------------------------------------- وأخيرا هذه الوجهة الرئيسية للبرنامج ********************************************** تقبلوا فائق احترامى وتقديرى أخوكم / محمد الدسوقى

الحمد لله الذى بنعمته تتم الصالحات