كيفية ربط الاكسيل بالواتس مهم جداً لكل موظفين - ارسال رسائل واتساب من الاكسل

[@ahmedsarwat1882]

عاش الله ينور يا صديق الكفاح 👍👍

[@user-jg8pz6qx1k]

الله يجزيك خير
شكرا على الشرح

[@halimshawky5227]

أفادكم الله الله ينور عليك

[@HussainAli-rp9ef]

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

[@excelonlinemrexcelacademy11]

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

[@dalalalsohaymei5253]

@@excelonlinemrexcelacademy11مممكن تتواصل معي

[@hussein4travel]

عايز اعمل جروب واضف فيه ناس كتير من ملف الاكسيل اعمل ايه

[@assimbasim9942]

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

[@mohamedsayed3304]

ما شاء الله- بس فى سوال لو انا عايز ابعت صورة بدل ارسالة او ملف pdf

[@excelonlinemrexcelacademy11]

ممكن تبعت اى حاجة بس لازم تكتب الصيغة بتاعة الفايل سواء كان xlsm .TIFF . JPG . GIF . PNG . Jpg
.xlsx

[@mellitmohammed1729]

السلام عليكم ورحمة الله وبركاته.
حفظكم الله وزادكم علما. سيدي الفاضل هل يصلح الارسال الى 5000 عميل مثلا؟

[@excelonlinemrexcelacademy11]

جزاك الله خيرا 🙏🙏
طبعا يبعت رسائل كتيرة 💯💯
لابد من كتابة الكود صح علشان يبدأ ياخد الأوامر من الكود اللى موجود 📩📩

[@3.elk2eb23]

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

[@excelonlinemrexcelacademy11]

اولا تأكد أن الكود مظبوط وثانيا تأكد أن الأرقام صحيحة ولو مظبطش تواصل معايا اشوفلك فين المشكله

[@excelonlinemrexcelacademy11]

لو كدا تواصل معايا على الميل [e-mail]

[@rawadalnazafa]

انا مشيت على كل الخطوات وما ظبت معى .... بيقولى خارج النطاق ... ممكن تقولى ايه المشكله

[@excelonlinemrexcelacademy11]

اكيد فى خطوة مظبطتش حاول مرة كمان وصور الخطوات و ابعتلى و انا معاك. لحد متظبط أن شاء الله 🙏🙏

[@rawadalnazafa]

@@excelonlinemrexcelacademy11 ازاى ارسلك صور على إنستجرام ولا فين

[@textilesnews9757]

ممكن الكود

[@excelonlinemrexcelacademy11]

الكود :
Sub whatsapp()
Dim vname, vmessage As String
ActiveWorkbook.FollowHyperlink Address:="web.whatsapp.com/?"
Application.Wait (Now + TimeValue("00:00:10"))
For I = 0 To Application.WorksheetFunction.CountA(Sheets("sheet1").Range("a:a")) - 2
vname = Sheets("sheet1").Range("b2").Offset(I, 0).Value
vmessage = Sheets("sheet1").Range("c2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(vname, True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(vmessage, True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
Next I
End Sub

[@dalalalsohaymei5253]

وين الكود

[@yousefqaroos7504]

هل ممكن ارسال صوره الى قروب واتساب ؟

[@excelonlinemrexcelacademy11]

ممكن تبعت الايمل هبعتلك الشيت

[@yousefqaroos7504]

@@excelonlinemrexcelacademy11 انا اتمنى ان يكون فيه خاصيه إرسال رينج من الاكسل كصوره مثلا Range A2:F12 as image

[@hamadaabdallah86]

انا نفس المشكله

[@ragabaraby2725]

انا اسمى مكتوب 😂

[@excelonlinemrexcelacademy11]

طبعا انت من اهم العملاء

[@khaldoonalsaleh785]

وين الكود

[@excelonlinemrexcelacademy11]

الكود :
Sub whatsapp()
Dim vname, vmessage As String
ActiveWorkbook.FollowHyperlink Address:="web.whatsapp.com/?"
Application.Wait (Now + TimeValue("00:00:10"))
For I = 0 To Application.WorksheetFunction.CountA(Sheets("sheet1").Range("a:a")) - 2
vname = Sheets("sheet1").Range("b2").Offset(I, 0).Value
vmessage = Sheets("sheet1").Range("c2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(vname, True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(vmessage, True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
Next I
End Sub