نجوم المشاركات

السلام عليكم ورحمة الله وبركاته.. كنت قد طرحت سابقًا موضوع يتكلم عن ارسال رسائل الى الواتس اب لعدد X من المستخدمين من خلال الاكسس وهنا X معناها عدد معين كأن يكون 10 مستخدمين او اكثر او اقل.. الموضوع القديم كان فيه مشكلة وهو ان رسائل الواتس اب الطويلة لا يمكن ارسال او تُرسل بشكل مقطوع! الحمدلله في هذا الاصدار تم التغلب نهائيًا على هذه المشكلة واصبح البرنامج يرسل عدد كلمات بالعدد الذي يسمح به الواتس اب الجديد في هذا الاصدار: امكانية ارسال المرفقات ( الصور فقط ) 1- يمكنك ارسال رسائل فقط 2- يمكنك ارسال صور فقط 3- يمكنك ارسال رسالة مع صورة صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download بالمناسبة: الحمدلله انتهيت من برنامج تحويل الصور الى نصوص مهما كانت اللغة ( OCR ) وخصوصا اللغة العربية وحتى الصور التي تكون مكتوبة بخط اليد يتم تحويلها الى نصوص يسهل التعديل عليها في برنامج الوورد البرنامج يعمل بطريقتين: 1- يمكنك تحويل الصور بشكل مباشر 2- يمكنك استخدام الاكسس في ارسال CommandLine يتضمن مسار الصورة ومسار ملف التكست للنص الذي سوف يحفظ وسيقوم البرنامج بعمله لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. SendWhatsAppMessages.rar

باذن الله سارسل لك رسالة على الخاص يمكنك الرد عليها

برجاء وضع الحل الذي توصلت اليه حتى يستفيد منه الغير وشكرا مقدما

اخي الكريم طلبك الاخير اختلف عن الموضوع الاساسي لطفا افرد لطلبك موضوعا وعنوانا جديدا مختصرا للمشكلة

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ومهندسنا العزيز @Eng.Qassim جزاه الله عنا كل خير ارفق لكم مشاركه لاخى @صلاح جبر جزاه الله عنا كل خير تقبلوا تحياتى ومرورى وكل عام وانتم بخير

آمين ولك بالمثل أخي @حمدى الظابط 🙂🌹

تفضل Stu3.mdb

تفضل رشيد الراشدي (1).xlsx

وعليكم السلام ورحمه الله وبركاته ارفق ملف به وليكن 50 بيان في الشيت رقم 1 و 100 بيان في الشيت رقم 2 ملف معبر عن ما تحتاج اليه حتي لا تضيع وقت الاخوة وتجد مبتغاك

لان طريقة الارسال تكون Ctrl+C, Ctrl+V فلا يمكن ارسال اي شيء سوى الصور غريب! ربما هنالك مشكلة في ارسال نص مع صورة، هل جربت ارسال نص فقط؟ او صورة فقط؟؟ سارى المشكلة عندما اعود مساءً الى المنزل. شكرا لك الله يحفظك حبيبي الله يجزاك الجنة اخوي ابو خليل الطيب.. نعم اصبح الارسال الان من داخل جهاز الكومبيوتر عن طريق CMD

مثال (1).xlsx

السلام عليكم و رحمة الله و بركاتة الاخوة الكرام اعضاء المنتدى اقدم لكم برنامج بسيط من تنفيذى لادخال فواتير المبيعات و ترحيل البيانات الاساسية للفاتورة فى شيت و بيانات الاصناف فى شيت اخر يمكن ترحيل اكثر من صنف فى الفاتورة مع تكرار البيانات الاساسية فى شيت الاصناف اتمنى ان يستفيد الاخوة من البرنامج ملحوظة شيت Invoice محمى باسورد (1234) vba Invoice.xlsm

اعتذر من حضرتك أستاذ محمد لضيق الوقت فقد تم عمل الطلب الأول تفضل gedyana.xlsm

السلام عليكم ورحمة الله تم التعديل وتم تجريب الكود بعد عمل صفحة جديدة غير محمية حيث لم اتمكن من التجربة فى المرات السابقة اليك الكود Sub TransKinds() Dim ws As Worksheet, sh As Worksheet Dim Arr As Variant, Temp As Variant Dim i As Long, j As Long, p As Long Dim Kname As String Set ws = Sheets("حركة اليوميه") Set sh = Sheets("كارت الصنف") Kname = sh.Range("F2").Value Application.ScreenUpdating = False Arr = ws.Range("D5:O" & ws.Range("F" & Rows.Count).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 3) = Kname Then p = p + 1 For j = 1 To 10 Temp(p, j) = Arr(i, Choose(j, 1, 4, 3, 6, 7, 8, 9, 10, 11, 12)) Next End If Next If p > 0 Then sh.Range("E5").Resize(p, UBound(Temp, 2)).Value = Temp Application.ScreenUpdating = True End Sub