التعديل على اليوزر فورم

[ريتاج المدينة]

السلام عليكم 

الرجاء المساعدة في نقل المعلومات الموجودة في الشيت 3 

الى اليوزرم فورم كما هو واضح بالرسم 

مع احترامنا لكم 

 

 

استعلام عن طريق الاسم.xls

[الـعيدروس]

السلام عليكم

ملاحظة اختيار ترحيل البيانات لشيت معين

هل تترحل بنفس ترتيب Sheet3

وجدول بيانات الموظفين Sheet2 هل تستخدمه ام لا

 

[ريتاج المدينة]

وعليكم السلام 

الله يجبر بخاطرك دنيا واخره استاذي الكريم  الـعيدروس

هل تترحل بنفس ترتيب Sheet3؟؟؟؟؟؟؟؟؟

نعم صحيح بنفس الترتيب .

وجدول بيانات الموظفين Sheet2 هل تستخدمه ام لا؟؟؟؟؟؟؟؟؟؟

نعم صحيح  سيتم استحدامه 

مع فائق الاحترام 

تم تعديل نوفمبر 7, 2019 بواسطه ريتاج المدينة

[الـعيدروس]

السلام عليكم

جرب المرفق

دقق على عمل الفورم ان وجدت ملاحظات

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

في امان الله

استعلام عن طريق الاسم 1.xlsm

[a.kawkab]

السلام عليكم

تم التعديل/ مرفق الملف

101استعلام عن طريق الاسم.xls

[ريتاج المدينة]

السلام عليكم

احبتي الاستاذه الكرام الاستاذ  الكبير  الـعيدروس والاستاذ a.kawkab

جبر الله بخاطركم دنيا وآخره 

 

ارجو منكم اعتبار 

1.  كل  رقم رحلة  يخصص لها شيت خاص بها كما هو موضح بالملف المرفق

2.  ياريت تطوير اداة الاستعلام بالمرفق ولكن  كما  واضح بالملف الذي الذي قدمه الاستاذ الـعيدروس 

مع خالص تقديري واحترامي لكما 

101استعلام عن طريق الاسم (2).xls

تم تعديل نوفمبر 8, 2019 بواسطه ريتاج المدينة

[a.kawkab]

السلام عليكم

تم التعديل ولكن بالنسبة للاستعلام فتم عمل 3 شيتات لضيق الوقت اكمل باقى الشيتات بنفس الطريقة

101استعلام عن طريق الاسم (3) .xlsm

[ريتاج المدينة]

الاستاذ القدير a.kawkab و الاستاذ الكبير الـعيدروس

جبر الله بخاطركم دنيا و آخره

كل المحبة و التقدير لكم ♥️

وجزاكم  الله عنا كل خير 🌴🌴🌴

(تم التعديل ولكن بالنسبة للاستعلام فتم عمل 3 شيتات لضيق الوقت اكمل باقى الشيتات بنفس الطريقة)

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

وفي ميزان حسناتك

هل يمكن اضافة زر طباعة للفورم ؟

تم تعديل نوفمبر 10, 2019 بواسطه ريتاج المدينة

[a.kawkab]

هل تريد طباعة الفورم ام الشيتات؟

[ريتاج المدينة]

الاستاذ القدير a.kawkab و الاستاذ الكبير الـعيدروس

هل تريد طباعة الفورم ام الشيتات؟

بالدرجة الاولى طباعة الشيت 

كل الاحترام لكم 

[a.kawkab]

السلام عليكم

تم عمل فورم للطباعة وتم تطبيق العمل على الوراق من 101 : 106 عليك اكمال باقى الاوراق او الاستعانة باخد الاساتذة من الموقع لتحويل الكود الى صيغة تكرارية

 

 

 

101استعلام_عن_طريق_الاسم_(3)_.xlsm

[a.kawkab]

عفوا اخى الكريم الفورم  موجود ويعمل بصورة جيدة 

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

مرفق الرابط الجديد 

https://drive.google.com/file/d/1lejWvh6cW2-UaV0THDPOe_iHA_D0AYzj/view?usp=sharing

 

101استعلام عن طريق الاسم (3) .xlsm

[ريتاج المدينة]

كل التقدير والمحبة والاحترام لك استاذي a.kawkab

وجبر الله بخاطرك دنيا وآخره 

وجزاك الله عنا كل خير  🌴🌴

والملف الان يعمل بشكل كامل 

بارك الله بكم 

ودمتم لهذا الصرح العملاق 

تم تعديل نوفمبر 11, 2019 بواسطه ريتاج المدينة

[ريتاج المدينة]

استفسار بسيط 

رقم المتسلسل لا  يعمل بشكل منتظم لكل صفحة 

[a.kawkab]

فى خدث combobox3 dيوجد الكود التالى

اكمل ال case لباقى الشيتات بنفس الطريقة 

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

()Private Sub ComboBox3_Changet
On Error Resume Next
Dim ws As Worksheet
Dim aa As String
aa = ComboBox3.Value
T = Cells(Rows.Count, 1).End(xlUp).Row
TextBox1 = Val(Cells(T, 1)) + 1
""=Me.ComboBox1.RowSource 
""=Me.ComboBox2.RowSource 
""=Me.ComboBox1.Text 
""=Me.ComboBox2.Text 
For Each ws In ThisWorkbook.Worksheets
If ws.Name = Me.ComboBox3.Value Then
Sheets(aa).Select

Select Case Me.ComboBox3
"Case "101
"Me.ComboBox1.RowSource = "name1
Me.ComboBox2.RowSource = "data1
"Case "102
"Me.ComboBox1.RowSource = "Name2
"Me.ComboBox2.RowSource = "data2
"Case "Sheet2
"Me.ComboBox1.RowSource = "sama
"Me.ComboBox2.RowSource = "asd
End Select
End If
Next
End Sub

تم تعديل نوفمبر 11, 2019 بواسطه a.kawkab
طلب تحويل كود الى حلقة تكرارية

[الـعيدروس]

السلام عليكم

حدد المدى اخي مايحتاج تحط مسمى لكل ورقة

For Each ws In ThisWorkbook.Worksheets
If ws.Name = Me.ComboBox3.Value Then
With ws
    .Select
    Me.ComboBox1.RowSource = .Range("A6:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Address '"name1" ' A
    Me.ComboBox2.RowSource = .Range("B6:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Address '"data1" ' B
End With
End If
Next

 

تم تعديل نوفمبر 12, 2019 بواسطه الـعيدروس

[a.kawkab]

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

مرقق رابط مباشر للملف بعد التعديل الاخير

 

101استعلام عن طريق الاسم (4) .xlsm

[ريتاج المدينة]

كل التقدير والمحبة والاحترام لك اساتذتي الكرام  الاستاذ الكبير   a.kawkab    والاستاذ القدير  الـعيدروس

وجبر الله بخاطركم دنيا وآخره 

وجزاكم الله عنا كل خير  🌴🌴

بارك الله بكم 

ودمتم لهذا الصرح العملاق 

تم تعديل نوفمبر 12, 2019 بواسطه ريتاج المدينة