السلام عليكم شكرا عالشرح والمعلومات القيمة وفي ميزان حسناتك هذا الكود فقط للأرقام المحفوظة في الموبايل فقط هل يوجد كود للإرسال للارقام من دون حفظهل في الموبايل ؟ اكون لك من الشاكرين
@excelonlinemrexcelacademy11
Жыл бұрын
عليكم السلام شكرا ليك يا رب يرزقنا جميعا بالعلم الذى ينتفع به ثانيا اذا تم ادراج الرقم المطلوب بالشيت هيتم الارسال حتي لو لم يكن محفوظ فى الموبايل
@dalalalsohaymei5253
7 ай бұрын
@@excelonlinemrexcelacademy11مممكن تتواصل معي
@hussein4travel
6 ай бұрын
عايز اعمل جروب واضف فيه ناس كتير من ملف الاكسيل اعمل ايه
@ahmedsarwat1882
Жыл бұрын
عاش الله ينور يا صديق الكفاح 👍👍
@assimbasim9942
5 ай бұрын
مشت معاي الخطوات يدخل على المحادثة لكن لا يكتب اي مسج مع العلم الخلايا فيها مسج
@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
@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
@3.elk2eb23
Жыл бұрын
عملت كل الي قولتو وفعلا اشتغل بس بيبعت ل اول رقم بس ، بباقي الارقان الي كاتبها مبيبعتلهاش
@excelonlinemrexcelacademy11
Жыл бұрын
اولا تأكد أن الكود مظبوط وثانيا تأكد أن الأرقام صحيحة ولو مظبطش تواصل معايا اشوفلك فين المشكله
@excelonlinemrexcelacademy11
Жыл бұрын
لو كدا تواصل معايا على الميل mohammednagiub99@gmail.com
@rawadalnazafa
Жыл бұрын
انا مشيت على كل الخطوات وما ظبت معى .... بيقولى خارج النطاق ... ممكن تقولى ايه المشكله
@excelonlinemrexcelacademy11
Жыл бұрын
اكيد فى خطوة مظبطتش حاول مرة كمان وصور الخطوات و ابعتلى و انا معاك. لحد متظبط أن شاء الله 🙏🙏
@rawadalnazafa
Жыл бұрын
@@excelonlinemrexcelacademy11 ازاى ارسلك صور على إنستجرام ولا فين
@mohamedsayed3304
Жыл бұрын
ما شاء الله- بس فى سوال لو انا عايز ابعت صورة بدل ارسالة او ملف pdf
@excelonlinemrexcelacademy11
Жыл бұрын
ممكن تبعت اى حاجة بس لازم تكتب الصيغة بتاعة الفايل سواء كان xlsm .TIFF . JPG . GIF . PNG . Jpg .xlsx
@mellitmohammed1729
Жыл бұрын
السلام عليكم ورحمة الله وبركاته. حفظكم الله وزادكم علما. سيدي الفاضل هل يصلح الارسال الى 5000 عميل مثلا؟
@excelonlinemrexcelacademy11
Жыл бұрын
جزاك الله خيرا 🙏🙏 طبعا يبعت رسائل كتيرة 💯💯 لابد من كتابة الكود صح علشان يبدأ ياخد الأوامر من الكود اللى موجود 📩📩
@yousefqaroos7504
Жыл бұрын
هل ممكن ارسال صوره الى قروب واتساب ؟
@excelonlinemrexcelacademy11
Жыл бұрын
ممكن تبعت الايمل هبعتلك الشيت
@yousefqaroos7504
Жыл бұрын
@@excelonlinemrexcelacademy11 انا اتمنى ان يكون فيه خاصيه إرسال رينج من الاكسل كصوره مثلا Range A2:F12 as image
Пікірлер: 30