حسين مامون قام بنشر أبريل 1, 2017 مشاركة قام بنشر أبريل 1, 2017 السلام عليكم اخواني في الله سلام الله عليكم عندي كود ترحيل بيانات من الفورم الى صفات العمل لها نفس الشكل ونفس الجدول ونفس المدى ولكن ينقصني كيفية تحديد المدى للكود اريد مثلا ان يبدأ الترحيل من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 اعتدر عن ظهور بعض الكلمات مقلوبة لاني ارسلته من الموبايل تحياتي رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 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 اعتدر عن ظهور بعض الكلمات مقلوبة لاني ارسلته من الموبايل تحياتي السلام عليكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 1, 2017 مشاركة قام بنشر أبريل 1, 2017 برجاء ارفاق ملف كمثال اخي الكريم تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 (معدل) السلام عيكم اشكرك استاذ على اهتمامك واعتذر عن تاخري في الرد المرفق به فورم اريد تعديل كود الترحيل حسب المدى المطلوب في الفحات المرقمة باستتناء الصفحة الرئيسية جزاك الله خيرا Nouveau dossier (4).rar تم تعديل أبريل 1, 2017 بواسطه حسين مامون رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان