samoxz قام بنشر الإثنين at 20:20 مشاركة قام بنشر الإثنين at 20:20 السلام عليكم قمت بتجميع و دمج عدة اكواد من عدة مصادر مع افكار كي اصل لملف اكسل يقوم بارسال الرسائل الى واتس اب لكن فقط للقائمة التي اقوم بتحديدها بمعنى أحدد من القائمة في العمود الاول اسماء المستلمين ثم اضغط على زر الارسال قمت بعمل عمود فلتر و استخدمته لفلترة الاسماء التي تم اختيارها و منها يتعامل الملف مع الاسماء المدرجة في الجدول المسمى مسبقا لكن اريده ان يتوقف عن الارسال عند اخر اسم في الجدول قمت باضافة جزء في الكود كي يتوقف عند الخلية الفاضية لكن فعليا الخلية ليست فارغة لانها تحوي عملية و ان كانت تظهر ما الحل دااام فضلكمدخت السبع دوخات ممكن يكون هناك حل افضل بكثييير مما قمت به علما اني مبتدئ جدا في الVBA رسالة واتساب عام محدث.xlsm ايميلي هو samoxz10@gmail.com رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر الثلاثاء at 09:35 مشاركة قام بنشر الثلاثاء at 09:35 ما شاء الله أنت وصلت لمستوى جميل لماذا تقول أنك مبتدئ؟ أقترح عليك الاعتماد على العمود 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 بالتوفيق 3 رابط هذا التعليق شارك More sharing options...
samoxz قام بنشر الثلاثاء at 20:21 الكاتب مشاركة قام بنشر الثلاثاء at 20:21 (معدل) جزاااااك الله كللللل خير الله يفرح قلبك و يفرج كربك نقطة صغيرة شفت احد الفيديوهات بيضيف كلمة True مثل ما مضاف بالكود يلي فوق بحيث انه يقلل زمن الانتظار بدل 5 ثواني او 6 ثواني يعني انه بيكتب 1 ثانية بس هو ما بينتقل للمرحلة الثانية الا لما تكتمل الاولى بغض النظر عن الزمن لكن لما طبقت الفكرة مثل ما مكتوب فوق اعطاني رسالة Compile error >> invalid qualifier فهل فعلا مثل ما شرحت ام اني فهمان الموضوع غلط و ان كان الفكرة صحيحة فما الخطأ الذي قمت به الأمر الثاني انه لما اختار صورة و اعمل ارسال ما بياخد الصورة ضمن الرسالة!!! تم تعديل الثلاثاء at 20:58 بواسطه samoxz رابط هذا التعليق شارك More sharing options...
samoxz قام بنشر الثلاثاء at 20:57 الكاتب مشاركة قام بنشر الثلاثاء at 20:57 المشكلة الثانية يلي عم تواجهني هي انه ما بينقل البيانات بشكل صحيح يعني اسم المستقبل غير صحيح عملت عمود جديد و ضفت دالة lookup لكن مش عارف سبب انه ما بيشتغل صح رسالة واتساب عام محدث 55.xlsm رابط هذا التعليق شارك More sharing options...
samoxz قام بنشر منذ 3 ساعات الكاتب مشاركة قام بنشر منذ 3 ساعات (معدل) المشكلة الثانية انحلت بوضع xlookup بدل lookup تم تعديل منذ 3 ساعات بواسطه samoxz رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان