استبدال تكست بوكس بكمبوبوكس فى الفورم لسهولة ترحيل البيانات الى الشيت

[vidan]

السلام عليكم اخوتي الكرام

أنا مشترك جديد في صفحتكم ولقد استفدت كثيرا من مناقشتكم وعملكم مع بعض بارك الله فيكم جميعا...

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

هل هناك من أحد يساعدني بذلك ؟

جزاكم الله خيرا على عملكم وعلمكمم سلفاً

أرفق لكم الملف الذي اعمل عليه  وصورة اليوزرفورم

نموذج 2.xlsm

[Mohmad83]

وعليكم السلام لك ما اردت

نموذج3.xlsm

[vidan]

السلام عليكم أخي محمد

عاجز عن شكري على المساعدة

لقد رأيت الحل وسأقول لك أنه لديك من الذكاء ما يكفي لحل المشكلة

شكراً جزيلاً مرة ثانية بارك الله فيك أخي محمد

[vidan]

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

إخوتي الكرام ...

أخي محمد...

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

Private Sub ComboBox2_DropButtonClick()
lrw = Sheets(1).Cells(Rows.Count, 7).End(xlUp).Row
 ComboBox2.List = Sheets(1).Range("A5:A13").Value
End Sub

هذا الكود يعمل جيداً ولكني أريد وضع البيانات التي اريد الكومبوبوكس قراءتها من الشيت رقم 5 وليس الشيت رقم واحد فعندما أغير شيت 1 إلى شيت 5 لا يقرأها !!!

وهذا الكود الذي غيرته :

 Private Sub ComboBox2_DropButtonClick()
lrw = Sheets(5).Cells(Rows.Count, 7).End(xlUp).Row
 ComboBox2.List = Sheets(5).Range("A5:A13").Value
End Sub

 

[سليم حاصبيا]

لا اعلم السبب

لكن عندي يعمل بشكل جيد

انظر المرفق

Fil_combo.xlsm

[vidan]

أخي سليم شكرا على ردك لي

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

انظر الى المرفق لو سمحت..

 

نموذج3(1).xlsm

[سليم حاصبيا]

تم معالجة الامر

Example3.xlsm

[vidan]

عفوا ولكنه لا يعمل !!

هل هذا الكود الذي ارسلته أخي سليم صحبح ؟

Private Sub ComboBox2_DropButtonClick()
Dim i%
Dim Sh As Worksheet
Set Sh = Sheets("شباط")
Me.ComboBox2.Clear
lrw = Sh.Cells(Rows.Count, 4).End(xlUp).Row
 For i = 4 To lrw
  Me.ComboBox2.AddItem Sh.Cells(i, 1)
 Next
End Sub

 

[vidan]

أرفق لكم صورة للمساعدة

[vidan]

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

أخوتي الكرام

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

الملف مرفق مرة أخرى أرجو الإضطلاع والإجابة

أتمنى من القيمين او الإخوة الكرام مساعدتي ولكم جزيل الشكر

 

Example3.xlsm

[vidan]

ارفع لكم النموذج الذي يمسح المعادلة من السطر في الشيت رقم 4

Example3.xlsm

[vidan]

السلام عليكم أيها الأخوة

 

اين مشرفي المنتدى للتعديل والرد لو سمحتم

هذا اليوم الرابع منذ الطلب ولم ألقى جواب لغاية الآن عسى المانع خيراً !!!

لقد استفدت من مشاركة احد الأخوة في المنتدى الأخ محمود عبدو وأخذت منه هذا الكود :

 Private Sub ComboBox1_Change()
On Error Resume Next
Dim aa As String
aa = ComboBox1.Value
Sheets(aa).Select
End Sub


Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To 13
    'Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

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

هل هناك من قابلية لمساعدتي في ذلك ؟ ولكم كل التقدير

 

 

Example4.xlsm

[Mohmad83]

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

[vidan]

شكراً على الإجابة أخي محمد وسأعمل بنصيحتك ان شاء الله