Размер видео: 1280 X 720853 X 480640 X 360
Показать панель управления
Автовоспроизведение
Автоповтор
عاش الله ينور يا صديق الكفاح 👍👍
الله يجزيك خيرشكرا على الشرح
أفادكم الله الله ينور عليك
السلام عليكم شكرا عالشرح والمعلومات القيمة وفي ميزان حسناتكهذا الكود فقط للأرقام المحفوظة في الموبايل فقطهل يوجد كود للإرسال للارقام من دون حفظهل في الموبايل ؟اكون لك من الشاكرين
عليكم السلام شكرا ليك يا رب يرزقنا جميعا بالعلم الذى ينتفع به ثانيا اذا تم ادراج الرقم المطلوب بالشيت هيتم الارسال حتي لو لم يكن محفوظ فى الموبايل
@@excelonlinemrexcelacademy11مممكن تتواصل معي
عايز اعمل جروب واضف فيه ناس كتير من ملف الاكسيل اعمل ايه
مشت معاي الخطوات يدخل على المحادثة لكن لا يكتب اي مسج مع العلم الخلايا فيها مسج
ما شاء الله- بس فى سوال لو انا عايز ابعت صورة بدل ارسالة او ملف pdf
ممكن تبعت اى حاجة بس لازم تكتب الصيغة بتاعة الفايل سواء كان xlsm .TIFF . JPG . GIF . PNG . Jpg.xlsx
السلام عليكم ورحمة الله وبركاته.حفظكم الله وزادكم علما. سيدي الفاضل هل يصلح الارسال الى 5000 عميل مثلا؟
جزاك الله خيرا 🙏🙏طبعا يبعت رسائل كتيرة 💯💯لابد من كتابة الكود صح علشان يبدأ ياخد الأوامر من الكود اللى موجود 📩📩
عملت كل الي قولتو وفعلا اشتغل بس بيبعت ل اول رقم بس ، بباقي الارقان الي كاتبها مبيبعتلهاش
اولا تأكد أن الكود مظبوط وثانيا تأكد أن الأرقام صحيحة ولو مظبطش تواصل معايا اشوفلك فين المشكله
لو كدا تواصل معايا على الميل mohammednagiub99@gmail.com
انا مشيت على كل الخطوات وما ظبت معى .... بيقولى خارج النطاق ... ممكن تقولى ايه المشكله
اكيد فى خطوة مظبطتش حاول مرة كمان وصور الخطوات و ابعتلى و انا معاك. لحد متظبط أن شاء الله 🙏🙏
@@excelonlinemrexcelacademy11 ازاى ارسلك صور على إنستجرام ولا فين
ممكن الكود
الكود :Sub whatsapp()Dim vname, vmessage As StringActiveWorkbook.FollowHyperlink Address:="web.whatsapp.com/?"Application.Wait (Now + TimeValue("00:00:10"))For I = 0 To Application.WorksheetFunction.CountA(Sheets("sheet1").Range("a:a")) - 2vname = Sheets("sheet1").Range("b2").Offset(I, 0).Valuevmessage = Sheets("sheet1").Range("c2").Offset(I, 0).ValueCall 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 IEnd Sub
وين الكود
هل ممكن ارسال صوره الى قروب واتساب ؟
ممكن تبعت الايمل هبعتلك الشيت
@@excelonlinemrexcelacademy11 انا اتمنى ان يكون فيه خاصيه إرسال رينج من الاكسل كصوره مثلا Range A2:F12 as image
انا نفس المشكله
انا اسمى مكتوب 😂
طبعا انت من اهم العملاء
عاش الله ينور يا صديق الكفاح 👍👍
الله يجزيك خير
شكرا على الشرح
أفادكم الله الله ينور عليك
السلام عليكم شكرا عالشرح والمعلومات القيمة وفي ميزان حسناتك
هذا الكود فقط للأرقام المحفوظة في الموبايل فقط
هل يوجد كود للإرسال للارقام من دون حفظهل في الموبايل ؟
اكون لك من الشاكرين
عليكم السلام شكرا ليك يا رب يرزقنا جميعا بالعلم الذى ينتفع به
ثانيا اذا تم ادراج الرقم المطلوب بالشيت هيتم الارسال حتي لو لم يكن محفوظ فى الموبايل
@@excelonlinemrexcelacademy11مممكن تتواصل معي
عايز اعمل جروب واضف فيه ناس كتير من ملف الاكسيل اعمل ايه
مشت معاي الخطوات يدخل على المحادثة لكن لا يكتب اي مسج مع العلم الخلايا فيها مسج
ما شاء الله- بس فى سوال لو انا عايز ابعت صورة بدل ارسالة او ملف pdf
ممكن تبعت اى حاجة بس لازم تكتب الصيغة بتاعة الفايل سواء كان xlsm .TIFF . JPG . GIF . PNG . Jpg
.xlsx
السلام عليكم ورحمة الله وبركاته.
حفظكم الله وزادكم علما. سيدي الفاضل هل يصلح الارسال الى 5000 عميل مثلا؟
جزاك الله خيرا 🙏🙏
طبعا يبعت رسائل كتيرة 💯💯
لابد من كتابة الكود صح علشان يبدأ ياخد الأوامر من الكود اللى موجود 📩📩
عملت كل الي قولتو وفعلا اشتغل بس بيبعت ل اول رقم بس ، بباقي الارقان الي كاتبها مبيبعتلهاش
اولا تأكد أن الكود مظبوط وثانيا تأكد أن الأرقام صحيحة ولو مظبطش تواصل معايا اشوفلك فين المشكله
لو كدا تواصل معايا على الميل mohammednagiub99@gmail.com
انا مشيت على كل الخطوات وما ظبت معى .... بيقولى خارج النطاق ... ممكن تقولى ايه المشكله
اكيد فى خطوة مظبطتش حاول مرة كمان وصور الخطوات و ابعتلى و انا معاك. لحد متظبط أن شاء الله 🙏🙏
@@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
وين الكود
هل ممكن ارسال صوره الى قروب واتساب ؟
ممكن تبعت الايمل هبعتلك الشيت
@@excelonlinemrexcelacademy11 انا اتمنى ان يكون فيه خاصيه إرسال رينج من الاكسل كصوره مثلا Range A2:F12 as image
انا نفس المشكله
انا اسمى مكتوب 😂
طبعا انت من اهم العملاء
وين الكود
الكود :
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