انا شفت المحاضرة للآخر بس لسة واقف عمليا عند الاستعلام ، الموضوع كبير وجميل ومحتاج تدريب على البرنامج خمس مرات ع الأقل عشان نتقن الاكواد وصيغة الكود والله والله البرنامج دا من أنجح واهم البرامج وفى ميزان حسناتك يا استاذ ماهر
اتقدم بجزيل الشكر للأستاذ تامر على حسن خلقه و رقي تعامله، طلبت منه عمل برنامج مشابه للما قدمه في المقطع و كان مبدع، بسم الله ماشاء الله حاقه ولا غلطه و كان ما قدمه أجمل و اروع مما كنت اتصور، بارك الله لك في عملك و جهدك و وقتك و رزقك من حيث لا تحتسب، جزاك الله خير الجزاء.
السلام عليكم حضرة الاستاذ أتقدم إليكم بالشكر والامتنان على ماقدمته من دروس مستفادة واتمنى منكم تقديم درس في تعلم البرمجة على كمبيوتر أشرطة المرور به باللغة العربية ولكم مني جزيل الشكر والعرفان ياحسن انسان
السلام عليكم ورحمة الله وبركاته الله يعطيك ألف عافية استاذنا الغالي بواجه مشكله في البحث لو الاسم رباعي لازم اداخله بالكامل في البحث، هل فيه طريقة للبحث مثل تكست ليست في اليوزر فورم ؟
استاذ تامر ربنا يبارك فى حضرتك على الشرح الجميل الهادى المريح اللى كسر الخوف من الدخول للبرمجة والمحاضرة دى حتبقى المنطلق للبرمجة وحطبق كل كلمة بنفس الترتيب بجد شرح مميز ومريح ومفهوم جدا جدا
يا استاذ انا عندي اكسل بالفرنسي مثلا هل اقوم بترجمة الدوال الى الفرنسية حرفيا مثلا كلنة sheet الى feuille وماذا عن الباقي مثل add هل اكتبها كما هي ام اترجمها الى ajouter
شكراً لك استاذ تامر ربنا يجعل الجهد الي تبذله في ميزان حسناتك انا طبقت كل الخطوات الى في المقطع وكلها تمام بس كود الحذف ما ضبط مع العلم اني طبقت كل الخطوات الي في الشرح ولم اصل لحل المشكلة
السلام عليكم ألف مليون شكر لحضرتك على شرحك البسيط بس ممكن أسأل حضرتك سوال ليه كود زر الاضافه مشتغلش معايا مع انى كاتب الكود صح.....ولوتكرمت حضرتك اتواصل معاك على الخاص وياريت تنزل ملف البرنامج آسف الفيديو
وعليكم السلام قى كذا سبب ممكن يكون الماكرو مش متفعل عندك وفى الحالة دى استخدم الطريقة فى الفيديو ده th-cam.com/video/NWyTmZ05ET4/w-d-xo.html ولو الاكسل عندك عربى غير كلمة sheet فى الاكواد ل ورقه
ذات المشكلة عندى بالرغم من ان الماكرو مفعل ما قال ولكن تبين ان هناك خطوة لم افعلها قف على زرار الحفظ كلك يمين ثم تعيين الماكرو تفتح لك نافذة اختار منها الاسم الذى قمت بتسميته وهو عندى وعند الاستاذ كلمة add ثم موافق وبكده الزرار تم تفعيله
@@tamer_elshahat طب ممكن لم تنزل الفيديو الجاى بتع الجزاء الثانى تكملة البرنامج ياريت بس لو تكرمت تشرحه كدا على السريع لو سمحة والفيديو التانى هينزل امتا
رائع جدا .. شكرا جزيلا يا أستاذ تامر ..جزاك الله كل خير .. ربنا يجعل هذا العمل الرائع في ميزان حسناتك.. طبقت كل شرحك و خطواتك خطوة خطوة و طلعت لاستفادة 100 في ال100 و عملت الشيت زي حضرتك ..بارك الله في حضرتك
رائع أستاذنا الفاضل بارك الله فيك إن شاء الله الفيديو القادم تخلي خلية البحث عن الأسم عبارة عن قائمة منسدلة مطاطية. بحيث لو الأسم خطا بيرفض ونطاق الطباعة نطاق مطاطي. وكود البحث والتعديل يبقي بالمتغيرات فقط بعيد عن دالة match واستكمال الحلقات كمشروع شئون موظفين أو مرتبات وباقي مشروع الأقساط ناقص إرسال الرسائل عن طريق الواتس أب تحياتي لك وبالتوفيق
يا اخي عملاق ما شاء الله زادك الله من فضله وعلمه ورزقه..... اذا سمحت شرح مبسط من حضرتك عن انشاء شاشه دخول اسم مستخدم وصلاحيات كل مستخدم مع برنامج قاعدة بيانات... متابعك من العراق
طيب فيه كود يعمل عماليه حسابيه يعني أنا لو عندي متدرب لمده سنه وكل قسم شهرين او ثلاثه عاوز اعمله عمليه اني احط تاريخ البدايه. يقسم الأقسام بالشهور ويحسبها ويعطيني تاريخ النهايه
السلام عليكم شرحك جميل جدا ووافي هل في طريقه نفعل زر الطباعه بحيث انه يطبع الصف واحد بحيث انه يكون مربوط بزر البحث لو بحثت عن اسم معين وظهر لي أطبع الصف فقط بدون طباعة الصفحه كامله وشكر لحضرتك جزيل الشكر
انا حاولت والله ادور علي طريقه ولاكن ما وصلت لشي Sub PrintMatchingRow() ' Define variables Dim ws1 As Worksheet Dim ws2 As Worksheet Dim matchRow As Long Dim searchName As String Dim u1Value As Variant ' Set the worksheets Set ws1 = ThisWorkbook.Sheets("mean") ' Replace with actual name if needed Set ws2 = ThisWorkbook.Sheets("data") ' Replace with actual name if needed ' Get the search value from D4 searchName = ws1.Range("D4").Value ' Get the matched row number from U1 u3Value = ws1.Range("U3").Value ' Debug information MsgBox "Search Name: " & searchName & vbNewLine & _ "U3 Value (Name Match): " & u3Value, vbInformation ' Check if any data is found in U1 If Not IsError(u3Value) And u3Value "" Then matchRow = u3Value ' Get row from U1 (search by name) MsgBox "Matching row for name (" & searchName & ") found at row " & matchRow, vbInformation Else MsgBox "No matching data found for: " & searchName, vbExclamation Exit Sub End If ' Ensure the matched row is valid If matchRow ws2.Rows.Count Then MsgBox "Invalid row number found!", vbExclamation Exit Sub End If ' Define the row range to print (Sheet2, entire row) With ws2.Rows(matchRow) .Select ' Show print preview before printing ActiveSheet.PageSetup.PrintArea = .Address ActiveWindow.SelectedSheets.PrintPreview End With End Sub ده الي وصلت ليه ولاكن لا يعمل
شرح حضرتك ممتاز مشاء الله بس انا كان عندي مشكله كل م بعمل تعديل ل اسم وحفظ داله ال match بتتمسح وبيتحط مكانها بدل رقم العمود بتبقي اسم وبيظهرلي بج ف ممكن ايه الحل ؟
ا تامر عندي شيت مطبوع عايز اعمله علي الكمبيوتر بس بنفس الشكل كأنه هو بالظبط وشوفت فديو بيشرح تحويل بيانات مطبوعه بتتصور بكاميرا الاكسيل اللي علي التليفون وتحولها لداتا علي الكمبيوتر بس ماتطلع صحيح
@@tamer_elshahat انا عاوز اعمل نموزج لصيانه السيارات وملف بيانات لكل عربيه فعاوز ادخل البيانات تروح على الملف الخاص بيها وعندى ٥٠ عربيه برجاء الإفادة وشكرا لحضرتك على التقدير ربنا يجعله في ميزان حسناتك
السلام عليكم ورحمه الله وبركاته شيخ تامر بارك الله فيك عندي الامر اللي ينكتب بعد الدي ام اس اللي هو اي يساوي انا سجل نفس الشيء بس يطلع لي لون اصفر وما يقبل
تمام لكن يوجد كود يشمل كل الخانات ويتخطى الخانات الفارغة وهو Fori i=4 to18 step2 If sheet1.clles(i;"d").value=" "_ Or sheet1.cells(i"g').value=then Masgbox" تم ترحيل البيانات"vbcrilical Exit sub End if
@@tamer_elshahat استاذ اني حافظ الملف بصيغة الماكرو ولكن من اسوي ادخال بيانات. يضهر عندي خطأ بالسطر الاول. ولكن لا اعرف. لماذا يضهر خطا. لانه يضهر. عندي باللون الاصفر. اكثر من 20 مره قمت بالتدقيق ولم يضبط معي
شرح ممتاز ربنا يبارك في حضرتك بس احنا جمعنا البيانات عوزين نطلع منها المخرجات نبحث عن اشياء فيها فقط وطلع لنا شيت اكسل حسب المطلوب وكمان نرحل منها البيانات حتي نستفيد من تجميع البيانات
استاذ تامر السلام عليكم ورحمة الله وبركاته طالبين منا كمسؤولين حاسب الى عمل وملاء شيتات المرتبات نتمنى عمل دورة عن كيفيه عمل شيت المرتبات بقاعدة وعند ملئها تسمع فى الشيتات الخاصة بالمرتبات وعمل دورة عن هذا الامر وشكرا على شرحك المبسط فى هذا الفيديو الرائع
السلام عليكم ورحمة الله وبركاته ما شاء الله كل شيء واضح👍😍 جزاك الله خير أستاذنا الفاضل👍😊 انا كتبت نفس الأكواد وجربت كل خطوة بالمقطع 😮 بس يعطيني نتيجة خطأ في الكود 🥺 أحتاج المساعدة بكل هذي المعطيات.. تحية من الامارات 👋💕
@@tamer_elshahat عاوز ااقول لحضرتك ان الثواب و الاجر اللي ربنا هجزيك به ان شاء الله شىء عظيم لانك بتعلمنا خلاصة تعبك و بحثك في زمن قليل جدا فكتر خيرك على تعبك و ربنا يكتب لك الخير دائما
جزاك الله خيرا استاذ تامر بارك الله فيكم استفدنا من شرحكم الجميل اللهم زدكم علما .
انا شفت المحاضرة للآخر بس لسة واقف عمليا عند الاستعلام ، الموضوع كبير وجميل ومحتاج تدريب على البرنامج خمس مرات ع الأقل عشان نتقن الاكواد وصيغة الكود
والله والله البرنامج دا من أنجح واهم البرامج وفى ميزان حسناتك يا استاذ ماهر
متشكر جدا 🌹
حلتها ولا لسه علشان انا كمان واقف عندها الاستعلام المعدله
اتقدم بجزيل الشكر للأستاذ تامر على حسن خلقه و رقي تعامله، طلبت منه عمل برنامج مشابه للما قدمه في المقطع و كان مبدع، بسم الله ماشاء الله حاقه ولا غلطه و كان ما قدمه أجمل و اروع مما كنت اتصور، بارك الله لك في عملك و جهدك و وقتك و رزقك من حيث لا تحتسب، جزاك الله خير الجزاء.
جزانا الله وإياكم كل خير 🌹🌹🌹
بجد من الناس القليلة اللي كتبت الكود صحيح بارك الله لك
متشكر جدا 🌹
فريت علي جميع المقاطع افضل مقطع والله ويستاهل لايك❤
السلام عليكم حضرة الاستاذ أتقدم إليكم بالشكر والامتنان على ماقدمته من دروس مستفادة واتمنى منكم تقديم درس في تعلم البرمجة على كمبيوتر أشرطة المرور به باللغة العربية ولكم مني جزيل الشكر والعرفان ياحسن انسان
متشكر جدا 🌹
المشكله معنديش نسخه عربى
مجهود رائع وعمل ممتاز جزاك الله عنا خيرا ولكن ينقص الملف عمل كود اخفاء كل شي في الوجهة حتى لا يتلاعب احد بي الاضافات والاكواد وشكرا
وفيت وكفيت ، تقبل الله عملك خالصا لوجهه الكريم وجزاك خير الجزاك على عملك هذا. عمل ممتاز تستحق كل الشكر والتقدير.
متشكر جدا 🌹
سلمت يداك أستاذنا الفاضل، أسأل الله أن يجعل هذا العمل المتقن في ميزان حسناتك، وأن يجزيك عنه الجزاء الأوفى.
متشكر جدا 🌹🌹
@@tamer_elshahat الإتقان شمل الصورة والصوت والمضمون والاخراج، كل التحية والتقدير.
السلام عليكم ورحمة الله وبركاته
الله يعطيك ألف عافية استاذنا الغالي
بواجه مشكله في البحث لو الاسم رباعي لازم اداخله بالكامل في البحث، هل فيه طريقة للبحث مثل تكست ليست في اليوزر فورم ؟
اتفرج على الشرح ده
th-cam.com/video/_eVJ7wMx8fE/w-d-xo.htmlsi=0P8z_wQ750Z5q4Nx
اشكر الله الذي منَ بكم علينا بارك الله فيك و جعل هذا الجهد في ميزان حسناتكم استاذ ثامر
متشكر جدا 🌹
انتا استاذ رائع ونشكرك على الدورس التي افتنا بها وشروحاتك مفهومة جيدا اتمنى لك الصحة والعافية وطول العمر
متشكر جدا 🌹
فعلا رائع ومجهود جبار الله يعطيك الصحة
تابعتك خطوات حرف حرف باقيلي زر تعديل، والحذف، والطباعة وزر حفظ وغلاق واخلص 😍 الله يبارك جهودك يارب
متشكر جدا لو فى اى حاجه وقفت قدامك اكتبلى فى التعليقات
البرنامج اشتغل بعد ما حولت الاكسل إنجليزي
والله والله احلى شرح شفتة حتى الآن واول مرة ادخل بوابة البرمجة
ربنا يحفظك يارب
متشكر جدا 🌹
استاذ بانم معنى الكلمة...........شكرا جزيلا
شكرا جزيلا على هذا الشرح المستفيض، تحية من المملكة المغربية
متشكر جدا 🌹
استاذ تامر
ربنا يبارك فى حضرتك على الشرح الجميل الهادى المريح اللى كسر الخوف من الدخول للبرمجة والمحاضرة دى حتبقى المنطلق للبرمجة وحطبق كل كلمة بنفس الترتيب
بجد شرح مميز ومريح ومفهوم جدا جدا
متشكر جدا 🌹🌹🌹
انا جربت امبارح اتعود على المعادلات بس هنجت معايا معادلة والميكرو هنج ححازل اليوم
الشغل باستخدام الميكرو اوقات يهنج
وعملت كل التفاصيل وبنفس الالوان
ححاول اليوم اركز اكتر
@@tamer_elshahat
عندى مشكلة مستمرة فى تعريف المتغير الخطوة الثالثة
a = sheet2.range("a10000")
هو الأكسل عندك عربى ولا انجليزى
كان انجليزي وقلبتة عربى
جزاك الله خيرا استاذ تامر شرح فوق الممتاز مجهود رائع
متشكر جدا 🌹🌹🌹
ما شاء الله عليك تبارك الرحمن،، مبدع و شرح جميل و رائع
متشكر جدا 🌹
تسلم يا غالي و الله افضل شرح على الاطلاق
متشكر جدا 🌹
الف الف شكر والله العظيم أني استفدت كثيرا وصممت ملف لعمل خيري اسال الله أن يجزيك خير الجزاء
جزانا وإياكم كل خير 🌹
شكرا. افدتني كثيييرا ، جازاك الله كل خير
جزانا وإياكم كل خير 🌹
شرح الله صدرك ونور بصيرتك لكن هل يمكن إضافة التاريخ والجمع مثل برنامج فواتير ومخازن
ايوه ممكن تضيف اى حاجه انت عايزها
مبدع استاذ ثامر. نسأل الله لك التوفيق والنجاح الدائم
متشكر جدا 🌹
كتب الله اجرك يا جميل ونفع الله بك
ذادك الله من واسع علمه وبارك فيك
متشكر جدا 🌹
السلام عليك استاذ انا مفتش امن في مجال البيئي و الطاقة مجال الصناعي انا محتاج برمجة وافكار تساعدني في عملي
وعليكم السلام
انا معرفش عملك عباره عن ايه عشان اقدر اساعدك
يا استاذ انا عندي اكسل بالفرنسي مثلا هل اقوم بترجمة الدوال الى الفرنسية حرفيا مثلا كلنة sheet الى feuille وماذا عن الباقي مثل add هل اكتبها كما هي ام اترجمها الى ajouter
شكراً لك استاذ تامر ربنا يجعل الجهد الي تبذله في ميزان حسناتك
انا طبقت كل الخطوات الى في المقطع وكلها تمام بس كود الحذف ما ضبط مع العلم اني طبقت كل الخطوات الي في الشرح ولم اصل لحل المشكلة
ممتاز ..... نحن استفدنا من حضرتك ... بس لو سمحت ممكن نعرف طريقة تحميل صوره في نفس الفديو ده
اتفرج على الشرح ده
th-cam.com/play/PL8s4YIlE76XtbS-2ZlRYvH69SqYOy0j7t.html&si=xHqFrD03UeZcw2hq
@@tamer_elshahat بس حضرك يالسيد ... تامر نفس الملف ما ينفعش اني أضع صوره
شكرا ع مجهود الراقي..بس سوال اشلون اسوي تطبيق خاص للكومبيوتر .مثل تطبيق مبيعات الرائد اتمنئ ترد
انا مش فاهم السؤال ومش عارف ايه تطبيق الرائد ده بس ممكن تتفرج على الفيديو ده
th-cam.com/video/7Aoxc4SVvsM/w-d-xo.html
❤ماشاء الله عليك أستاذنا الكريم ربي يحفظ ويبارك فيك ويبارك لك ويجازيك بكل خير .
ربنا يفتح عليك ويجزيك كل خير شرح وافي
متشكر جدا 🌹
استاذ تامر شكرا الشرح الجميل نسال الله التوفيق
متشكر جدا 🌹
ممكن ارسالك على الفيس@@tamer_elshahat
ابوس راسك على الفديو الجميل ده، ولا أروع.
متشكر جداً 🌹
شرح رائع ومعلومات قيمة جزاك االله خيرا
جزانا وإياكم كل خير 🌹
ما شاء الله عليك تستاهل مليون لايك والله
متشكر جدا 🌹
ربنا يجعله فى ميزان حسناتك ويجازيك عنا كل خير
جزانا الله وإياكم كل خير 🌹
رائع أستاذنا الفاضل بارك الله فيك رائع أستاذنا الفاضل بارك الله فيك رائع أستاذنا الفاضل بارك الله فيك رائع أستاذنا الفاضل بارك الله فيك رائع أستاذنا الفاضل بارك الله فيك
شكرا متابعنا الرائع جزاك الله خيرا 🌹🌹🌹
السلام عليكم هل يوجد رقم للتواصل لو سحمت ؟ ارجو الرد اخ تامر
tamerelshahat2021@gmail.com
ماشاء الله
شرح ممتاز ووافى
الله يقويك ومنتظرين المزيد ❤
شرح جميل وحضرتك بتفسر كل معلومة ربنا يكرمك
متشكر جدا 🌹
@@tamer_elshahat الفيديو زاخر بالمعلومات القيمة والشرح وافى لكل تفصيلة ربنا يكرمك
يبارك في عمرك وجزاك الله خير
جزانا وإياكم كل خير 🌹
ماشاء الله لا قوة الابالله ربنا يبارك فيك
متشكر جدا 🌹
الله يبارك فيكم استاذ وجزاكم الله خيرا
جزانا وإياكم كل خير 🌹🌹
اريد بالوجهه. العربي. على الاكسل. في كل. الدورات الخاصه. بتعلم برمجة وصناعة الاكواد. والشيتات وقاعادة البيانات. والادخال والحذف والاضافه
السلام عليكم ألف مليون شكر لحضرتك على شرحك البسيط بس ممكن أسأل حضرتك سوال ليه كود زر الاضافه مشتغلش معايا مع انى كاتب الكود صح.....ولوتكرمت حضرتك اتواصل معاك على الخاص وياريت تنزل ملف البرنامج آسف الفيديو
وعليكم السلام
قى كذا سبب ممكن يكون الماكرو مش متفعل عندك وفى الحالة دى استخدم الطريقة فى الفيديو ده
th-cam.com/video/NWyTmZ05ET4/w-d-xo.html
ولو الاكسل عندك عربى غير كلمة sheet فى الاكواد ل ورقه
ذات المشكلة عندى بالرغم من ان الماكرو مفعل ما قال
ولكن تبين ان هناك خطوة لم افعلها
قف على زرار الحفظ كلك يمين ثم تعيين الماكرو تفتح لك نافذة اختار منها الاسم الذى قمت بتسميته وهو عندى وعند الاستاذ كلمة add ثم موافق
وبكده الزرار تم تفعيله
@@tamer_elshahat طيب ممكن اتواصل مع حضرتك لوسمحت
tamerelshahat2021@gmail.com
Sub add()
Dim a As Integer
a = Sheet2.Range("10000").End(xlUp).Row + 1
Sheet2.Cells(a, 1).Value = Sheet1.Range("D6").Value
Sheet2.Cells(a, 2).Value = Sheet1.Range("D8").Value
Sheet2.Cells(a, 3).Value = Sheet1.Range("D10").Value
Sheet2.Cells(a, 4).Value = Sheet1.Range("D12").Value
Sheet2.Cells(a, 5).Value = Sheet1.Range("G6").Value
Sheet2.Cells(a, 6).Value = Sheet1.Range("G8").Value
Sheet2.Cells(a, 7).Value = Sheet1.Range("G10").Value
Sheet2.Cells(a, 8).Value = Sheet1.Range("G12").Value
يا استاذ تامر هى دى الاكواد ياتر مكتوب صح ولا لا
ربنا يباركلك ويجازيك كل الخير عملت فينا معروف كبير ونستائنك برنامج عمل قوائم الفصول
انا بشكرك شكر لا يعلمه إلا الله لاني عملت نموذج بناءا ع الفيديو بتاعك وأرجو التواصل معاك بعد اذنك
tamerelshahat2021@gmail.com
@@tamer_elshahat شكرا على الرد بس انا مش بعرف اتواصل ع ال gmail لو ف امكانيه اتواصل معاك ع الواتس
عشان لو مفيش امكانيه اتواصل معاك سؤالي انا بعمل كذا فاتوره غير طبعا النموذج بتاعك ايه الحل لما اعمل استعلام ع كذا فاتوره يطلعو ورا بعض مع كل ضغطه ع زرار الاستعلام
شكرا على الشرح الجميل ولكن تنقص فقره او اضافه مثل ما انسميه وهيه . زر طباعه معلومات او بينات لسخص واحد وليس للكل الاسماء . وشكرا مره ثانيه
th-cam.com/video/eymAmxREYnM/w-d-xo.htmlsi=8cxzrBAzCZp5A_L7
كان عندى استسفار فيه زرار الطباعه انا لو حبب اطبع بس بيانات عميل واحد بس بدل ما اطبع كل الشيت بتع العملاء ازى لو سمحة
هتفتح شيت تانى وتحط البيانات الى انت عايزها واستخدم معادلة vlookup
@@tamer_elshahat طب ممكن لم تنزل الفيديو الجاى بتع الجزاء الثانى تكملة البرنامج ياريت بس لو تكرمت تشرحه كدا على السريع لو سمحة والفيديو التانى هينزل امتا
بارك الله فيك وجزاك الله كل خير علي شرحك المبسط يا استاذ .
متشكر جدا 🌹
بارك الله فيك شرح ممتاز ❤
متشكر جدا 🌹
رائع جدا .. شكرا جزيلا يا أستاذ تامر ..جزاك الله كل خير .. ربنا يجعل هذا العمل الرائع في ميزان حسناتك.. طبقت كل شرحك و خطواتك خطوة خطوة و طلعت لاستفادة 100 في ال100 و عملت الشيت زي حضرتك ..بارك الله في حضرتك
👍👍👍🌹
ما شاء الله عليك
زادك الله علما وجزاك الله خيرا
جزانا وإياكم كل خير 🌹
جهود مباركة أستاذي الفاضل المبدع
متشكر جدا 🌹🌹🌹
بارك الله فيك
لو ممكن نزيد الرقم القومى واستخراج النوع والميلاد والين اول اكتوبر واستقطاع اسم ولى الامر
اتفرج على الفيديو ده
th-cam.com/video/SNkBz_D4Ozw/w-d-xo.html
تمام اقصد ربطها بسلسة الادخال وسيت البيانات زى ربط خلية البحث اللى فى الفيديو
رائع أستاذنا الفاضل بارك الله فيك
إن شاء الله الفيديو القادم تخلي خلية البحث عن الأسم عبارة عن قائمة منسدلة مطاطية. بحيث لو الأسم خطا بيرفض
ونطاق الطباعة نطاق مطاطي.
وكود البحث والتعديل يبقي بالمتغيرات فقط بعيد عن دالة match
واستكمال الحلقات كمشروع شئون موظفين أو مرتبات
وباقي مشروع الأقساط ناقص إرسال الرسائل عن طريق الواتس أب
تحياتي لك وبالتوفيق
يا اخي عملاق ما شاء الله زادك الله من فضله وعلمه ورزقه..... اذا سمحت شرح مبسط من حضرتك عن انشاء شاشه دخول اسم مستخدم وصلاحيات كل مستخدم مع برنامج قاعدة بيانات... متابعك من العراق
اتفضل
th-cam.com/play/PL8s4YIlE76XvaBX0SmC6DL2eF-zwRuVd9.html
@@tamer_elshahat كيف احصل على البرنامج لو سمحت
طيب فيه كود يعمل عماليه حسابيه يعني أنا لو عندي متدرب لمده سنه وكل قسم شهرين او ثلاثه عاوز اعمله عمليه اني احط تاريخ البدايه. يقسم الأقسام بالشهور ويحسبها ويعطيني تاريخ النهايه
هتلاقيها فى شرح تصميم البرنامج ده
th-cam.com/play/PL8s4YIlE76XvaIfitGeajB02L6U6jLe0q.html&si=_q1vUX6VXocoisXt
السلام عليكم شرحك جميل جدا ووافي هل في طريقه نفعل زر الطباعه بحيث انه يطبع الصف واحد بحيث انه يكون مربوط بزر البحث لو بحثت عن اسم معين وظهر لي أطبع الصف فقط بدون طباعة الصفحه كامله وشكر لحضرتك جزيل الشكر
انا حاولت والله ادور علي طريقه ولاكن ما وصلت لشي
Sub PrintMatchingRow()
' Define variables
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim matchRow As Long
Dim searchName As String
Dim u1Value As Variant
' Set the worksheets
Set ws1 = ThisWorkbook.Sheets("mean") ' Replace with actual name if needed
Set ws2 = ThisWorkbook.Sheets("data") ' Replace with actual name if needed
' Get the search value from D4
searchName = ws1.Range("D4").Value
' Get the matched row number from U1
u3Value = ws1.Range("U3").Value
' Debug information
MsgBox "Search Name: " & searchName & vbNewLine & _
"U3 Value (Name Match): " & u3Value, vbInformation
' Check if any data is found in U1
If Not IsError(u3Value) And u3Value "" Then
matchRow = u3Value ' Get row from U1 (search by name)
MsgBox "Matching row for name (" & searchName & ") found at row " & matchRow, vbInformation
Else
MsgBox "No matching data found for: " & searchName, vbExclamation
Exit Sub
End If
' Ensure the matched row is valid
If matchRow ws2.Rows.Count Then
MsgBox "Invalid row number found!", vbExclamation
Exit Sub
End If
' Define the row range to print (Sheet2, entire row)
With ws2.Rows(matchRow)
.Select
' Show print preview before printing
ActiveSheet.PageSetup.PrintArea = .Address
ActiveWindow.SelectedSheets.PrintPreview
End With
End Sub
ده الي وصلت ليه ولاكن لا يعمل
اتفرج على الفيديو ده وخد الفكرة منه
th-cam.com/video/ZZfCT7LEDZo/w-d-xo.htmlsi=tM8_1uWmI5HBvLSL
شرح حضرتك ممتاز مشاء الله بس انا كان عندي مشكله كل م بعمل تعديل ل اسم وحفظ داله ال match بتتمسح وبيتحط مكانها بدل رقم العمود بتبقي اسم وبيظهرلي بج ف ممكن ايه الحل ؟
اتأكد من كتابة الاكواد بشكل صحيح
@@tamer_elshahat خلصت الشيت وفعلا قفلته متشكره لحضرتك جدا 🙏
ا تامر عندي شيت مطبوع عايز اعمله علي الكمبيوتر
بس بنفس الشكل كأنه هو بالظبط
وشوفت فديو بيشرح تحويل بيانات مطبوعه بتتصور بكاميرا الاكسيل اللي علي التليفون
وتحولها لداتا علي الكمبيوتر
بس ماتطلع صحيح
انا شفتها برضه بس مشتغلتش عندى
طيب في حلول ولا ايه
بارك الله فيك وجزاك الله كل خير يا استاذ تامر
جزانا وإياكم كل خير 🌹🌹
جزاك الله خير بس هل يمكن بعد تصميم البرنامج استخدمه من الموبايل الرجاء الرد
لا للأسف مينفعش لأن لغة برمجة الاكسل متشتغلش على الموبايل
شكرا جزيل على هذا الشرح الوافي و المجهود استاذا ممكن يحصل اتصال معك للاتفاق على عمل معين
يمكنك التواصل معى على الايميل التالي
tamerelshahat2021@gmail.com
ربنا يبارك لحضرتك فعلا شرح بسيط وممتاز واستفدت كتير بس عندى سؤال لو حبيت اكرر شيت البيانات هل انسخ قائمة الأكواد زى ماهى ولا هيبقى فى تعديل برجاء الرد
تكررها ازاى يعنى وفين قصدك تاخد منها نسخه فى ملف تانى ولا ايه
@@tamer_elshahat انا عاوز اعمل نموزج لصيانه السيارات وملف بيانات لكل عربيه فعاوز ادخل البيانات تروح على الملف الخاص بيها وعندى ٥٠ عربيه برجاء الإفادة وشكرا لحضرتك على التقدير ربنا يجعله في ميزان حسناتك
السلام عليكم جزاك الله خير وبارك الله فيك و زادك الله علما .
وعليكم السلام ورحمة الله وبركاته
جزانا وإياكم كل خير 🌹🌹🌹
السلام عليكم
عندي مشكلة في صيغة ميكرو فهل تتكرم بالمساعده.
ايه المشكله
السلام عليكم ورحمه الله وبركاته شيخ تامر بارك الله فيك عندي الامر اللي ينكتب بعد الدي ام اس اللي هو اي يساوي انا سجل نفس الشيء بس يطلع لي لون اصفر وما يقبل
إذا في رقم نتواصل معك على واتس
هل يمكن برمجة دالة فلتر ع ماكروسفت اكسل 2010
2010 بقى قديم وفى حجات كتيره مش موجوده فيه انصحك حمل اوفيس من اول ٢٠١٦ وانت طالع
مشكور اخ تامر اعطائك كان جيد ومفهوم😊❤
شكراً 🌹
جميل جميل جميل يا استاذ تامر دورة مبسطة متكاملة
متشكر جدا 🌹🌹🌹
سلام عليكم يا أخي إستفدت منك مجموعة من معلومات ، أخي أنا من مغرب و أسئلك عن كيف قيام تحول اللغة الفرنسية إلى اللغة الإنجليزية في لإكسل
وعليكم السلام
بنفس طريقة الفيديو ده
th-cam.com/video/8XL-0xWOTkM/w-d-xo.html
بارك الله فيك وجعلها الله في ميزان حسناتك
استاذ تامر عند زر التعديل فمثلا يوجد بيان ناقص لم يتم كتابته سهوا هل يمكن إجبار المستخدم على كاتبة البيانات كاملة وهل يوجد كود ليشتمل كل الخانات ام لا
انا شارح الكلام ده فى بقيت الحلقات لتصميم البرنامج تابع شرح البرنامج للنهاية
th-cam.com/play/PL8s4YIlE76XtbS-2ZlRYvH69SqYOy0j7t.html
تمام لكن يوجد كود يشمل كل الخانات ويتخطى الخانات الفارغة وهو
Fori i=4 to18 step2
If sheet1.clles(i;"d").value=" "_
Or sheet1.cells(i"g').value=then
Masgbox" تم ترحيل البيانات"vbcrilical
Exit sub
End if
انته دائما مبدع وتفهمنا اكثر من اي شخص لو سمحت ممكن تخلي رابط اتلتحميل
ممكن تكتب لنا اوامر لغة الفيزيال بازيك؟ من فضلك وبارك الله فيك وجازاك كل الخير والبركة ياربي امين.
رابط تحميل الملف موجود في صندوق الوصف اسفل الفيديو
@@tamer_elshahat شكرا جزيلا استاذ وبارك الله فيك
استاذ في حال اضافة مواد الى المخزن. هنا هم نستخدم نفس هاي الاكواد.
اتفضل
th-cam.com/play/PL8s4YIlE76XvGoHN_wflwDBeu-E6diL7l.html&si=Pd0StW2U1odSdvIo
@tamer_elshahat يعني هذه الشرح اذا اسوي نفس الخطوات ولكن اغير بأسماء الخانات ماراح ينفعني ك برنامج مخزني.
استاذ طبقت وياك خطوه بخطوه. بس من اجي اريد احفظ مجاي يحفظ. ممكن حل @@tamer_elshahat
اتأكد ان الماكرو متفعل عندك وانك حافظ الملف بصيغة الماكرو
th-cam.com/video/NWyTmZ05ET4/w-d-xo.htmlsi=8IBLeA5OUO7qrGv4
@@tamer_elshahat استاذ اني حافظ الملف بصيغة الماكرو ولكن من اسوي ادخال بيانات. يضهر عندي خطأ بالسطر الاول. ولكن لا اعرف. لماذا يضهر خطا. لانه يضهر. عندي باللون الاصفر. اكثر من 20 مره قمت بالتدقيق ولم يضبط معي
السلام عليكم ، بارك الله فيك شرح مفيد جدا . بالنسبة لكود الحذف ، هل ممكن ان تظهر رسالة تأكيد للحذف قبل تنفيذه ؟ شكرا جزيلا
اريد دوره مثل هذه الدوره بس ياليت يكون. واجهة الاكسل عربي اتمنا. هذا منك لان انا ضعيف بالانجليزي
اتفرج على الحلقة دى
th-cam.com/video/x2FujuZvmrI/w-d-xo.html
معنديش اكسل عربى
@@tamer_elshahat بارك الله فيك
شرح ممتاز ربنا يبارك في حضرتك بس احنا جمعنا البيانات عوزين نطلع منها المخرجات نبحث عن اشياء فيها فقط وطلع لنا شيت اكسل حسب المطلوب وكمان نرحل منها البيانات حتي نستفيد من تجميع البيانات
بارك الله فيك وزادك علما
عمل متقن ومفيد جزاك الله خيرا
جزانا وإياكم كل خير 🌹
استاذ تامر السلام عليكم ورحمة الله وبركاته طالبين منا كمسؤولين حاسب الى عمل وملاء شيتات المرتبات نتمنى عمل دورة عن كيفيه عمل شيت المرتبات بقاعدة وعند ملئها تسمع فى الشيتات الخاصة بالمرتبات وعمل دورة عن هذا الامر وشكرا على شرحك المبسط فى هذا الفيديو الرائع
ت
ت
صار عندي إدمان على فيديوهاتك اامميزة
حبيبي تسلم 🌹
الله يسر أمرك
استاذ محتاج برنامج مخازن. بس اريد اعرف. الرصيد المتبقي من كل ماده. شلون ممكن اشتغله ياريت تجاوبني
السلام عليكم ورحمة الله وبركاته
ما شاء الله كل شيء واضح👍😍
جزاك الله خير أستاذنا الفاضل👍😊
انا كتبت نفس الأكواد وجربت كل خطوة بالمقطع 😮
بس يعطيني نتيجة خطأ في الكود 🥺
أحتاج المساعدة بكل هذي المعطيات..
تحية من الامارات 👋💕
الأكسل عندك عربى ولا انجليزى واصدار كام
شرح ممتاز و جزاك الله خيرا
جزانا وإياكم كل خير 🌹
ابدعت استاذ ثامر ولو امكن تعمللنا برنامج نفس هاد البرنامج ولكن لكل موظف صفحة اي عدة شيتات ويرحل من الصفحة الرئيسية البيانات الى صفحة خاصة بكل موظف
اتفرج على الفيديو ده
th-cam.com/video/-_g_QIza8GA/w-d-xo.html
مع خالص الشكر أستاذ تامر
تسلم ايدك ياأستاذنا الكريم
والله انت تستاهل 100000لايك
متشكر جدا 🌹🌹
بعد اذنك استاذ تامر بالنسبه لقاعدة البيانات تم عمل جميع الخطوات مثل الفيديو ولاكن يظهر رساله بوجود خطأ ممكن المساعده للاهميه
الخطأ بيظهر لما بتعمل ايه بالظبط
@@tamer_elshahat لم بضغط على حفظ البيانات مع العلم الأوفيس واجهة عربى
غير كلمة sheet فى الاكواد كلها ل ورقه
@@tamer_elshahat مكتوبه ورقه
اتأكد من الاكواد ممكن تكون فى حاجه غلط واتأكد انك مفعل الماكرو وانك حافظ الملف بصيغة الماكرو
حضرتك انسان متميز.
متشكر جدا 🌹
@@tamer_elshahat عاوز ااقول لحضرتك ان الثواب و الاجر اللي ربنا هجزيك به ان شاء الله شىء عظيم لانك بتعلمنا خلاصة تعبك و بحثك في زمن قليل جدا فكتر خيرك على تعبك و ربنا يكتب لك الخير دائما
جزانا الله وإياكم كل خير 🌹🌹🌹
خلصت البرنامج بنجاح والحمد لله وكل الأوامر شغالة ممتازة
ربنا يبارك فيك يا استاذ تامر
،، الخطوة الجاية ازاى اعمل برنامج زى المخازن مثلا وفية صادر ووارد وكارت صنف
ومعادلات وحسابات عملا وموردين
دالة match عندى فيها مشكلة
لو عملت شيتات جديدة ممكن اخذ معلومات من شيت ترحيل البيانات ؟
فى البرمجه ممكن تعمل اى حاجه انت عايزها
السلام عليكم ورحمة الله وبركاته
عند ربط الأكواد بزر
وعند عمل كلك يمين لا يظهر خيار assign macro
كيف أظهر هذا الخيار؟؟؟؟
ازاى لازم يظهر هو الاكسل عندك عربى ولا انجليزى واصدار كام
انجليزي
اوفيس ٣٦٥
السلام عليكم ورحمة الله وبركاته
انا عندي شيت اكسل ممكن تسوي تعديل
وعليكم السلام ورحمه الله وبركاته ، التعديل عباره عن ايه
السلام عليكم ... حضرتك استخدمت الفصلة المنقوطة فى دالة match >>>بس ده مش شغال معايا ... ايه الغلط عندى
استخدم الفاصله العاديه من غير نقطه بتختلف من جهاز لجهاز
@@tamer_elshahat بارك الله فيك ... الفقاصلة العادية اشتعلت معايا لكن بيطلع خطأ فى الكود
@@muhammadassuwarkey
ايه الى بيظهر وبيظهر لما بتعمل ايه
@@tamer_elshahat كتبت دالة البحث وجربتها فى الشيت التانى وكتبت الكود زى ما حضرتك كتبت لكن كان بيطلعلى خطأ حاولت اكتشفه ما امكنش
السلام عليكم ورحمة الله وبركاته
أرغب في التواصل مع حضرتك
ماهي الطريقه؟؟؟
وعليكم السلام
يمكنك التواصل معى عبر الايميل التالي
tamerelshahat2021@gmail.com
تم التواصل
بارك الله فى حضرتك وزادكم علما وفهما استاذ ومعلم وفى انتظار الجديد
متشكر جدا 🌹🌹🌹
كيف استخدم مفتاح tab فى التنقل لملىء البيانات لان التنقل بالماوس فى كل ادخال فيه صعوبة وتأخذ وقت
هتعمل حماية للصفحة الرئيسية وهتسيب خانات الملىء فقط بدون حماية