اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by a.kawkab,

الردود الموصى بها

السلام عليكم

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

السلام عليكم

جرب المرفق

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

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

في امان الله

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

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

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

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

 

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

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

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

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

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

تم تعديل بواسطه ريتاج المدينة
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

السلام عليكم

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

 

 

 

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

Untitled.png

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

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

  • Thanks 1
رابط هذا التعليق
شارك

كل التقدير والمحبة والاحترام لك استاذي 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

تم تعديل بواسطه 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

 

تم تعديل بواسطه الـعيدروس
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

بارك الله بكم 

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

تم تعديل بواسطه ريتاج المدينة
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information