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

وعليكم السلام اهلا بك .... حسب ما فهمت من سؤالك انك تريد ارسال كل محتويات المجلد عند ارسال الرسالة .... صحيح .... اذا كان ذلك هو مطلبك ... جرب هذه الشيفرة ...واعلمنا بالنتيجة بارك الله فيك ...... ملاحظة عدل فترات الانتظار حسب سرعة جهازك ... Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "mobile no" & "&text=" & "hello" Sleep 3000 Call SendKeys("~", True) Sleep 1000 SendKeys "+{TAB}" Call SendKeys("~", True) Sleep 1000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" Call SendKeys("~", True) Sleep 2000 SendKeys [CurrentProject].[Path] & "\PDF" Call SendKeys("{Enter}", True) Sleep 2000 SendKeys "+{TAB}" SendKeys "^a" Sleep 2000 Call SendKeys("{Enter}", True) Call SendKeys("{Enter}", True) Sleep 5000 Call SendKeys("{Enter}", True) Set IE = Nothing

وعليكم السلام ورحمة الله وبركاته .... طيب في اعلا الصفحة ضع هذا ..... Option Compare Database #If VBA7 Then Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long #Else Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long #End If ثم في حدث عند التركيز على مربع النص العربي ضع هذا ..... On Error Resume Next Dim kbd As Long kbd = GetKeyboardLayout(0) kbd = Hex(kbd) If Right(kbd, 1) <> 1 Then SendKeys "%+" End If

تفضل اخي الكريم Sub ترحيل() Application.ScreenUpdating = False For L = 10 To Range("X65500").End(xlUp).Row MH = Cells(L, "X") If FeuilleExiste(MH) = False And MH <> "" Then MsgBox "المرجوا التحقق من وجود اوراق الوكلاء " Exit Sub End If ' افراغ Sheets(MH).Range("B10:P1000").ClearContents Next L For L = 10 To Range("X65500").End(xlUp).Row MH = Cells(L, "X") With Sheets(MH) DL = .Range("B65500").End(xlUp).Row If DL = 8 Then DL = 9 'نبدا من الصف 10 DL = DL + 1 .Cells(DL, "B") = Cells(L, "N") 'التاريخ .Cells(DL, "D") = Cells(L, "P") 'الوزن (طن ) .Cells(DL, "F") = Cells(L, "R") 'السعر .Cells(DL, "H") = Cells(L, "T") 'المبلغ .Cells(DL, "J") = Cells(L, "V") 'المجهز .Cells(DL, "L") = Cells(L, "Z") 'اجور النقل .Cells(DL, "N") = Cells(L, "AB") 'السماح .Cells(DL, "P") = Cells(L, "AD") 'الفرق End With Next L End Sub Function FeuilleExiste(FeuilleAVerifier) Dim Feuille As Worksheet FeuilleExiste = False For Each Feuille In Worksheets If UCase(Feuille.Name) = UCase(FeuilleAVerifier) Then FeuilleExiste = True Exit Function End If Next Feuille Exit Function SiErreur: MsgBox "Une erreur s'est MHe..." FeuilleExiste = CVErr(xlErrNA) End Function اضافة ورقة جديدة باسم وكيل جديد وتسميتها وفقا للتسلسل الموجود على الملف Sub انشاء_ورقةجديدة_MH() Dim Ind As Integer Dim FlgExist As Boolean, Test As String Application.ScreenUpdating = False Feuil2.Copy After:=Sheets(Sheets.Count) Ind = 1 Do On Error Resume Next Test = Sheets("وكيل" & Ind).Range("A1").Value If Err.Number = 0 Then FlgExist = True: Ind = Ind + 1 Else FlgExist = False Loop While FlgExist On Error GoTo 0 ActiveSheet.Name = "وكيل" & Ind Range("B10:P1000").ClearContents Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng.HasFormula Then rng.Formula = rng.Value End If Next rng Feuil1.Select Application.ScreenUpdating = True End Sub sample_MH.xlsm

ولكن كله نفس التاريخ ، لماذا تحتاج الى تحديد تاريخ ؟ احرص على ان كل الارقام تحتوي على Bytes ..جرب هذه المعادلة C50 =SUMPRODUCT(SUBSTITUTE("0"&C2:C49,"Bytes","")+0) & "Bytes"

@خالد الشيخ لا فائدة من ان تنشر كود ناقص . اجدر بك انك وضعت ملفات ووضعت النتائج الذي ترجوها بدلا من وضع كلام عامي لا احد سينظر اليه . هناك فرق كبير في استيراد البيانات . بناء على طلبك هذا يعني ستقوم باستيراد كامل بيانات الورقة في هذه الحالة لا اجد اي داعي لماكرو فقط تقوم بحفظ الشيت على هيئة ملف جديد اذا كان الملف يحتوي على شيت واحد اما اذاكنت فقط تريد استيراد بيانات لمدى محدد وشيت محدد وشرط محدد فهذا موضوع مختلف تماما عملية استيراد البيانات تحتاج الى تفاصيل دقيقة وليس في كل مرة تضيف تفصيل جديد حتى يعلم ما تريد . لذا لا اعتقد ان احد سيخوض في مواضيع تقاصيلها شحيحة للغاية . تذكر دائما قبل ان تنشر موضوع وجب عليك وضع تفاصيل كاملة وغير ناقصة حتى تحصل على فرصة اكبر للمساعدة تحياتي .

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

أيوه .. هل المطلوب منى أن أضعه بملف ؟!!! أم هذا مطلوب منك انت.. وانت من تريد هذا فلا يمكن المساعدة بدون رفع الملف ووضع به الكود وشرح ما تريده بالضبط ؟!!!

حضرتك الدالة عندما تم انشائها كان المطلوب وقتها استخراج الرصيد اعتبارا من بداية السنة المالية حتي تاريخ الاستعلام - حسب فهمي وقتها - وبناءا عليه فكون النتيجة تظهر بهذا الشكل امر منطقي وليس خطأ علي - حسب زعمي - وعلي كل جميل بهذه الصورة اتضح المقال هل ترغب بجلب الرصيد التراكمي لكل السنوات المالية قبل تاريخ بداية الاستعلام وليس السنة المالية الحالية فقط، اليس كذلك؟ ان كانت الاجابة بنعم فسأعمل لك التعديل اللازم ولكن اعذرني سيكون هذا بالغدد ان شاء الله وان كانت الاجابة لا - وارجو الا تكون كذلك - فاسأكمل ايضا غدا ان شاء الله استفساراتي حتي نصل الي النتيجة المطلوبة ان شاء الله

اعزك الله استاذى أبو عبدالله الحلوانى ارفقت القاعدة بالشرح للتسهيل هنا اختارنا تاريخ من 1/7/2021 حتى 30/6/2022 الحساب اجل انظر استاذى هذا اول سجل الرصيد السابق هنا سيكون 0 لانه لايوجد لهذا الحساب قبل تاريخ 1/7/2021 اى بيانات ثم غيرنا التاريخ الى 1/8/2021 حتى 30/6/2022 انظر اخى الى السنة المالية هى 2022 واخترت رصيد سابق التجميع على مستوى الحساب الرصيد السابق صحيح 222 تمام ولمعرفة اجمالى رصيد حساب اجل فى تاريخ من1/7/2021 حتى 30/6/2022 وجدناه 555 هنا غيرنا التاريخ الى1/7/2022 حتى30/6/2022 انظر السنة المالية اخى اصبحت 2023 تمام سنة مالية جديدة وعملنا استدعاء لنفس التقرير هنا المشكلة انظر اخى الرصيد السابق 0 المفروض يكون 555 اكرمك الله عز وجل T3Q - Copy.accdb

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

السلام عليكم اولا - دعنا نتفق علي اتفاق ان كان هذا بالامكان وحتي لا يتشعب الامر وتطول بنا فترة عرض الموضوع بدون الوصول الي نتيجة مرضية سأكون متواجد ان شاء الله خلال الثلاثة ايام المقبلة واعتبارا من اليوم ان شاء الله خلال الفترة من 8 م وحتي 10 م بتوقيت القاهرة - فأرجو ان تتواجد معي خلال نفس الفترة حتي يسهل بيننا التواصل ولا تكون الردود متباعدة ثانيا- واعذرني فقد حاولت ان افهم مثال حضرتك المتقدم بالرد السابق ولم استطع ذلك بشكل واضح هل تكرمت علي بتصميم شكل التقرير المطلوب حتي ولو علي شيت اكسل بالتوريخ والأرقام حتي تكون الصورة واضحة بشكل كافي - فكما تعلم ان الاجابة فرع عن فهم السؤال - وبعد هذه صورة من تقرير نوع الحسابات بدون الاعتداد بتاريخ السنة المالية اي هذه الأعمدة الذي سيتأثر بالرصيد السابق وفقا لتصور حضرتك اعطنا مثالا مصورا ان امكن - وهل هذا النموذج موافق لمطلبك ام تريد عرض تاريخ المعاملة امام انواع الحسابات وجزاكم الله عني خيرا لصبركم علي

أخي العزيز @محمد احمد لطفى أعتذر منك عن عمل التعديل المطلوب لارتباطي بعدة مشاريع أخرى 🙂 وأترك المجال للإخوة الأعزاء لنرى إبداعاتهم 😅✌🏼️

تفضل كان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك , فطلبك تكرر كثيراً ..واليك الحل مشكلة في اللغة العربية

أخى الكريم بخصوص تصميم الجداول، بيتم عمل جدول للأصناف يتكون من كود الصنف واسم الصنف هذا الجدول هو الوحيد الذى يحتوى على اسم الصنف، باقى الجداول المرتبطة به تأخذ كود الصنف فقط مثال: 1- إنشاء جدول باسم الأصناف يتكون من حقل كود الصنف (رقم) واسم الصنف (نص). 2- جدول المبيعات بالإضافة لحقولة يتم إضافة حقل الصنف (رقم) ويتم ربط هذا الحقل بحقل كود الصنف فى جدول الأصناف. عندما تريد إظهار اسم الصنف فى تقرير يتم الاستعانة بحقل اسم الصنف بدلاً من كود الصنف وبهذه الطريقة لن تحتاج إلى تغيير اسم الصنف إلا مره واحدة فى جدول الأصناف وسيتم التغيير فى جميع الجداول المرتبطة بهذا الجدول

الف شكر استاذي الفاضل طريقة الكود اللي حضرتك ارسلته اشتغل تمام واسف لو كنت اخطأت في سرد المطلوب بالضبط الف شكر مرة اخرى على المساعدة

ولماذا لا تقول ما هي مشكلتك ، هل يوجد خطأ ام لا يظهر شيء؟ ولماذا لا تشرح الية عمل برنامج البحث يتم عن اي عمود , هل علينا ان ندخل داخل البرنامج ونراجع سطر بسطر حتى نعلم كيف يعلم البرنامج؟ تذكر دائما نشر التفاصيل كاملة لموضوعك تجعل فرصة اجابة الاعضاء لك كبيرة جدا . معظم المواضيع ينشر صاحبه موضوع دون ان يتعب نقسه بوضع تفاصيل فقط يريد اجابة بدون اي تعب لذا ارى العديد من المواضيع مثل هذا الموضوع دون ان اقدم له المساعدة ان استطعت . لا ادري اذا كنت تتحدث عن خطا في هذا السطر وهو ما ظهرلي في هذا السطر isearch = Worksheets("sheet4").Range("a1").CurrentRegion.Rows.Count عندما تريد ان تشير الى اسم الصفحة اما ان تستخدم Worksheets("sheet4") او sheet4 على حسب التسمية الموجودة حيث كل طريقة بها اسم مختلف يمكن ان تلاحظه من داخل محرر الاكواد وانت في كودك اشرت الى sheet4 باستثناء السطر الذي به الخطا ، حينها تغير الى هذا isearch = sheet4.Range("a1").CurrentRegion.Rows.Count

وعليكم السلام-تفضل لا يمكن ذلك الى بكود بوضعه فى حدث ThisWorkBook Private Sub Workbook_Open() Sheet2.Select End Sub الشهادات المدرسية للقدامى للسنوات السابقة.xlsm

وعليكم السلام أخي كان لا بد أن تتقدم منذ البداية بملف به جميع الملاحظات والنتائج المفترضة وبشكل مختصر وعلى شكل خطوات وليس بشكل انشائي، حرف "غ" هذا شيئ مستجد ، عملية معالجته ستتطلب دراسة الكود من جديد ، أو إضافات ملحقة تجعل من الكود في وضع ينتقده الآخرون، وكالعادة سترجع بملاحظات جديدة ، هذا الأمر متعب جدا. منذ البداية قلت لك احذف حرف "غ" واترك الخلية فاضية وانتهى الموضوع ، إصرارك بحجة "ننفيذ" التعليمات يرهقك ويرقهنا. على كل ، هناك اجراء لا بد القيام به قبل أن تضغط زر "تنفيذ" وإلا سيحتفظ الملف بأسطر للطلبة التي تم حذف بياناتها، لا بد بعد حذف أي طالب من صفحة المسودة أن تقوم بعملية حفظ للملف ثم الضغط على زر "تنفيذ" سأنفذ بعض الملاحظات وأرجع لك. سؤال آخر: هل مادة الغياب تضاف على مواد الإكمال؟ أم يعتبر راسبا بمجرد غياب الطالب حتى لو في مادة واحدة؟.

جرب الآن كود توزيع القرار_15.xlsm

شكرا احي الاستاذ / محمد لقد استعدت الحساب بفضل توجهات سيادتكم ادامكم الله جزاكم االله خيراً

هذه صورة التعديل استاذي

وعليكم السلام ورحمه الله وبركاته اتفضل اخى احمد بالتوفيق test(6).accdb

وعليكم السلام-وده من خلال Data Validation بإستخدام هذه المعادلة =AND($E2="",$F2="",$G2="") حجب 1الخلايا.xlsx

السلام عليكم و رحمة الله استخدم المعادلة التالية =SUM(E2;E5;E8)/SUM(COUNTIF(INDIRECT({"E2";"E5";"E8"});">0"))

السلام عليكم ورحمه الله وبركاته مشكلتك فى اعدادت لغه النظام فى الويندوز لديك اتبع الشرح التالى للمعرفه قمت بانشاء قاعده بيانات جديده واستيراد جداولك والنموذج ويعمل لدى الان بشكل جيد بالتوفيق البرنامج المحاسبي.accdb

السلام عليكم و رحمة الله اتبع المسار الآتى : File - Options- Advanced Display option for this workbook ضع علامة صح امام Show sheet tabs

السلام عليكم ورحمة الله وبركاته اذا كنت تريد ان يعرض لك الاستعلام البيانات بدون تكرار القيم فمن شاشة تصميم الاستعلام - ومن خصائص الاستعلام حدد الخاصية قيم فريدة الي نعم (uniqe value = yes) كما هو واضح بالصور الثالية: ودمتم تمنياتي بالتوفيق