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

موعدنا اليوم مع تطبيق ضمن سلسلة ما خف وزنه وغلا ثمنه لأحبابي أعضاء وزوار منتدى أوفيسنا تطبيق يساعدك في إنشاء رسائل msgbox بصورة احترافية فقط اختر الأزرار والعنوان ونص الرسالة والأيقونة وباقي الخيارات ثم اضغط على زر تجربة لمشاهدة كود الرسالة ثم قم بنسخ الكود لبرنامجك ويمكنك استخدام الثوابت والقيم في كتابة الكود وفي الأخير لا ينقصني سوى دعاؤكم msgboxbuilder.rar

عليكم السلام عسى رصيد لكل مادة حسب المخزن.xlsx

تم اكمال المثال حسب الأمر بالتسلسل واكتفيت بالصور والمستندات فقط آمل من اخواني التجربة وارسال مرفق لأكثر من شخص ، والافادة بالنتيجة لتفادي المشكلات ان وجدت واعتماده كما اطلب من اخوتي الخبراء فحص الزمن ( sleep) وضبطه ان لزم حتى تظهر عملية الارسال انسيابية محكمة .. لانه حاليا ومن مشاهدتي يوجد تفاوت في السرعة والبطء خلال تنقل الأمر sendwatsWeb2.mdb

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

نعم يوجد مشكلة ... قوقل درايف للاسف لا يدعم العمل المباشر فقط يمكنك مزامنة قاعدة بياناتك الموجودة على الحاسب مع القاعدة المحفوظة على درايف

تفضل و عند اختيار اسم الموظف AVI.rar

تفضل هنا يتم تحويل التقرير الى ملف pdf ويتم ارساله sendwatsWeb3.rar

لا ترفع ملف اخر قم بتنزيل الملف الذي تم ارفاقه في مشاركتى وشوف النتائج

الحمد لله

تم الامر اخي بارك الله فيك اصبح كذلك SELECT tblExpenses.flatNo FROM tblExpenses GROUP BY tblExpenses.flatNo, IIf(Mid([flatNo],3,2)="00",1,0) HAVING (((tblExpenses.flatNo) Not Like "1308" And (tblExpenses.flatNo) Not Like "1307") AND ((IIf(Mid([flatNo],3,2)="00",1,0))<>1));

اضغط على المربع الصغير فى اخر مصدر الصف وفى معيار الشقة ضيف Not "1308" and Like "1307"

من مربع التحرير والسرد ( البحث)

لم يعطي رسائل خطأ ولكنهم ما زالو ظاهرين

اخي الفاضل للاسف اعطاني تلك الرسالة

جرب تغيير الفاصلة من , الى ; Not In(1308; 1307; 1302) بالتوفيق

حسب الصورة عسى Sub Test() Dim i& For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, 1).Interior.Color = vbYellow Then Cells(Range("B" & Rows.Count).End(xlUp).Row + 1, 2).Value = Cells(i, 1).Value Next End Sub Book1.xlsm

بارك الله

السلام عليكم ورحمة الله تعالى وبركاته اعتذر عن التأخير انشاء الله اليكم المرفق المبدئى يعمل بنجاح ولى عودة قريبا QRByColor.zip

أهلا بكم.. للمراسلة في بيئة مشتركة؛ يجب أن يأسس لهذه المراسلات جدول بيانات يوضع في قاعدة البيانات الخلفية. هذا أمر متعارف عليه ولا جدال فيه. لكن يبقى السؤال كيف نصل إلى معرف المرسل إليه؟ وكيف نشعره بوجود رسائل تخصه؟ من أسهل الطرق للوصول إلى معرف منضبط للمرسل والمرسل إليه: هو استخدام معرف ويندوز.. يمكن الوصول إلى هذا المعرف في أكسس باستخدم التابع ()Environ. بهذه الطريقة Public Function UserName() UserName = Environ("UserName") End Function وإرسال الرسائل واستقبالها بحاجة إلى ثلاثة عناصر... جدول البيانات.. نموذج معالجة الرسائل.. وأيضا نموذج عرض الرسائل.. مما يجب التنبيه عليه هو أن نموذج عرض الرسائل يجب أن يُفتح في وضع (التخفي) مباشرة مع النموذج الرئيسي سيقوم نموذج عرض الرسائل في حدث المؤقت بالبحث عن أخر سجل أرسل للمرسل إليه ولم يقم بتأكيد استلامة.. (وذلك كل نصف دقيقة) فإذا وجد سجلا مطابقا للشرط تقوم الشفرة بإنشاء نسخة مماثل لنموذج العرض بالسجل الأخير مع التنبه، عند المصادقة يتم إغلاقه. وإذا أرسلت رسالة أخرى قبل المصادقة، فسوف تظهر الأخيرة في نموذج عرض أخر.. ** هناك مسائل فنية في تكوين الشفرة سوف أناقشها مع الزملاء إن شاء الله.. لتجربة المثال المرفق.. جعلت نموذج معالجة الرسائل هو النموج الرئيسي وستلاحظ أن معرفك في ويندوز ظهر تلقائيا في حقل [Sender ID] قم بفتح كلتا القاعدتين المخصصة للواجهة الأمامية في آن واحد، ومن ثم قم بإعادة ربط جدول البيانات فيهما.. قم بفتح النموذج الرئسي (نموذج معالجة الرسائل) في كلا القاعدتين، ومن ثم قم بإرسالة رسالة لمعرفك (أدخل معرفك في حقل [Receiver ID]) من أحد القاعدتين ستلاحظ أن نموذج عرض الرسائل ظهر في كلا القاعدتين وذلك لأن معرف المرسل والمرسل إليه واحد.. أدخل رسالة أخرى من القاعدة الثانية ولاتنس إدخال معرف المرسل إليه (معرفك) ستلاحظ أن الرسالة ظهرت أيضا في كلا القاعدتين.. تنبيه.. عند تأكيد الرسالة اللاحقة قبل السابقة سوف تقوم الشفرة بإعادة فتح الرسالة السابقة بإعتبارها آخر سجل وفق الشروط أعلاه... هذا العيب يمكن إصلاحه بمساعدة الزملاء.. .. آمل أن تحوز هذه المشار على رضاكم.. !! أعمل على Office-64 Messanger.zip

الملف المرفق لي المشاركه يحل المشكله من الواضح انك لم تتطلع عليه

الصفحه المسماه Control مكتوب فيها اسماء الدخول والأرقام السريه ومكتوب فيها أيضا صلاحيات المستخدمين المشكله عندك ليست في الكود المشكله في الصلاحيات

good work thanks very mach dear

شكرا لك اخي ممنون لطفك

Try this code Sub Test() Dim wk As Worksheet, sh As Worksheet, ws As Worksheet, lr As Long Set wk = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) Set ws = CopyWorksheet(wk.Name, wk.Range("B5").Value) Application.ScreenUpdating = False With sh lr = .Cells(Rows.Count, "J").End(xlUp).Row + 1 .Range("B" & lr).Resize(, 5).Value = wk.Range("B5").Resize(, 5).Value .Range("I" & lr).Resize(, 3).Value = Array(wk.Range("D13").Value, wk.Range("D23").Value, wk.Range("D30").Value) .Range("L" & lr).Formula = "=SUM(I" & lr & ":K" & lr & ")" .Range("N" & lr).Value = wk.Range("F41").Value Application.Goto .Range("A1") End With Application.ScreenUpdating = True End Sub Function CopyWorksheet(ByVal sheetName As String, ByVal newName As String) As Worksheet Application.ScreenUpdating = False On Error Resume Next Application.DisplayAlerts = False ThisWorkbook.Worksheets(newName).Delete Application.DisplayAlerts = True On Error GoTo 0 ThisWorkbook.Worksheets(sheetName).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ActiveSheet.Name = newName Set CopyWorksheet = ActiveSheet Application.ScreenUpdating = True End Function

بارك الله فيك اخي تم الامر

وعليكم السلام ورحمه الله وبركاته تفضل اخي Prodaction2.xlsm

اخي الكريم @ابو عبد الرحمن اشرف عند طلب مساعدة ارفع مرفق مصغر يحتوي البيانات المطلوب التعديل عليه

جرب هذا اخي متابعة7.xlsm

In worksheet module paste the following code Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Row > 4 And Target.Column = 1 Then x = Application.Match(Target.Value, Sheets(2).Columns(1), 0) If Not IsError(x) Then Target.Offset(, 1).Value = Sheets(2).Cells(x, 2).Value End If End If End Sub

السلام عليكم homam.xlsm

تفضل أستاذ @iyad mohamad طلبك كامل لكل مستخدم لابد يكون عنده نموذجان . النموذج (frm_MessageAllUsers) للكل للتنبيه فقط أو ماسج لكل المستخدمين .........أما النماذج frm_MessageUsers1) 1,2,3,4,5) لكل مستخدم نموذجه فقط لتنبيه المستخدم فقط أو ماسج . جرب ووافني بالرد . attention-1.rar

تبشر بالجنة ان شاء الله وبارك الله فيك وفي كل الاخوة في المنتدى

هذا مثل القمر .... بل هو البدر

تفضل اخي ميزانية -اكسل-2023-.rar

اسف للخطأ هذا الملف المقصود الارقام معكوسة salim.rar

تم التعديل كي يكون الامر ديناميكياً مطلوب بحث عن رقم الخلية salim معدل.rar

بارك الله لك أخي الكريم محمد يحياوي رابع زر في الرسالة هو زر التعليمات (help) إذا تم تضمينه مع رسالة بها 3 أزرار

اتفضل Not Like "1308" and Not Like "1307" or Not "1308" And Not "1307"