ترحيل من فورم الى خلية

[مهند الزيدي]

السلام عليكم .... ممكن عل المطلوب داخل الملف المرفق

ترحيل الى خلية.rar

[ibn_egypt]

أخى الفاضل

 

تفضل الملف المرفق، يتم ترحيل مدخلات مربع النص بالترتيب ابتداءا من A2

 

اذا كنت تريد ادخال البيانات في الخلية A1 فقط ... فقم بحذف +1 من السطر ده واحذف كافة بيانات العمود A سيتم الادخال في الخلية A1 فقط

lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1

تحياتى  

ترحيل الى خلية.rar

[الجموعي]

في حدث زر ترحيل

Cells(1, 1) = Me.TextBox1.Value

[الجموعي]

أخى الفاضل

 

تفضل الملف المرفق، يتم ترحيل مدخلات مربع النص بالترتيب ابتداءا من A2

 

اذا كنت تريد ادخال البيانات في الخلية A1 فقط ... فقم بحذف +1 من السطر ده

lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1

تحياتى  

 

معذرة استاذي لم أنتبه لردك إلا بعد مشاركة الرد

[ا بو سليمان]

ابداع ما شاء الله تبارك الله

[toyota]

الساده الافاضل هل يمكن عكس الموضوع 

بمعني انه اريد ترحيل قيمة خليه الي مربع نص 

لقد قمت بعمل الكود التالي 

 ()Private Sub TextBox6_Change

(TextBox6.Value = Sheet1.Cells(1, 11

End Sub