عمار الدخخنى السعيد

شكررا جزيلا أستاذ سليم

السلام عليكم اساتذتى الكرام ممكن المساعدة صممت شيت أكسل به جدول وكنت عايز انسخ الصفحة التى بها الجدول 15 مرة توفيرا للوقت ولكن تواجهنى مشكلة وهى ظهور الرسالة دى عند القيام بنسخ الصفحة ممكن المساعدة فى طريقة استطيع من خلالها نسخ الصفحة الى عدة صفحات This command not aviliable in this workbook ولكم جزيل الشكر ,مرفق الملف برنامج شئون عاملين مدرسة.zip

استاذنا الاستاذ Ali mohamed لك من عظبم الشكر وجعله الله فى ميزان حسناتك

عندى برنامج وكنت طالب من أساتذى خبراء الأكسل مساعدة بسيطة فى تصميمم الوجهة الرئيسية للبرنامج وهو تثبيت ايقونات التنقل بين الصفحات على الوجهة الرئيسية بمعنى عدم قدرة المستخدم بالعبث بالايقونات وتغييرها او حذفها من على الوجهة الرئيسية للبرنامج ويقتصر استخدامه فقط على التنقل بها الى صفحات البرنامج فقط .ارجو المساعدة فى تنفيذ هذا الطلب,مرفق ملف للاطلاع وأسف على الاطالة. شكرا جزيلا اساتذتى خبراء الاكسل Book1.xlsx

الصورة فين استاذ سليم مش بتفتح

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

كيفية تعديل التاريخ فى شيت الاكسل بمعنى عند كتابة تاريخ معين فى خلية الاكسل مثل 2011/1/2 بيظهر 1905/1/2

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

عند قاعدة بيانات بها صفحة البيانات الخاصة بكل مدرسة وهناك عدد من اوراق العمل مسماه باسم كل ادارة والادارة مقسمة الى عدة اوراق عمل مثال " صفحة البيانات الاساسية احتوى على كل اسماء المعلمين بالمحافظة وكذلك تخصصاتهم ومؤهلاتهم وتاريخ التعيين واسم الادارة ونوع المدرسة (رسمى عربى -رسمى لغات) ....الخ عملت كود لكل صفحة لترحيل البيانات اليها وفق الاسم الادارة ونوع المدرسة (عربى رسمى - عربى لغات) علما بان التصفية تكون وفق معيارين اسم الادارة ونوع المدرسة وموجودين فى صفحة البيانات الاساسية فى العمودين (u-v) المشكلة الكود بطىء جددددددا فى نقل البيانات وممكن فضلا كود واحد يرحل جميع البيانات الى جميع الادارات وفق اسم الادارة ونوع المدرسة بدل عمل كود ترحيل لكل ادارة حسب نوع المدرسة واسم الادارة وأسف على الاطالة,وشكررا جزيلا مرفق الملف لابداء اراء معلمى وخبراء الاكسل وده الكود اللى بشتغل عليها لترحيل البيانات الى كل ادارة وفق معيار اسم الادارة ونوع المدرسة Sub filter_me11() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim My_Sh As Worksheet, Source_Sh As Worksheet Dim last_row As Long Dim lr As Long Dim My_rg As Range Dim My_First As Long, i As Long My_First = 7 Set My_Sh = Sheets(" الغردقة رسمى لغات"): Set Source_Sh = Sheets("بيانات") last_row = My_Sh.Cells(Rows.Count, "d").End(3).Row If last_row < 2 Then last_row = 2 lr = Source_Sh.Cells(Rows.Count, "b").End(2).Row If lr < 7 Then lr = 7 My_Sh.Range("d7:ab" & last_row).ClearContents For i = 1 To lr If Source_Sh.Range("u" & i) = "الغردقة" _ And Source_Sh.Range("v" & i) = "رسمى لغات" Then With My_Sh .Cells(My_First, "D") = Source_Sh.Range("b" & i) .Cells(My_First, "E") = Source_Sh.Range("c" & i) .Cells(My_First, "F") = Source_Sh.Range("d" & i) .Cells(My_First, "G") = Source_Sh.Range("e" & i) .Cells(My_First, "H") = Source_Sh.Range("f" & i) .Cells(My_First, "I") = Source_Sh.Range("g" & i) .Cells(My_First, "J") = Source_Sh.Range("h" & i) .Cells(My_First, "K") = Source_Sh.Range("i" & i) .Cells(My_First, "L") = Source_Sh.Range("j" & i) .Cells(My_First, "M") = Source_Sh.Range("k" & i) .Cells(My_First, "N") = Source_Sh.Range("l" & i) .Cells(My_First, "O") = Source_Sh.Range("m" & i) .Cells(My_First, "P") = Source_Sh.Range("n" & i) .Cells(My_First, "q") = Source_Sh.Range("o" & i) .Cells(My_First, "r") = Source_Sh.Range("p" & i) .Cells(My_First, "s") = Source_Sh.Range("q" & i) .Cells(My_First, "t") = Source_Sh.Range("r" & i) .Cells(My_First, "u") = Source_Sh.Range("s" & i) My_First = My_First + 1 End With End If Next Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Call MsgBox("تم تسكين معلمات الغردقة رسمى لغات", mBox, " عمار الدخخنى") End Sub بيانات المدارس.xlsx