تصميم نموذج على الإكسل لترحيل البيانات إلى جدول

[@ااااا-ي9ح]

اشكرك. واستمر طريقة شرحك جميله ومبسطه. الله يوفقك ويرزقك من اوسع ابوابه

[@عابثالأخير-ز9ي]

شكرا أستاذ ع هذا الشرح الجميل والبسيط يخزيك الله خير فالدنيا والأخره

[@AhmedIbrahim-no4tp]

يجزيك

[@AhmedIbrahim-no4tp]

يجزيك

[@AhmedIbrahim-no4tp]

يجزيك

[@ZataarW]

كل الشكر والاحترام على المعلومات وعلى تقديم المايكرو والملف كامل, جزاك الله كل خير وجعل عملك في ميزات حسناتك.

[@MoatazALDawood]

عمل رائع و شرح مميز.
للفائدة: لمثل هذه النماذج و البيانات الأفضل استخدام برنامج microsoft Access . و لاتحتاج لتعلم برمجة أو كتابة سكربتات.
تحياتي،

[@aauu3238]

السلام عليكم ممكن الكود لو سمحت

[@AbuOmar1970h]

الله يبارك فيك و في علمك . و يرزقك . من واسع فضلة في الدنيا و الاخرة ويكثر من امثالك
و يجعل عملك خالص لوجه الكريم .
كل شيئ يزيد مع الزكاة فزكاة العلم تعليمه للناس .
*لو لديك المعرفة , فدع الاخرين يضيئون شموعهم منها .
*

[@mt.for.learning]

هذه القناة الرائعة وهذا هو الشرح الرائع والملحقات الرائعة ... يعطيط الف عافية ونتشرف بمتابعتك .

[@omar-zw2vr]

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

[@games-by2fy]

ماشالله عليك استاذ فورم جدا جميل والاجمل الشرح المبسط
شكرا لمجهودك وشكرا لادراجك ملف العمل للتحميل
الله يعطيك الصحة والعافية لخدمة الناس والعلم

[@mohammadalmahmmod5435]

افضل قناة مريت عليها لشروحات الاكسل
الله يسعدك

[@mawjue3qalbi110]

ممتاز عمل في غاية الاهمية وشرح وطرح اكثر من رائع الف شكر ياغالي .. اتمنا طرح فكرة تقرير فحص فني مبسط ان امكن وشكراً .

[@njrate7862]

الله يبارك فيك استادنا..شرح بسيط وجميل

[@رهفوليانستارز]

الله يعطيك العافيه ومشكور على جهودك الطبيه وكتب الله اجرك

[@Acc.online]

التعليق ده لك محاسب 👌 عاوز يبدء خطوة احترافية في المحاسبة
احنا بنقدم اعلى تقنية شرح حديقة بطريقة عملية بالمستندات اشترك في قناتي ومش هتندم

[@khalidalmazrooei2178]

شرح مبسط وجميل في ميزان حسناتك ان شاء الله

[@ahmed78807]

من اجمل المقاطع التعليمية

[@HoshigirlYOO]

شكرا لك شرح واضح ومفيد، انا ماضبط معاي في الداتا فاليديشن كان يظهر لي (نعم،لا) زي كذا جنب بعض بالخليه لكن استخدمت الفاصلة المنقوطه وضبط يعطيك العافيه

[@NOOOD32]

yoofaa77 مرحبا لو سمحت اذا تقدر تعطيني الاكواد الخاص بهذا الشرح

[@carslovershome2984]

الله يعطيك العافيه على العلم والمجهود الي تبذله .. شكرا جزيلا

[@omaralkarnos4488]

ماشاءالله عليك دائما نستفيد منك فعلا عملك تشكر عليه

[@ExcelMasterwork]

العفو يا صديقي 🌻

[@aauu3238]

@@ExcelMasterwork السلام عليكم ممكن الكود لو سمحت

[@eslamkarem2114]

انا شغال في مكان يخيلني اقولك ان دروسك كتير محترمه

[@adnan11011]

نت افضل القنوات علي اليوتيوب

[@ExcelMasterwork]

وانت افضل المتابعين يالبى قلبك 💐

[@blankblank6883]

الله يعطيك العافيه على العلم والمجهود الي تبذله
مستمتع جدا بمحتوى القناه
شكرا جزيلا🌹🌹

[@uumm79]

ما شاء الله ولا قوة إلا بالله .. الله يبارك فيك ويزيدك من فضله .. للعلم الرابط لا يعمل .. آمل التكرم بتحديثه .. ولكم وافر تقديري،،

[@mahdimohammed8195]

تسلم يا أستاذ الله يكتر من أمثالك ويجعلها في ميزان حسناتك

[@aauu3238]

السلام عليكم ممكن الكود لو سمحت

[@justme.1139]

استمررر بأبداعك يا حلو والله يوفقك ويكثر من امثالك وبيض الله وجهـك.

[@imadinf]

جزاك الله خيراً و نفع بك البلاد والعباد

[@ahmedmega1034]

ما شاء الله عليك شرح جميل جدا تسلم ايدك احلي تحية عليك

[@Old_bones2024]

بارك الله تعالى بجهودك المشكورة وجزاك عنه خيرا ..
ممكن كتاب pdf أحترافي تختاره لنا عن كل المواضيع التي تطرحها وتناقشها بالفيديوهات ..ليكون لنا مرجعا دائما ..
مع الشكر والتقدير لكم .

[@WissamSalous]

مبدع كالعاده...
يعطيك ألف عافيه استاذ موسى!

[@محمدزعرور]

ماشاء الله عمل رائع واداء متميز استاذنا الفاضل

[@mdsaab3704]

إبداع بمعنى الكلمه
الله يحفظك يا مبدع

[@MsAhmedasm]

ألف شكر مجهود تشكر علية ومعلومات ممتازة اكرر شكري

[@jaberalghazwani1605]

الله يعطيك العافية شرح أكثر من رائع

[@ADMIRAL10FUL]

يعطيك العافية شغل بسيط وممتاز اتمنى تحديث نمو>ج العمل لا يعمل شاكر ومقدر

[@محمدالسباعي-س8س]

كتب الله أجرك و رفع منزلتك

[@raghd21]

شكراً على الشرح استفدت كثيير 🙏🏼

[@aauu3238]

السلام عليكم ممكن الكود لو سمحت

[@80andromeda08]

بارك الله فيكم وجزاكم الله خيرا استاذي الفاضل

[@aauu3238]

السلام عليكم ممكن الكود لو سمحت

[@amiralshoq]

الف شكر ياليت شرح نموذج لكيفية الاحتفاظ ببيانات حركة اسعار الشركات لملف يقوم بتحديث بياناته من موقع ويب مثلا كل دقيقة أو خمس دقائق ويحتفظ بها وليس فقط يحدثها

[@osamaaljaafari.6645]

جزاك الله خير استاذي أنت رائع

[@ExcelMasterwork]

انت اروع يا صديقي 🌷

[@MohammadAbdAlHamid]

جزاك الله خيرا ونفع بعلمك

[@YTOS86]

وبامكانك استخدام عنوان الخلية Sheets(“Main”).Range(“H4”).value بدلا من Cell(1,2).value وممكن أيضا تسمية كل Range باسم معين يسهل لك الشغل

[@AbadyAloraifi]

ممكن احد يقولي فين الاقي ملف الفيجول بيسك

[@hadasaah]

@@AbadyAloraifi ذذ مرحبا ذد

[@belaribibelaribi9842]

شكرا جزيلا لك. وفقكم الله.

[@osamaomar3092]

يعطيك العافية ماقصرت شرح وافي بس انت وضحت ترحيل البيانات بس ما وضحت كيف طريقة البحث أو استرجع البيانات من الجدول .

[@barood606]

مايحتاج توضيح الملف اللي ترحلت له البيانات هو اللي تبغى تبحث فيه عن اي معلومة بخيار البحث او الفرز بالتاريخ او بالرقم سهل جدا

[@bigsante4769]

عمل اكثر من رائع بارك الله فيك

[@thamdar]

شكرا على المجهود الرائع
و لكن اخي كل معلوماتك اجاباتها نعم او لا
ف بامكانك بدل ما تحط اختيار من قائمة منسدلة ... الاسهل انك تحط check box و رح يأدي نفس العمل
تحياتي و بالتوفيق

[@أحمدجسارالفهيدي]

رائع والله وشرحك جميل♥

[@abx6421]

بالله يااخ احمد تنزل الكود برسالة لي احتاجه جداً

[@bamatrafazzam3099]

رائع يعطيك الف عافية على جهودك

[@ExcelMasterwork]

تم تحديث الرابط في الوصف.....

[@alxeer1]

جميل جدا الله يوفقك

[@الوعي-م8ح]

جزاك الله خيرا علي هذا العمل

[@fawaz7amed90]

السلام عليكم .. أولا جزاك الله خير على هالشرح الرائع .. استاذي انا سويت كل شي .. بس أبي كود الحفظ اللي يحولهم لي لقاعدة البيانات .. وحاولت ادور في صفحتك عن مثلا زر بحث بقاعدة البيانات ما لقيت .. فعلا قناتك مكسب ومأجور عليها .. بإنتظارك إستاذي

[@alxeer1]

رقم اصدار الاكسل ؟؟

[@makh7041]

بارك الله فيك

[@mdago966]

بارك الله فيك انا اتابع محتواك منذ فترة وتعلمت الكثير..
بس لو ممكن تشرحلنا كيف نقدر نسوي بطاقة معلومات عن موظف بحيث ان هذه البطاقة تاخذ البيانات من قاعدة بيانات بمجرد ادخال كود الموظف مثلا وبحيث يكون شكلها جميل..
وشكرا ليك وبارك الله فيك.

[@AbadyAloraifi]

ممكن احد يقولي فين الاقي ملف الفيجول بيسك

[@ahmedkashaf]

كل الشكل والاحترام شرح جميل
من بعد اذنك اللينك مش شغال

[@alfateh8967]

بارك الله فيك ، كيف يمكنني اضافة زر بحث بشرط القسم مثلا يعني اختار القسم 4 واعطيه بحث وهو يظهرلي البيانات على نفس هذه الشاشة ، مشكور جدا

[@احمدالراشدي-ح7ف]

الله يعطيك العافيه شرح ممتاز

[@waadalajmi6039]

ربي يجزيك الجنة

[@osamaabulmjd1639]

يعطيك العافية و جزاك الله خير ،،

[@ameralleg8577]

احترافية ربي يبارك فيك

[@electroniclearn]

ماشاءالله عليك

[@NOOOD32]

شرح واضح وجميل نحتاج تزودنا
الاكواد ما لقيت الاكواد

[@awax12121]

جزاك الله خير على الشرح ياليت تجدد رابط الملف لانه غير موجود على قوقل درايف

[@starknorth8719]

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

[@F000626D]

صباح الخير استاذ موسى @Excel Masterwork
ممكن رابط الملف اللي فيه الكود
الملف بالرابط اعلاه لا يعمل
وتقبل تحياتي

[@yomnamohiswaidi5905]

ايوا مش راضي يفتح حتى

[@yomnamohiswaidi5905]

@@F000626D حتى بالقروب التلقرام الكود مش شغال

[@ashraf_madkour]

يعطيك العافية

[@abdulazizaljubilah9506]

بعد التحية استاذ موسى، ولا عليك امر نأمل تحديث رابط الكود لتعم الفائدة للجميع،حيث ان الرابط حاليا لايعمل، شكرا على كل ما تقدم من عمل وشرح جبار (سنتين ولا زلنا نستفيد من الشرح)

[@MahmoudMohamed-ig4yr]

الله يبارك فى صحتك
محتاجين برنامج مخازن

[@HAlI.H]

شرح رائع

[@tahahsen1952]

if sheets("main") •range الرجاء كتابة الكود كامل

[@ahmedgalal3702]

أخي الفاضل جزاك الله خيرا وشغل ممتاز وسهل ولكن الملف غير موجود وسؤال هل يعمل على الهاتف ؟؟

[@MsjJubail]

يعطيك العافيه على الشرح بس الاكواد وين احصلها

[@فؤادمحمد-ض8ث]

الله يعطيك العافية ليش مايكون تسجيل ماكروا بدل الاكواد

[@osmanmaxi551]

رائع جدا يا ريت تشرح على اصدار عربي

[@habebalhead652]

جزاك الله خير وبارك الله فيك..

[@يوسفالصافي-و6ص]

الله يعطيك العافية بس ياريت ترفق الملف مره ثانية لان موشغال اللنك

[@Alialmshali]

رائع رائع رائع

[@ELseiDY2002]

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

[@mohamedalsayed4932]

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

[@Abdullah59600]

؛ جخ

[@Iamsaudi_ke1349]

جزاك الله الف خير. الله يسعدك ارجع ارسل درايف الي فيه الاكواد لانه يديني ايرور

[@ooo5ioo13]

عمل رايع شكرا لك...
...
فقط احتاج المعادله حقة فيجول بيسك ماحصلتها

[@عابثالأخير-ز9ي]

ممكن أستاذ تنزل دورة كيف نقوم عمل صفحة login with password قبل فتح الأكسل و تقدر تعمل لكل شيت بعد... 💚

[@sinanbasha-2564]

السلام عليكم .. كيف حالك استاذ .. طبعا في البداية احب ان شكرك على الدروس الجميلة و الرائعة .. وثانياً عندي سؤال بسيط ان شاء الله .. ايهما افضل ان اشتغل نموذج الادخال مثل الي حضرتك شرحتـه في الفيديو على شيت اكسل لو يوزرفورم ..؟
انا الصراحة عملت برنامج صغير لمتابعة بيانات الموظفين و الاجازات باستخدام اليوزر فورم .. طبعا اليوزر فورم لا تعطي بساطه بالعمل مثل الشيت ولكن السؤال ايهما افضل من ناحية الاداء ؟؟
واعتذر على الاطالــة
وفي الختام شكرا جزيلا لك

[@لاتحاولتلعب-ذ8ظ]

شكرا

[@نمرالشمال-ه3م]

مبدع جدا

[@lambusines2594]

هل بامكانك تحديث رابط البرمجة لأنه مايعمل، وشكرا لك على الشرح الوافي وكتب الله أجرك

[@asanhh]

سعادة الاخ الاستاذ الكريم
اولا كل الشكر والتقدير على الابداع والتميز في الدروس المتميزه والقيمة
ثانيا : لي استفسارين
ارغب في عملية الحذف للسجل او الموظف مع اعادة الترقيم التلقائي
استخدمت الكود التالي بحيث لو كان حقل الاسم فارعا فلا يعطي رقم في التسلسل واذا كان الاسم مسجل يضع رقم
=IF(C2="";"";SUBTOTAL(3;A$2:$A2))
الفكرة تعمل في العمل اليدوي
ولكن عند وضع الكود لا يقبل الادخال نهائيا في الصفوف التي بها الكود
نريد حل لاستخدام الترقيم التلقائي بحيث يعد الترقيم عند الحذف والاضافة

[@gadahsulemin2679]

الله يجزاك خير وفيت وكفيت....لاهنت احتاج كود الترحيل مالقيته

[@faresaljumaa1666]

Sub MoveDataTOTable()
Dim endrow As Long
If Sheets("Main").Range("E6").Value = "" Or Sheets("Main").Range("M6").Value = "" Or Sheets("Main").Range("T6").Value = "" Or Sheets("Main").Range("E8").Value = "" Or Sheets("Main").Range("M8").Value = "" Or Sheets("Main").Range("T8").Value = "" Or Sheets("Main").Range("E10").Value = "" Or Sheets("Main").Range("H14 ").Value = "" Or Sheets("Main").Range("H15").Value = "" Or Sheets("Main").Range("H16").Value = "" Or Sheets("Main").Range("H17").Value = "" Or Sheets("Main").Range("H18").Value = "" Or Sheets("Main").Range("H19").Value = "" Or Sheets("Main").Range("H20").Value = "" Or Sheets("Main").Range("H21").Value = "" Or Sheets("Main").Range("N14 ").Value = "" Or Sheets("Main").Range("N15").Value = "" Or Sheets("Main").Range("N16").Value = "" Or Sheets("Main").Range("N17").Value = "" Or Sheets("Main").Range("N18").Value = "" Or Sheets("Main").Range("N19").Value = "" Or Sheets("Main").Range("N20").Value = "" Or Sheets("Main").Range("N21").Value = "" Then
MsgBox prompt:="ÇáÑÌÇÁ ÇáÊÃßÏ ãä ÅÏÎÇá ÌãíÚ ÇáÈíÇäÇÊ", Title:="ÎØÃ"
Else
endrow = Sheets("DB").Range("A1").CurrentRegion.Rows.Count
Sheets("DB").Cells(endrow + 1, 1).Value = endrow
Sheets("DB").Cells(endrow + 1, 1).Value = Sheets("Main").Cells(6, 5).Value
Sheets("DB").Cells(endrow + 1, 2).Value = Sheets("Main").Cells(6, 13).Value
Sheets("DB").Cells(endrow + 1, 3).Value = Sheets("Main").Cells(6, 20).Value
Sheets("DB").Cells(endrow + 1, 4).Value = Sheets("Main").Cells(8, 5).Value
Sheets("DB").Cells(endrow + 1, 5).Value = Sheets("Main").Cells(8, 13).Value
Sheets("DB").Cells(endrow + 1, 6).Value = Sheets("Main").Cells(8, 20).Value
Sheets("DB").Cells(endrow + 1, 7).Value = Sheets("Main").Cells(10, 5).Value
Sheets("DB").Cells(endrow + 1, 8).Value = Sheets("Main").Cells(14, 8).Value
Sheets("DB").Cells(endrow + 1, 9).Value = Sheets("Main").Cells(15, 8).Value
Sheets("DB").Cells(endrow + 1, 10).Value = Sheets("Main").Cells(16, 8).Value
Sheets("DB").Cells(endrow + 1, 11).Value = Sheets("Main").Cells(17, 8).Value
Sheets("DB").Cells(endrow + 1, 12).Value = Sheets("Main").Cells(18, 8).Value
Sheets("DB").Cells(endrow + 1, 13).Value = Sheets("Main").Cells(19, 8).Value
Sheets("DB").Cells(endrow + 1, 14).Value = Sheets("Main").Cells(20, 8).Value
Sheets("DB").Cells(endrow + 1, 15).Value = Sheets("Main").Cells(21, 8).Value
Sheets("DB").Cells(endrow + 1, 16).Value = Sheets("Main").Cells(14, 14).Value
Sheets("DB").Cells(endrow + 1, 17).Value = Sheets("Main").Cells(15, 14).Value
Sheets("DB").Cells(endrow + 1, 18).Value = Sheets("Main").Cells(16, 14).Value
Sheets("DB").Cells(endrow + 1, 19).Value = Sheets("Main").Cells(17, 14).Value
Sheets("DB").Cells(endrow + 1, 20).Value = Sheets("Main").Cells(18, 14).Value
Sheets("DB").Cells(endrow + 1, 21).Value = Sheets("Main").Cells(19, 14).Value
Sheets("DB").Cells(endrow + 1, 22).Value = Sheets("Main").Cells(20, 14).Value
Sheets("DB").Cells(endrow + 1, 23).Value = Sheets("Main").Cells(21, 14).Value
Sheets("DB").Cells(endrow + 1, 24).Value = Sheets("Main").Cells(14, 16).Value
Range("E6").Select
Selection.ClearContents
Range("M6").Select
Selection.ClearContents
Range("T6").Select
Selection.ClearContents
Range("E8").Select
Selection.ClearContents
Range("M8").Select
Selection.ClearContents
Range("T8").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("H14:H21").Select
Selection.ClearContents
Range("N14:N21").Select
Selection.ClearContents
Range("p14").Select
Selection.ClearContents
MsgBox prompt:="Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"
End If
End Sub

[@a7ba111]

@@faresaljumaa1666 احاول انسخه مو جاي ممكن ترسله لي انستقرام aamaani21

[@sameerfajr8618]

جزاك الله خير أخي و بارك بك و بعلمك و عملك.. سؤال اذا اتكرمت.. فينا نعمل اضافة على الكود الخاص بالحفظ من أجل حفظ الخلايا المضافة بشكل تلقائي بعد ترحيلها للجدول.. وشكرا سلفا على الاجابة..

[@cihanyildiz6469]

شكرٱ لك
ماعرفت اجيب الكود

[@EBRAHIMALBAHRANI]

اسعدك الله استاذي وشكرا على هذا الشرح الجميل بس ممكن كود الحفظ لانو للامانه ما شفته

[@MrSofmak70]

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

[@AlAsbahi916]

مشكور ياستاذ
ممكن تنزل فيديو كيف ادخل ماكرو الحفظ والمسح يدويا لتعليم ارجوا الرد بسرعة

[@ExcelMasterwork]

حياك الله ، هل المقصود كيف نضيف الماكرو في الإكسل ؟

[@AlAsbahi916]

@@ExcelMasterwork
نعم
طيب ممكن سؤال ثاني
عملت الكود لكن عندما ارحل البيانات الى الصفحة الاخرى لا يضيف البيانات في صف جديد بل يحذف الصف الاول ويكتب الثاني فوق الاول ؟؟
وشكرا

[@ابوحمزه-ض3خ]

السلام عليكم استاذنه العزيز جزاك الله الف خير على ماتقدمه
حبيبي الغالي اذا ممكن كيف يكون عمل عقد بيع وشراء ثابت على الكمبيوتر وانت سيد العارفين يكون سحب نسختين منه للبائع والمشتري والثالثه تكون محفوظه على الكمبيوتر ؟اذا ممكن تتفضل علينا وشكرا لجنابك المحترم

[@magdynagepmohamed1313]

أحسنت وشكراً

[@lalala622]

ممكن تعمل نفس الفكرة على (list-combo box لوضوح الخط فيه والمرونة التنسيق) + الترحيل . لو سمحت.

[@wafaaalbhatti]

بجد تسلم ويعطيك الف عافية

[@mohabali5308]

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

[@mohammedal-zahrani296]

أشكرك يا أستاذ موسى شرح جميل
لوتكرمت تزودنا ب الكود البرمجي في مستند الرابط لا يعمل ●
وشكرا لك 🥀

[@mostafareda4027]

السلام عليكم ورحمة الله وبركاته اخي العزيز
كرما منك عمل تصميم بيان مثل هذا وإضافة إليه نموذج لاضافه الصور والشرح عليه اكون مشكور لحضرتك جدا جد

[@نورسالصحراء-ز6ف]

طيب اذا انا عندي بيانات جاهزه بالاكسيل حصر اجهزه ينفع يتعمل عليه كذا ؟ بس هدفي بحث مو ادخال بيانات

[@marketingmedia2767]

درس مميز ، لكن لدي استفسار هل الكود معمول إلى ما لا نهاية من العمليات في الحفظ أم يقف عند العملية ٢٤ كما هو واضح في الكود لعمليات الحفظ؟ تقبل تحياتي

[@mo7iedeen]

الله يعطيك العافية..
ممكن شرح لكود نقل البيانات لآخر صف بجدول البيانات

[@YTOS86]

🤔🤔🤔 وهو عامل أيش؟؟؟

[@hazimfreed5520]

الكود بالوصف لا يعمل استاذنا نرجو التكرم بأرسال الكود لإتمام الدرس

[@سعدابراهيم-غ5و]

رسلك اياه ؟