ترحيل بيانات من TEXTBOX الى CELL

[moh250]

الى الاستاذ خبور و جميع الاعضاء كيف ترحيل بيانات من TEXTBOX الى CELL

[احمدزمان]

 [a1] = TEXTBOX1

او

cell(11, 11) = TEXTBOX1

تم تعديل مارس 19, 2009 بواسطه احمد يعقوب

[محمد الجريتلي]

الاستاذ احمد

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

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

في combobox معين حتى يمكن اختيار قيمة من القائمة

على ان تتوزع تلك القيمة في خلية معينة في كل اوراق العمل التي تقع بعد الورقة الرابعة

ولك جزيل الشكر

اخوك الجريتلي

زادك الله علما و نفع بك

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub ComboBox1_Click()
x = Sheets.Count
For i = 4 To x
   Sheets(i).Cells(1, 1) = Me.ComboBox1.Value
Next i
End Sub
Private Sub ComboBox2_Click()
x = Sheets.Count
For i = 4 To x
   Sheets(i).Cells(1, 1) = Me.ComboBox2.Value
Next i
End Sub

Private Sub UserForm_Initialize()
With Me.ComboBox1
For x = 1 To 10
.AddItem Sheets(1).Cells(x, 1)
Next x
End With
ComboBox2.RowSource = "b1:b10"
End Sub

comboboxs.rar