اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

عندي كود ترحيل بيانات من الفورم الى صفات العمل  لها نفس الشكل ونفس الجدول ونفس المدى ولكن ينقصني كيفية تحديد المدى للكود اريد مثلا ان يبدأ الترحيل من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

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

تحياتي

السلام عليكم 

قام بنشر

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

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

 

  • Like 1
قام بنشر (معدل)

السلام عيكم  

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

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

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

Nouveau dossier (4).rar

تم تعديل بواسطه حسين مامون

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information