كيفية بداية مدى لكود ترحيل من الفورم الى اي صفحة مفتوحة

[حسين مامون]

السلام عليكم

اخواني في الله سلام الله عليكم

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

هذا هو الكود الدي اقصد

Private sub comandbutton1()

Dim lastrow as integer

Lastrow=[1000].end(xlup).row+ 1

Ceĺls(lastrow,1).value=me textbox1.value

Ceĺls(lastrow,2).value=me textbox2.valu

textbox1=""

Textbox2=""

End sub

اعتدر عن ظهور بعض الكلمات مقلوبة لاني ارسلته من الموبايل 

تحياتي

[حسين مامون]

8 ساعات مضت, حسين مامون said:

السلام عليكم

اخواني في الله سلام الله عليكم

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

هذا هو الكود الدي اقصد

Private sub comandbutton1()

Dim lastrow as integer

Lastrow=[1000].end(xlup).row+ 1

Ceĺls(lastrow,1).value=me textbox1.value

Ceĺls(lastrow,2).value=me textbox2.valu

textbox1=""

Textbox2=""

End sub

اعتدر عن ظهور بعض الكلمات مقلوبة لاني ارسلته من الموبايل 

تحياتي

السلام عليكم 

[حمادة عمر]

برجاء ارفاق ملف كمثال اخي الكريم

تقبل خالص تحياتي

 

[حسين مامون]

السلام عيكم  

اشكرك استاذ على اهتمامك واعتذر عن تاخري في الرد

المرفق به فورم اريد تعديل كود الترحيل حسب المدى المطلوب في الفحات المرقمة باستتناء الصفحة الرئيسية

جزاك الله خيرا

Nouveau dossier (4).rar

تم تعديل أبريل 1, 2017 بواسطه حسين مامون