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

[ehabaf2]

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

فى ملف به يوزر فورم و انا بحاول اتعلم عليه 

انا اضافة كمبوبوكس للنوع ( ذكر - أنثى ) 

اريد كود ترحيل محتوي الكمبوبوكس الى الشيت فى العمود BJ 

الف الف شكر لحضراتكم

مرفق الملف

بعد اذن حضراتكم ياريت احد السادة الخبراء يكتب الكود مع الشرح 

1 ترحيل مع كمبوبوكس.xlsm

[محمد هشام.]

يمكنك دالك بدون الحاجة لاظافة  اي اكواد جديدة  فقط قم بتسمية عنصر Combobox2 طبقا لتسلسل عناصر textbox الموجودة مسبقا على الفورم اي (TEXTBOX62)  وتعديل  هدا السطر

 

Const dict As Integer = 61

ليصبح  بعدد العناصر الموجودة  

Const dict As Integer = 62

 

 

 

1 ترحيل مع كمبوبوكس.xlsm

تم تعديل أغسطس 20 بواسطه محمد هشام.

[ehabaf2]

الاستاذ الفاضل @محمد هشام.

اللف شكر لحضرتك 

بس فى سؤال انا لما بخش على الكمبوبكس الاقى اسمه textbox ازاي هو مش المفروض اسمه يبقي كومبوبكس

اكرر شكرى لحضرتك

[محمد هشام.]

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

[ehabaf2]

الف الف شكرا لحضرتك