الاستاذ مجدى
فورم اضافة بيانات 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا فورم اضافة بيانات 829894
ادارة المنتدي فورم اضافة بيانات 103798

فورم اضافة بيانات Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل محمود تارى فمرحبا به


شاطر
 

 فورم اضافة بيانات

اذهب الى الأسفل 
كاتب الموضوعرسالة
serdoun

serdoun

عدد المساهمات : 16
تاريخ التسجيل : 25/11/2019
العمر : 38

فورم اضافة بيانات Empty
مُساهمةموضوع: فورم اضافة بيانات   فورم اضافة بيانات Avatarالجمعة نوفمبر 29, 2019 2:47 pm

بسم الله الرحمن الرحيم
أستاذي العزيز، إن أمكنك مساعدتي في وضع فورم لتحديد معين (مجال محدد). حيث أن عندي ملف محاسبة كل جدول يحوي محاسبة شهر وسأرفق لك الملف.
فمثلا: أريد فورم يدخل في المجال ("Q446:CO493") واالذي يمثل عندي شهر نوفمبر.

فعندما أعرف كود الإضافة سأضع فيالفورم عن طريق Muli page باقي الأشهر وكذا أزرار التعديل وغيرهم
فأرجو المساعدة ، وسأكون لك من الشاكرين. جزاك الله خيرا.



عدل سابقا من قبل serdoun في الجمعة نوفمبر 29, 2019 8:53 pm عدل 1 مرات (السبب : لحذف الرابط)
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اضافة بيانات Empty
مُساهمةموضوع: رد: فورم اضافة بيانات   فورم اضافة بيانات Avatarالجمعة نوفمبر 29, 2019 5:12 pm

الاخ العزيز اهلا بك
ياريت تبسط الملف وتعربه لانى نزلت وندز الان والاوفيس عربى
مالاجظتة انها مجموعة جداول ولم افهم المطلوب اعمل جدول واحد واشرخ ما المطلوب عليه
انظر الصورة
فورم اضافة بيانات Ycia10

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اضافة بيانات Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
serdoun

serdoun

عدد المساهمات : 16
تاريخ التسجيل : 25/11/2019
العمر : 38

فورم اضافة بيانات Empty
مُساهمةموضوع: رد: فورم اضافة بيانات   فورم اضافة بيانات Avatarالجمعة نوفمبر 29, 2019 8:11 pm

يا أستاذي العزيز . أحتاج إلى إلى عدة جداول (لأن كل جدول يمثل شهر)
حولت أن أبسط وأعرِّب قدر الإمكان.
أنتظر ردك بفارغ الصبر، وشكرا مسبّقا.

رابط الملف
http://www.mediafire.com/file/ta2yu14u7a168p6/younis.xlsm/file
الرجوع الى أعلى الصفحة اذهب الى الأسفل
serdoun

serdoun

عدد المساهمات : 16
تاريخ التسجيل : 25/11/2019
العمر : 38

فورم اضافة بيانات Empty
مُساهمةموضوع: رد: فورم اضافة بيانات   فورم اضافة بيانات Avatarالأحد ديسمبر 01, 2019 7:24 pm

أخي وأستاذي مجدي، وجدت طريقة وهي أضع الجدول بحيث لا يكون في عمد ممتلئ، فثلا فيحالتي استعملت جدول يحوي عمود واحد فقط (جدول من Q466:Q493)
ووضعت باقي الكود هكذا:

الكود:


Private Sub CommandButton6_Click()

Dim rng As Range
Set rng = ActiveSheet.ListObjects("novembre").Range
Dim lr As Long
lr = rng.Find(WHAT:="*", AFTER:=rng.Cells(1), lookat:=xlPart, LookIn:=xlFormulas, searchorder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False).Row

Cells(lr + 1, 17).Value = TextBox34.Value
Cells(lr + 1, 18).Value = TextBox35.Value
Cells(lr + 1, 21).Value = TextBox36.Value
Cells(lr + 1, 22).Value = TextBox37.Value
Cells(lr + 1, 23).Value = TextBox38.Value
Cells(lr + 1, 24).Value = TextBox39.Value
Cells(lr + 1, 25).Value = TextBox40.Value

TextBox34.Value = ""
TextBox35.Value = ""
TextBox36.Value = ""
TextBox37.Value = ""
TextBox38.Value = ""
TextBox39.Value = ""
TextBox40.Value = ""

MsgBox "تَمَّ تَرْحِيلُ البَيَانَتِ بِنَجَاحٍ"

TextBox34.SetFocus
End Sub



عدل سابقا من قبل serdoun في الأحد ديسمبر 01, 2019 7:36 pm عدل 3 مرات (السبب : تنسيق الكود)
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اضافة بيانات Empty
مُساهمةموضوع: رد: فورم اضافة بيانات   فورم اضافة بيانات Avatarالإثنين ديسمبر 02, 2019 1:03 am

معلش مشغول بمشروع لبنتى ارسل ملف بالتعديل الجديد

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اضافة بيانات Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
فورم اضافة بيانات
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: