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

نموذج العمل (drive.google.c...)
#Excelmasterwork

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

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

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

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

[@AhmedIbrahim-no4tp]

يجزيك

[@AhmedIbrahim-no4tp]

يجزيك

[@AhmedIbrahim-no4tp]

يجزيك

[@ZataarW]

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

[@MoatazALDawood]

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

[@aauu3238]

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

[@AbuOmar1970h]

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

[@mt.for.learning]

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

[@omar-zw2vr]

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

[@uumm79]

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

[@mohammadalmahmmod5435]

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

[@adnan11011]

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

[@ExcelMasterwork]

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

[@games-by2fy]

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

[@njrate7862]

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

[@khalidalmazrooei2178]

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

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

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

[@justme.1139]

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

[@mawjue3qalbi110]

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

[@ahmed78807]

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

[@omaralkarnos4488]

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

[@ExcelMasterwork]

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

[@aauu3238]

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

[@ahmedmega1034]

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

[@carslovershome2984]

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

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

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

[@eslamkarem2114]

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

[@imadinf]

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

[@YTOS86]

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

[@AbadyAloraifi]

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

[@hadasaah]

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

[@MsAhmedasm]

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

[@mahdimohammed8195]

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

[@aauu3238]

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

[@ADMIRAL10FUL]

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

[@WissamSalous]

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

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

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

[@jaberalghazwani1605]

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

[@blankblank6883]

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

[@Old_bones2024]

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

[@mdsaab3704]

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

[@HoshigirlYOO]

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

[@NOOOD32]

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

[@osamaaljaafari.6645]

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

[@ExcelMasterwork]

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

[@raghd21]

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

[@aauu3238]

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

[@thamdar]

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

[@80andromeda08]

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

[@aauu3238]

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

[@osamaomar3092]

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

[@barood606]

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

[@bigsante4769]

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

[@NOOOD32]

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

[@amiralshoq]

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

[@belaribibelaribi9842]

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

[@bamatrafazzam3099]

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

[@ExcelMasterwork]

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

[@MohammadAbdAlHamid]

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

[@alxeer1]

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

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

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

[@abx6421]

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

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

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

[@abdulazizaljubilah9506]

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

[@MahmoudMohamed-ig4yr]

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

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

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

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

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

[@asanhh]

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

[@osamaabulmjd1639]

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

[@waadalajmi6039]

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

[@osmanmaxi551]

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

[@makh7041]

بارك الله فيك

[@ahmedkashaf]

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

[@mohammedal-zahrani296]

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

[@Iamsaudi_ke1349]

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

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

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

[@cihanyildiz6469]

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

[@majidmajid1848]

جيد جدا وانت سريع جدا بالشرح يعني يعني معلوماتك جيدة بس اءا تتكرم علينا او تعملنا فورم ادخال بيانات مع الشيت الاكسل خاص بإدخال بيانات السيفييات CV الخاصة بمدرسين المدرسة وموظفين الاداريين للمدرسة اذا امكن حتى نشتغل عليها مع الشكر الجزيل

[@ameralleg8577]

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

[@mdago966]

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

[@AbadyAloraifi]

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

[@ooo5ioo13]

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

[@MsjJubail]

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

[@ELseiDY2002]

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

[@walidfarouk1981]

الكلام الصحيح هنا👇
ua-cam.com/video/nwUidaiC0qU/v-deo.html

[@habebalhead652]

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

[@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

[@AlAsbahi916]

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

[@ExcelMasterwork]

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

[@AlAsbahi916]

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

[@starknorth8719]

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

[@ashraf_madkour]

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

[@Mr--Crazy]

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

[@غنيةالشمري-ن7خ]

الشرح ممتاز ومفهوم ،لكن سريع ،ارجو عدم السرعة

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

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

[@محسنفاضل-ب9ت]

تسلم شرح جميل . ومتقن .
اذا ممكن ايميلك . عملت كل المطلوب بس ماضبط معي . يطلع لي الرجاء التأكد من جميع البيانات .

[@awax12121]

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

[@hazimfreed5520]

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

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

رسلك اياه ؟

[@mo7iedeen]

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

[@YTOS86]

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

[@mostafareda4027]

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

[@cheikh8535]

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

[@fawaz7amed90]

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

[@alxeer1]

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

[@MrSofmak70]

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

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

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

[@ahmedwarsh1564]

لا استطيع الوصول الى رابط نموذج العمل

[@Acc.online]

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

[@EBRAHIMALBAHRANI]

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

[@modi2u211]

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

[@electroniclearn]

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

[@abdula9501]

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

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

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

[@justfriend3485]

السلام عليكم. مشكور على الشرح.. لو تعمل شرح لفلترة البيانات بعد تحميل البيانات من قاعدة بيانات موقع ما بواسطة api

[@lambusines2594]

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

[@mohammedhisham7435]

طيب لو عندي قاعدة بيانات من قبل وابغى اكمل عليها؟

[@osos-os]

مبدع جدا

[@HAlI.H]

شرح رائع

[@tahahsen1952]

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

[@تلاواتخاشعة-ل5ع]

السلام عليكم
ممكن شيت إكسيل يومية المبيعات وطرق الدفع والمصروفات
جزاك الله خير الجزاء