نسخ من الى

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته بعد اذنك داخل هذا الشيت فورم به 2 ليست تظهر الاسماء فى الليست 1 الاسم الاختاره من الليست 1 واضغط عليه 2 كليك يذهب الى ليست 2 اريد عند اختيار مثلا مدرس 1 من الكمبوبكس ينسخ بيانات مدرس 1 الى الاسماء المختارة مثلا مدرس 2 و مدرس 5 ومدرس 4 من مادة وعدد حصص وبجانب كل مدرس فى الليست 2 كمبوبكس به اسماء الفصول وختار فصل كل مدرس من الكمبوبكس

نسخ من الى .xlsm

[ضاحي الغريب]

علي ما حسب مافهمت من طلبك انك تختار المدرس من ليست بوكس تظهر بيانات المادة

شرح الكود

في حدث انطلاق اليوز فورم اضافة قائمة المدرسين بدون تكرار

Private Sub UserForm_Initialize()
On Error Resume Next
'اضافة قائمةا المدرسين الى الليست بوكس بدون تكرار

Set SH = Sheet1

LsRow = SH.Cells(Rows.Count, "C").End(xlUp).Row
With Me
'مسح قائمة الليست لمنع تكرار القائمة
 .LstItm.Clear: .ListBox1.Clear: .ListBox2.Clear
        Dim MyDahy As Collection, Dl As Range
        Set MyDahy = New Collection
        ' العمود ورقم الصف
            For Each Dl In SH.Range("C4:c" & LsRow)
                MyDahy.Add Dl.Value, Dl.Text
            Next Dl
        For j = 1 To MyDahy.Count

.LstItm.AddItem MyDahy(j)
.ListBox1.AddItem MyDahy(j)
     Next j: End With: End Sub

وفي حدث الدبل كليك لليست بوكس 1

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'اضافة قائمةا المدرسين الى الليست بوكس بدون تكرار
Dim R As Integer
  With Me
    If .ListBox1.ListIndex >= 0 Then
        R = .ListBox1.ListIndex
            .ListBox2.Clear
                .LstItm.Value = .ListBox1.List(R, 0)
                'ارتفاع الليست بوكس
                 .ListBox1.Height = 200:  .ListBox2.Height = 200
         End If:  End With: End Su

 

كود البحث لليست بوكس 2 من اليمين لليسار

Sub UpDateLstBoX()
If Me.LstItm.Value = "" Then Exit Sub
'ليست بوكس من اليمين للشمال
Set SH = Sheet1
With SH
.Activate
LsRow = .Cells(Rows.Count, "C").End(xlUp).Row
On Error Resume Next
For a = 4 To LsRow
If .Cells(a, 3) = LstItm.Value Then
ListBox2.ColumnCount = 4
ListBox2.ColumnHeads = False
ListBox2.AddItem .Cells(a, 6)
ListBox2.List(C, 1) = .Cells(a, 5)
ListBox2.List(C, 2) = .Cells(a, 4)
ListBox2.ColumnWidths = "60,60,100,0"
C = C + 1
: End If: Next
End With: End Sub

لاحظ النتيجة عند تكرار مواد مدرس 3

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

نسخ من الى .xlsm

[فوزى فوزى]

اولا شكرا لك سيدى الكريم على الاستجابة ولكن ليس هذا هو المطلوب فى اليوزر فور 1 يوجد كمبوبكس اختار منه اسم المدرس وهو المدرس 1 وهو المدرس الوحيد المكتوب بياناته فى الشيت عندما اختار المدرس من اليست بوكس 1 واضغط 2 كليك يذهب الى اليست بوكس 2 المطلوب ينسخ بيانات مدرس 1 الى مدرس 2 والمدرس 3  او المدرسين الذين تم اختيارهم من اليست 1 الى اليست 2 من مادة وعدد الحصص واختار الفصل ومن الكمبوبس المجاور لكل مدرس والف شكر على الاستجابة

[فوزى فوزى]

اول شئ قمت بادخال بيانات مدرس 1 من مواد هدرسها والفصل اللى يدخله وعدد حصص كل مادة المطلوب ادخال بيانات مدرس 2 ومدرس 5 ومدرس 4 وهم يدرس نفس المواد ونفس عدد الحصص بدل ماكتب اسماء المدرسين واكتب اسماء المواد وعدد الحصص هنا ياتى دور الفورم اختار من الكمبوبكس 1 اسم المدرس اللى هيتم نسخ منه البيانات ثم اختار من الليست بوكس 1 اسم المدرس عند الضغط عليه يذهب الى اليست بوكس 2 كل الاسماء الموجودة فى اليست بوكس2 هيتم لهم لصق بيانات مدرس 1 الموجود فى الكمبوبكس 1

نسخ من الى .xlsm

[فوزى فوزى]

[فوزى فوزى]

[ضاحي الغريب]

حياك الله اخي فوزي

اعتذر عن التأخير عن الرد علي الرسائل الخاصة

بالنسبة لطلبك 

 

اتبع الخطوات

كما بالصورة

اختار اسم المدرس ثم اب ديت اختار الفصل الذي ترغب فيه دبل كليك ع الليست الثاني ثم حفظ للملف

اتمني يكون قدرت اساعدك .. جرب وقولي النتيجة

مع تحياتي

فوزي اوفيسنا.xlsm

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته استاذ ضاحى انا بتاسف ليكم ولتعبك معى ووقت اللى انا اضعته عليكم لانى لم اعرف اوصل لك المعلومة او الحل المطلوب الموضوع  ببساطة الاسم اللى انا اخترتة من الكمبوبكس1 يتم نسخ بياناته ولصق بياناته الى الاسماء اللى المختارة فى الليست بوكس 2 ثم ترحيلها الى الشيت 

 

ان نظرت الى الصور اللى فى المشاركة السابقة لعلها توضح المطلوب

 

ان نظرت الى الصور اللى فى المشاركة السابقة لعلها توضح المطلوب

 

[ضاحي الغريب]

فمهتك عاوز تاخد بيانات جدول المدرس 1 مثلا ( المواد - الفصل - الحصص ) وتنسخها لمدرس 3 مثلا

او اي عدد من المدرسين

ان كان كذلك جرب الملف التالي

جرب واعلمني بالنتيجة

فوزي 2 اوفيسنا.xlsm

 

[ضاحي الغريب]

 

الملف التالي يمكنك معاينة كل المدرسين يلي اضفتهم قبل الحفظ

 

فوزي 2 اوفيسنا.xlsm

[فوزى فوزى]

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

تم تعديل نوفمبر 14, 2022 بواسطه فوزى فوزى

[ضاحي الغريب]

عليكم السلام وورحمة الله وبركاته .....

احبك الله الذي احببتني من اجله وجزاك الله خيرا علي دعائك الطيب واللهم يتقبل منا ومنكم صالح الاعمال وادعوا الله ان اكون عند حسن ظنكم في

اليك الفورم بعد التعديلات

يمكن اضافة مدرسي التربية والتعليم دفعة واحدة وتوزع الجداول كما شئت وادعوا الله ان يلتزموا بها ربنا يصلح حال المدرسين لانهم هم الاساس في بناء المجتمع

من ليست بوكس المدرسين اختار المدرسين  وبعد اختار المدرس الهدف يلي هاتنسخ منه البيانات ثم Ubdate list

ثم Save Data .... تظهر لك رسالة تاكيد الخفظ والترحيل لةورقة العمل

وبعد رسالة تخيرك الاحتفاظ بالقائمة القديمة المحفوظة مسبقا ولا تعملك قائمة جديدة

 

جرب الملف واعلمني بالنتيجة وبالتوفيق

فوزي 9 اوفيسنا.xlsm

[فوزى فوزى]

استاذ الاستاذة ومعلم الاجيال اهديكم اجمل واعطر التحيات والله يعجز اللسان عن الامتنان بالعرفان لا املك الا ان ادعو لك اللهك بارك لك فى صحتك واهللك ومالك وولدك ووقتك اللهم اجعل هذا العمل خالصا لوجهك الكريم عمل رااااااااااااااااااااااااااااااااااااااااااائع انى احبك فى الله

[فوزى فوزى]

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

[ضاحي الغريب]

بالنسبة لفورمات الصف الاكسيل بعتبره تاريخ ويحوله الي فورمات تاريخ

.........  في ورقة العمل غير تنسيق العمود الي نص

وفي الكود

Format(.......,"@")

استبدل النقاط بالعمود في الليست بوكس والترحيل

واللهم بوفقك ويسير لك كل امر

[ضاحي الغريب]

اضفت لك تعديل الفصل علي الملف بطريقة سهلة بدلالة رقم الصف في الشيت  لان عندك بيانات متكررة وما يكون فيه خلل في التعديل

 

بعد حفظ البيانات فعل خاصية Edit ثم دبل كليكSelect Row علي اي صف تريد تغير بيانات الفصل تظهر في التكست اعلاه ثماختار من قائمة الكمبوبوكس الفصل الجديد قم OK

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

جرب وقلي النتيجة

Fawzy 10.xlsm

 

[فوزى فوزى]

الحمد لله أخيراً توصلت للمراد بما قدمته لي من عون ومساعدة فهذا هو ما كنت أحتاج الوصول إليه ويعلم الله كم فرحتي كبيرة وأنا أرى نتائج عملك وجهدك الطيب وبارك الله فيك وفي علمك

وعملك ، رزقكم الله أسمى مراتب الدنيا وأعلى منازل الجنة وجعلكم ممن طال عمره وحَسُنْ عمله وبُورك له في رزقه وماله وصحته وعافيته وأولاده وأهله 

[ضاحي الغريب]

2 ساعات مضت, فوزى فوزى said:

الحمد لله أخيراً توصلت للمراد بما قدمته لي من عون ومساعدة فهذا هو ما كنت أحتاج الوصول إليه ويعلم الله كم فرحتي كبيرة وأنا أرى نتائج عملك وجهدك الطيب وبارك الله فيك وفي علمك

وعملك ، رزقكم الله أسمى مراتب الدنيا وأعلى منازل الجنة وجعلكم ممن طال عمره وحَسُنْ عمله وبُورك له في رزقه وماله وصحته وعافيته وأولاده وأهله 

وما التوفيق الا من عند الله وجزاك خيرا علي دعائك واللهم يسخر لنا ولكم الطيبين ويهيئ لنا من كل امرنا مرفقا

مع تحياتي

[ضاحي الغريب]

حاجة من باب المرح لتسهيل استخدامك 

ضيفتلك وظائف تتحكم في اليوز فورم اضافة اسم مش موجود في القائمة ترتيب الاسماء حذف اسم من القائمة لو تتكرر ادخاله من ليست الاسماء دبل كليك لاي اسم هاتحذفه من القائمة

جرب ويارب تكون فيها التسير لعملك

Fawzy 10.xlsm 

 

[فوزى فوزى]

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

[ضاحي الغريب]

أخي فوزي

مش عارف اقولك ايه 

احنا كلنا اخوة بنتعلم من بعضنا البعض من المشاركات من الاسئلة من الافكار المطروحة

والدنيا مجرد بوابة وكلنا راحلون ولن يبقي مننا الا الاثر وادعوا الله ان يكون الاثر طيب فيه الزاد والدعوة الحسنة

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

وبالتوفيق

[فوزى فوزى]

والله ادعو لك بظهر الغيب لانى احبك فى الله اول ما اشتركت فى المنتدى وانا اتابع اعمالك كلها جزاكم الله خير على هذا العمل الرائع