السلام عليكم استاذ الحسن ابو الخير جزاك الله كل خير على شروحاتك على قناتك استفسار لو سمحت لي هل ممكن ارسال رسال من الاكسل الى الواتس اب بناء على تاريخ معين في خلية تتطابق للتاريخ اليوم
ماشاء الله جميل جدا . ارجو وضع طريقة فى حالة ايجاد خطأ مثلا ان لم يكن للرقم حساب على الواتس اب اصلا سوف يتوقف البرنامج عن العمل ولن يتم معرفة اين توقفت لو الارقام كبيرة
جميل استاذ ابو الحسن مبدع ورائع عندي سؤال...ممكن عمل كود عدم ترحيل البيانات ف حالة تجاوز العميل الحد المسموح وعايز احدد لكل عميل حد ائتمان مثلا عميل 10000 وعميل 20000 عند المبلغ ده يعطيني رساله ويقولي هذا العميل تجاوز الحد المسموح به. .شكرا
متشكر لك بسيطة أستاذنا اكتب جدول للعملاء فيه الحدود الائتمانية لكل عميل واعمل شرط عبارة عن بحث باسم العميل فى هذا الجدول فلو وجد الشرط ان العميل تخطى الرقم دا يظهر لك الرسالة الموضوع بسيط لكن فيه فكرة شوية
اولا شكرا جدا لحضرتك علي المجهود دا ثانيا عايز استفسر يعني ايه تسمية ال Data داخل البرمجة اللي حضرتك قولتها ولماذا اختيار lr هل ليها ربط انا بعمله في الشيت ولا لاء طبقت كلام حضرتك بالحرف بس مش بيرضي يبعت وبيقولي debug علما بان لغة البرنامج الانجليزية ارجو من حضرتك الرد لو تكرمت
العفو 🌹🙏 اسم Data هو اسم الشيت الذى به الرسائل المراد إرسالها فى محرر الاكواد و المتغير Lr هو متغير لمعرفة آخر صف به بيانات أو رسايل و يمكن تسميته بار اسم وفق شروط محدده شرحتها فى فيديو المتغيرات
جزاك الله كل خير تخيطت هذه المرحلة لكن بيدخل علي الواتساب وياخد اوامر في غير اماكنها مثلا بيدوس علي ايقونه الحالة بدلا من البحث وبعدها يكتب في البحث الرسالة المراد ارسالها يتبعها رقم هاتف اخر كاتبه في الشيت يعني يعتبر بيخرف هل فيه حل ؟؟
لا مش بيخرف ولا حاجة الفكرة ان الواتساب اضاف زر او تاب جديد لذلك يجب اصلاح الكود او بمعنى اخر اضافة امر تاب جديد لذلك اكتب الكود بهذا الشكل Dim Lr, Lf As Integer Dim Contact As String Dim Text As String Lr = CustSheet.Range("K1000").End(xlUp).Row ActiveWorkbook.FollowHyperlink "web.whatsapp.com/" Application.Wait (Now + TimeValue("00:00:35")) For Lf = 2 To Lr Contact = CustSheet.Cells(Lf, "L").Value Text = CustSheet.Cells(Lf, "M").Text Call SendKeys("{Tab}", True) Application.Wait (Now + TimeValue("00:00:2")) Call SendKeys("{Tab}", True) Application.Wait (Now + TimeValue("00:00:2")) Call SendKeys("{Tab}", True) Application.Wait (Now + TimeValue("00:00:2")) Call SendKeys("{Tab}", True) Application.Wait (Now + TimeValue("00:00:10")) Call SendKeys(Contact, True) Application.Wait (Now + TimeValue("00:00:10")) Call SendKeys("~", True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys(Text, True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("~", True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("{Tab}", True) Next Lf
السلام عليكم ورحمه الله وبركاته جزاك الله خير بس لو في جهة اتصال مش موجودة اصلاه عاوز يضع بجانب الشخص الذي لم يتم إرسال الرسالة له فشل الارسال علشان اعرف مين راح له الرسالة ومين مرحش وشكرا
سؤال للمهندسين انا سجلت ماكرو لترحيل بيانات شيت لشيت آخر بنفس التصميم والجدول يتكون من 17 عمود أفقي ونازل لحد خانة 64. يعني 50 صف تقريبا المشكلة الاولى ان كان بينسخ على البيانات القديمة .وبعد التعديل أصبح بيرحل تمام لاكن عند الترحيل يخليلي فراغ في الأسطر عدد الخانات المترحلة اول مرة .هل هناك طريقة إنه يعرف آخر سطر عليه كتابة وينسخ لانه في بعض الحالات بيكون عندي بيانات أقل وممكن يكون عمود فيه اكثر من العمود المجاور
ربنا يبارك فيك ويكتب أجرك أنا قمت بتنفيذ الخطوات لكن عندما يفتح الواتس لا يقوم بإرسال الرسالة ، وإنما يتنقل بين الأزرار والأيقونات في الواتس يعرض الملف الشخصي ثم الاعلانات ثم الحالة ... وكأنني أضغط على زر tab لوحة المفاتيح ولا أدري أين الخلل ؟؟
بارك الله فيكم الخلل يعود _ من وجهة نظرى _ إلى أحدى الاسباب التالية 1-المتصفح المستخدم فى عملية الارسال و انا افضل استخدام متصفح مايكروسوفت ايدج 2-وجود كثير من التابات Tabs فى اعلى المتصفح مما يجعل الكود يبحث فى هذه التابات و لا يقوم بالبحث الصحيح فى الواتساب 3-استخدام واتساب المكتبى بدلاً من واتساب ويب و هذا الكود المشروح بالفيديو خاص باستخدام واتساب ويب فقط 4-إضافة و إدراج عدد قليل من سطور tabs فى الكود غير مناسب لعدد التابات Tabs فى الواتساب ويب
والله أنت بارع ياأبوعلي بالتوفيق الدائم إن شاء الله
متشكر جدا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
شكرا جزيلا استاذنا الحسن ابو للخير جزاك الله خيرا
شكرا جزيلا لك استاذ بركات 🙏🙏🌹
كل التوفيق لحضرتك و لعلمك المحترم استاذ الحسن .
شكرا حزيلا لك استاذ أحمد
صدقة جارية ان شاء الله.
متشكر جدا لك 🌹🙏🙏
أحسنت استاذ الحسن بارك الله فيك وزادك الله من فضله
متشكر جدا لك استاذ أحمد 🌹🙏🙏
بارك الله فيكم وجزاكم الله خيرا
جزاك الله خير و نفع بك الامة
متشكر جدا لك استاذ محمد 🌹🙏🙏
استاذ قدير - شكرا
شكراً جزيلاً لحضرتك بارك الله فيكم وجزاكم الله كل خير
شرح وافي أستاذ الحسن
متشكر جدا لحضرتك بارك الله فيكم
جزاك الله خيرآ .
جزاكم الله خيرا 🙏🌹🌹
جزاك الله الف خير استاذنا 🌹🌹
متشكر جدا لك استاذ خالد 🌹🙏🙏
تحياتي لك عمل جميل
متشكر جدا لك استاذ محمد 🌹🌹🙏🙏
ما شاء الله لا قوة الا بالله
الله يعطيك العافيه 🌹🙏🙏
شرح ممتاز بارك الله فيك
لماذا توقف كورس برمجة الاكسل لعل المانع خير
متشكر جدا لك استاذ خالد 🌹🙏🙏
كورس البرمجة شغال و هذا الفيديو الفيديوهات السابقة عليه ضمن الجزء العملى من الكورس
الله يجزك كل خير استاذ حسن ابو الخير اذا ممكن ملف العمل الي شتغلت عليه اكون لك من الشاكرين
الله يعطيك العافية
تنزيل الملفات متاح للسادة المنتسبين للقناة
السلام عليكم استاذ الحسن ابو الخير
جزاك الله كل خير على شروحاتك على قناتك
استفسار لو سمحت لي هل ممكن ارسال رسال من الاكسل الى الواتس اب بناء على تاريخ معين في خلية تتطابق للتاريخ اليوم
شكرا جدا على تعبك كنت محتاج لو فى طريقة ابعت بيها صور او ملف PDF لو فى طريقة هكون شاكر جدا
جميل
شكراً جزيلاً لك
ماشاء الله جميل جدا . ارجو وضع طريقة فى حالة ايجاد خطأ مثلا ان لم يكن للرقم حساب على الواتس اب اصلا سوف يتوقف البرنامج عن العمل ولن يتم معرفة اين توقفت لو الارقام كبيرة
هذا الامر يتطلب تنزيل أحدى المكتبات على النظام لديك
ممكن شرحها وطريقة ارسال صورة مع الرسالة
@@alhassanabuelkhair
شكرا
العفو 🌹🙏🙏
هايل
شكرا جزيلا لك 🌹🙏🙏
شرحك مبسط وجميل جدا
بس ممكن طريقة نرسل بيها صورة أو ملف مع الكلام؟
شكراً جزيلا لك
نعم يوجد شرخ كيفية ارسال صورة كاسكرين شوت من البيانات بالاكسل
th-cam.com/video/q9owm8GZUEI/w-d-xo.html
🌹
شكراً لك
وهل يمكن ارسال صور مع الرساله
يمكن ارسال صورة مفردة او رسالة نصية فقط ام الاثنين معاً لا
السلام عليكم ورحمه الله وبركاته
طيب حضرتك لية ماحطتش 5 تابت زي المرتبات
و عليكم السلام
السؤال ليس واضح ما المشكلة لديك
حضرتك في فديو ارسال المرتبات وضعت
Call sendkiz 5 مرات
قبل النسخ والارسال هنا لا
جميل استاذ ابو الحسن مبدع ورائع
عندي سؤال...ممكن عمل كود عدم ترحيل البيانات ف حالة تجاوز العميل الحد المسموح وعايز احدد لكل عميل حد ائتمان مثلا عميل 10000 وعميل 20000 عند المبلغ ده يعطيني رساله ويقولي هذا العميل تجاوز الحد المسموح به. .شكرا
متشكر لك
بسيطة أستاذنا اكتب جدول للعملاء فيه الحدود الائتمانية لكل عميل واعمل شرط عبارة عن بحث باسم العميل فى هذا الجدول فلو وجد الشرط ان العميل تخطى الرقم دا يظهر لك الرسالة
الموضوع بسيط لكن فيه فكرة شوية
@@alhassanabuelkhair شكرا لك ياريت والله انا محتاج الكود ده
هي لغه البرمجه ضمن برنامج الرخصه الدوليه للحاسب الالي
لا
برنامج الاكسل فقط كمعادلات عادية و بعض برامج الأوفيس
❤
اولا شكرا جدا لحضرتك علي المجهود دا
ثانيا عايز استفسر يعني ايه تسمية ال Data داخل البرمجة اللي حضرتك قولتها
ولماذا اختيار lr هل ليها ربط انا بعمله في الشيت ولا لاء
طبقت كلام حضرتك بالحرف بس مش بيرضي يبعت وبيقولي debug
علما بان لغة البرنامج الانجليزية
ارجو من حضرتك الرد لو تكرمت
العفو 🌹🙏
اسم Data هو اسم الشيت الذى به الرسائل المراد إرسالها فى محرر الاكواد
و المتغير Lr هو متغير لمعرفة آخر صف به بيانات أو رسايل و يمكن تسميته بار اسم وفق شروط محدده شرحتها فى فيديو المتغيرات
جزاك الله كل خير
تخيطت هذه المرحلة لكن بيدخل علي الواتساب وياخد اوامر في غير اماكنها
مثلا بيدوس علي ايقونه الحالة بدلا من البحث وبعدها يكتب في البحث الرسالة المراد ارسالها يتبعها رقم هاتف اخر كاتبه في الشيت
يعني يعتبر بيخرف هل فيه حل ؟؟
لا مش بيخرف ولا حاجة الفكرة ان الواتساب اضاف زر او تاب جديد لذلك يجب اصلاح الكود او بمعنى اخر اضافة امر تاب جديد لذلك اكتب الكود بهذا الشكل
Dim Lr, Lf As Integer
Dim Contact As String
Dim Text As String
Lr = CustSheet.Range("K1000").End(xlUp).Row
ActiveWorkbook.FollowHyperlink "web.whatsapp.com/"
Application.Wait (Now + TimeValue("00:00:35"))
For Lf = 2 To Lr
Contact = CustSheet.Cells(Lf, "L").Value
Text = CustSheet.Cells(Lf, "M").Text
Call SendKeys("{Tab}", True)
Application.Wait (Now + TimeValue("00:00:2"))
Call SendKeys("{Tab}", True)
Application.Wait (Now + TimeValue("00:00:2"))
Call SendKeys("{Tab}", True)
Application.Wait (Now + TimeValue("00:00:2"))
Call SendKeys("{Tab}", True)
Application.Wait (Now + TimeValue("00:00:10"))
Call SendKeys(Contact, True)
Application.Wait (Now + TimeValue("00:00:10"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(Text, True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("{Tab}", True)
Next Lf
@@alhassanabuelkhair نفس المشكلة معايا
ياستاذ هل يمكن ان يكون الرقم مش متسجل
لا لابد يكون مسجل بجهات الاتصال
السلام عليكم استاذ الحسن كان عندي استفسار من حضرتك انا طبقت الدرس ده بس كل لما ادوس ارسال مش بيرضي يبعت مش عارفه ليه مع اني كتبت كل الاكواد صح ؟
و عليكم السلام ورحمه الله
ممكن اعرف لغة واجهه البرنامج لديك عربيه ام إنجليزية
@@alhassanabuelkhair إنجليزي
طب ممكن كتابة الكود المستخدم هنا
فى رسالة خطأ بتظهرلي مكتوب فيها invalid next control variable reference
هل يمكن استعمله للموردين والعملاء
نعم
ما المشكلة
العالمى
متشكر جدا لك استاذ محمود 🌹🙏🙏
محتاج مساعده طبعا شكرا جزيلا لك علي الشرح لكني كاتب الاكواد كلها صح ولما اضغط علي الcommand button بيظهر في مشكله في الكود debug
ما هو الخطأ الذي يظهر معاك
و ما لغة واجهه البرنامج لديك عربيه ام إنجليزية
استاذ حسن عاوز اضيف ارقام غير مسجله ينفع
للاسف لا ينفع مع هذه الطريقة
@@alhassanabuelkhair طيب لو ينفع انه لو ملقيش الرقم يكتب رساله انه غير مسجل و يعمل علامه علي الرقم فالشيت
للاسف هذه الاجراء صعب تطبيقه حاليا لانه لازم نأخد شفرة من شركة واتساب نفسها (ميتا) لكى تخبرنا بوجود الرقم من عدمه بالشركة
السلام عليكم ورحمه الله وبركاته
جزاك الله خير
بس لو في جهة اتصال مش موجودة اصلاه عاوز يضع بجانب الشخص الذي لم يتم إرسال الرسالة له فشل الارسال علشان اعرف مين راح له الرسالة ومين مرحش وشكرا
و عليكم السلام ورحمه الله وبركاته
هذه الخاصية تحتاج إلى مكتبة من المكتبات المساعدة
🥀🥀🥀🥀
متشكر جدا لك 🌹🌹👍
حضرتك انا عملت كل خطواتك دي وللاسف كل م يفتح واتساب ويب يقف علي خانة انشاء مجموعة ولا يقوم بالبحث نهائيا .. ولا يعطي اي نتائج أخري |.. وشكرا
هل ممكن أعمل مع الرساله Attach ملف PDF ؟؟؟ شكراً جزيلاً
استاذ يسرى مرحبا بك
سوف ابحث الامر وابلغ حضرتك
@@alhassanabuelkhair أشكرك على اهتمامك يا استاذنا 🏵️🏵️🏵️
لو سمحت ممكن طريقة ارسل بيها صورة مع الرسالة
حاضر أستاذ محمد نبحث الطريقة إن شاء الله تعالى
لو انا عايز ارسل ملف اكسل او pdf من خلال زر ارسال كيف يمكن ذالك
كيف يمكنني ذلك
سؤال للمهندسين انا سجلت ماكرو لترحيل بيانات شيت لشيت آخر بنفس التصميم والجدول يتكون من 17 عمود أفقي ونازل لحد خانة 64. يعني 50 صف تقريبا
المشكلة الاولى ان كان بينسخ على البيانات القديمة .وبعد التعديل أصبح بيرحل تمام لاكن عند الترحيل يخليلي فراغ في الأسطر عدد الخانات المترحلة اول مرة .هل هناك طريقة إنه يعرف آخر سطر عليه كتابة وينسخ لانه في بعض الحالات بيكون عندي بيانات أقل وممكن يكون عمود فيه اكثر من العمود المجاور
البرنامج جميل لاكن عندى خطا انة لايعمل وكل مرة يعمل خطا فى سطر exlup ثم اغلق وبعدها الاقى الاكواد غير موجودة
السلام عليكم
تقصد تجد مشكلة فى سطر LastRow او متغير تحديد اخر صف به بيانات
قيد الرفع على اليوتيوب شكلك جديد يا صديقي
هو ايه اللى قيد الرفع
السلام عليكم ممكن تجاوبني عملت الكود بالكامل لكن يطلع يطلع خطأ في اكس لب مع العلم قمت بالادخال بشكل صحيح
تحياتي استاذ حسن، كيف يمكن ان يكون ال sheet التي تعمل عليها اسمها sheet2 ومن داخل الكود اسمها ]Data الكود لم يعمل بسبب اسم ال Sheet، ارجوا الأفادة
انا موضح فى الفيديو أن اسم الشيت الذى به ارقام الهاتف داخل البرمجة هو Data
@@alhassanabuelkhair اشكرك استاذ حسن ولكن كيف يتم ذلك واسم الشيبت عالى الأكسل ليس data
غير اسم الشيت الى Data من نافذة الخصائص و من اول خاصية أى Name اتب امامها كلمة Data طبعا لازم تكون واقف على الشيت
جزاك الله الخير
هل هذه الطريقة امنة من القرصنة؟؟
هل بوجد كود لارسال pdf او صورة ؟؟؟
نعم آمنه من القرصنة
لكن حاليا لا يوجد كود لارسال ملفات ال PDF
جزاك الله الخير
ولله ابداع في الشرح والمحتوى
متشكر جدا لك 🌹🙏🙏
استاذي سؤال طرحته بأحد فيظيوهاتك واتمنى الاجابة:
على أي أساس اختر نوع الحدث Click أوDobleckick....اذا في رابط فيظيو تعمل معروف
ربنا يبارك فيك ويكتب أجرك أنا قمت بتنفيذ الخطوات لكن عندما يفتح الواتس لا يقوم بإرسال الرسالة ، وإنما يتنقل بين الأزرار والأيقونات في الواتس يعرض الملف الشخصي ثم الاعلانات ثم الحالة ... وكأنني أضغط على زر tab لوحة المفاتيح ولا أدري أين الخلل ؟؟
بارك الله فيكم
الخلل يعود _ من وجهة نظرى _ إلى أحدى الاسباب التالية
1-المتصفح المستخدم فى عملية الارسال و انا افضل استخدام متصفح مايكروسوفت ايدج
2-وجود كثير من التابات Tabs فى اعلى المتصفح مما يجعل الكود يبحث فى هذه التابات و لا يقوم بالبحث الصحيح فى الواتساب
3-استخدام واتساب المكتبى بدلاً من واتساب ويب و هذا الكود المشروح بالفيديو خاص باستخدام واتساب ويب فقط
4-إضافة و إدراج عدد قليل من سطور tabs فى الكود غير مناسب لعدد التابات Tabs فى الواتساب ويب
@@alhassanabuelkhair ربنا يبارك فيك ويكتب أجرك إن شاء الله ننج في تطبيق الخطوات وتغيير المتصفح
@@alhassanabuelkhairطيب في حل
عملت الكود و اتبعت التعليمات
ولكن في خانة البحث مش بيكتب الرقم بيكتب الرسالة
ما الخطأ برجاء الاجابة
شكرًا مقدمًا
ليس هناك خطأ كل ما هنالك ان هناك تحديثات فى الواتساب ويب
لذلك انصحك بمشاهدة هذا الفيديو
th-cam.com/video/q9owm8GZUEI/w-d-xo.html
شكرًا جزيلًا استاذنا الفاضل
عندما اضغط على زر الارسال يظهر لي انه لم يتم الحصول على الماكرو
فعل الماكرو فى الاكسل
هل ينحذف الرقم تلقائيا ام من قبلك استاذي
لو انا عاوز نبعت لرقم واحد نعمل اية
عادى كتب رقم فقط فى الجدول او فى الخلية التى تمثل ال Contact
يا سلام عليك أخي الفاضل.
لو انا عايز ارسل ملف pdf من خلال زر الارسال باليوزر فورم، كيف يمكنني ذلك ولحضرتك جزيل الشكر والتقدير.
متشكر جدا لك استاذ عبدالرحمن 🙏🌹
حاضر سوف اجرب الكود و أضعه هنا في تعليق مثبت أو على المنتدى أن شاء الله تعالى
لو انا عايز ارسل ملف اكسل او pdf من خلال زر ارسال
الصوت لو سمحت غير واضح
الصوت واضح كمل الفيديو
الفيديو لا يشتغل
استاذ أيوب فى البداية الفيديو كان تنبيه لعرض اول وتم العرض والآن الفيديو يعمل بشكل طبيعى
@@alhassanabuelkhair تفرجت لم تجيني على مشكلي أستاذ حسن
شكرا جدا على تعبك كنت محتاج لو فى طريقة ابعت بيها صور او ملف PDF لو فى طريقة هكون شاكر جدا
العفو بارك الله فيكم
يمكنك ارسال صور عبر الواتساب
شاهد هذا الفيديو وإن شاء الله تجد ما تريد
th-cam.com/video/q9owm8GZUEI/w-d-xo.html