مشكلة في كود ارسال راسئل الى واتس اب

[samoxz]

السلام عليكم
قمت بتجميع و دمج عدة اكواد من عدة مصادر مع افكار كي اصل لملف اكسل يقوم بارسال الرسائل الى واتس اب
لكن فقط للقائمة التي اقوم بتحديدها

بمعنى 

أحدد من القائمة في العمود الاول اسماء المستلمين

ثم اضغط على زر الارسال 
قمت بعمل عمود فلتر و استخدمته لفلترة الاسماء التي تم اختيارها
و منها يتعامل الملف مع الاسماء المدرجة في الجدول المسمى مسبقا 
لكن اريده ان يتوقف عن الارسال عند اخر اسم في الجدول
قمت باضافة جزء في الكود كي يتوقف عند الخلية الفاضية لكن فعليا الخلية ليست فارغة لانها تحوي عملية و ان كانت تظهر
ما الحل دااام فضلكمدخت السبع دوخات

ممكن يكون هناك حل افضل بكثييير مما قمت به
علما اني مبتدئ جدا في الVBA

رسالة واتساب عام محدث.xlsm

ايميلي هو samoxz10@gmail.com

[أ / محمد صالح]

ما شاء الله أنت وصلت لمستوى جميل

لماذا تقول أنك مبتدئ؟

أقترح عليك الاعتماد على العمود F في تحديد القائمة

يمكنك تجربة هذا التعديل

Sub WhatsApp()
Dim Contact As String
Dim Message As String
Dim Obj As New DataObject
Dim lr As Long
lr = Cells(Rows.Count, "F").End(xlUp).Row
For Each Cell In Range("F2:f" & lr)
Contact = Cell.Value
Message = Cell.Offset(0, 2).Value

Obj.SetText Message
Obj.PutInClipboard

ActiveWorkbook.FollowHyperlink "https://wa.me/" & Contact

Application.Wait(Now + TimeValue("00:00:06")).True

Call SendKeys("^v", True)

Application.Wait(Now + TimeValue("00:00:05")).True
Call SendKeys("~", True)
Application.Wait(Now + TimeValue("00:00:05")).True
Next

MsgBox "Done!"
End Sub

بالتوفيق

[samoxz]

جزاك الله كل خير 
الله يفرح قلبك و يفرج كربك

نقطة صغيرة شفت احد الفيديوهات بيضيف كلمة True مثل ما مضاف بالكود يلي فوق بحيث انه يقلل زمن الانتظار بدل 5 ثواني او 6 ثواني يعني انه بيكتب 1 ثانية بس هو ما بينتقل للمرحلة الثانية الا لما تكتمل الاولى بغض النظر عن الزمن لكن لما طبقت الفكرة مثل ما مكتوب فوق اعطاني رسالة Compile error >> invalid qualifier
فهل فعلا مثل ما شرحت ام اني فهمان الموضوع غلط 

و ان كان الفكرة صحيحة فما الخطأ الذي قمت به

الأمر الثاني انه لما اختار صورة و اعمل ارسال ما بياخد الصورة ضمن الرسالة!!!

 

المشكلة الثانية يلي عم تواجهني هي انه ما بينقل البيانات بشكل صحيح يعني اسم المستقبل غير صحيح
عملت عمود جديد و ضفت دالة lookup لكن مش عارف سبب انه ما بيشتغل صح

رسالة واتساب عام محدث 55.xlsm

 

المشكلة الثانية انحلت بوضع xlookup بدل lookup

تم تعديل سبتمبر 17 بواسطه samoxz

[samoxz]

هل من الممكن التحقق من الملف الحالي ما الخطأ في الكود
حاولت اضيف كود لنسخ الصورة المصافة و لصقها في رسالة واتس اب

رسالة واتساب عام محدث7.xlsm