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

هل تريد ترحيل هذه الأعمدة المتفرقة إلى ورقة 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

أستاذى الكريم 

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

اقتباس

 

تم تحديث الروابط للبرنامج بتاريخ 11/11/ 2018

ولكن للأسف الشديد الذى طالما ناشدنا به كثيرا مسئولى هذا الموقع العظيم

 بإتاحة الفرصة لصاحب الموضوع بتحرير الموضوع والتعديل عليه ولكن هذه الخاصية لا توجد هنا

وهذه هى اروابط الحديثة

 

الصف الثالث الابتدائى 11/11/2018

https://excel-egy.com/Up/do.php?id=29                             

 

الصف الرابع الابتدائى 11/ 11 /2018

https://excel-egy.com/Up/do.php?id=28

 

 

 

 

 

اقتباس

 

الأخوة الأفاضل
السلام عليكم ورحمة الله وبركاته
-----------------------------------------
تم بحمد الله تعالى
الانتهاء من التعديلات النهائية على برنامج الكنترول المدرسى للمرحلة الابتدائية 2019
-----------------------------------------------------------
فيسرنى أن أقدم لكم اليوم برنامج ( كنـــــــــوز ) للكنترول المدرسى وشئون الطلبة ـ
الاصدار الرابع 
-----------------------

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

وهذه روابط تحميل أخرى على الميديا فاير    

الصف الثالث الابتدائى                 الصف الرابع الابتدائى
-------------------------------------------------------------
**** ملف صغير لتفعيل ماكرو آليا  2010   ===  هــــنــــــا 
-------------------------------------------------------------
**** فى حالة فتح البرنامج على الاكسيل مباشرة دون المرور على شاشة ادخال الرقم السرى واسم المستخدم
أو ـ عدم استجابة الأزرار الداخلية للبرنامج مع وجود رسالة تفيد بتعطيل كافة وحدات الماكرو 
لذلك يلزم ملف صغير لشرح كيفية تفعيل وحدات الماكرو يدويا === هــــنــــــا 
-------------------------------------------------------------
**** فى بعض الأحيان نقوم بتفعيل كافة وحدات الماكرو آليا أو يدويا ومع ذلك تظهر مشكلة ألا وهى ظهور الرسائل
بلغة غريبة غير مفهومة ... والسبب فى ذلك أن بعذ نسخ الوندوز لا تدعم البرمجة الموجودة بالبرنامج لتناسب اللغة العربية 
لذلك يلزم ملف صغير لشرح كيفية إعداد اللغة العربية لتناسب لغات البرمجة === هــــنــــــا 
-------------------------------------------------------------
وأخيرا هذه الوجهة الرئيسية للبرنامج 


**********************************************

تقبلوا فائق احترامى وتقديرى
أخوكم / محمد الدسوقى 

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