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

وعليكم السلام-تفضل لك ما طلبت trait office1.xlsm

السلام عليكم أخي الكريم @AbuuAhmed ارجو التحلي بالمزيد من سعة الصدر ، فالأخوة أعضاء فريق الموقع ممن لديهم الصلاحيات الادارية بالموقع بما فيهم أنا من الصعب أن يتفق الجميع مع ما يرونه الأنسب للصالح العام لم اتابع الموضوع الذي تشير اليه سابقا، و لكن بصفة عامة عندما تجد أنك لا تتفق مع قرار او اجراء اتخذه أحد أفراد فريق الموقع وهذا امر وارد جدا و طبيعي ، ليس الحل هو الانسحاب و انما نلتمس لبعضنا العذر او نتناقش ان لزم الأمر، فان لم نتفق على الطريقة و الاسلوب فبالتاكيد نتفق على الغاية و الهدف، و من الافضل أن نلتمس العذر لبعضنا إن أمكن ذلك حتى لا نهدر الوقت والجهد فيما قد يمكن تجنبه ببعض سعة الصدر. عن نفسي، أتمنى أن تراجع قرارك ، فالانسحاب يحرم الاخرين من الاستفادة من جهدك و يحرمك ايضا من أجر افادة الآخرين

السلام عليكم ورحمة الله وبركاته.. من المعروف ان الواتس اب يسمح لك بارسال 5 رسائل فقط في كل مرة يعني لو كان لدينا 15 شخص نريد ان نرسل له رسالة علينا ان نقوم باعادة توجيه الرسالة 3 مرات كل مرة 5 اشخاص.. قمت بعمل اداة صغيرة في الـ NET. لتقوم بهذه المهمة. صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. Whatsapp-Message-Sender.rar

أستاذ أنا معتذر من المواصلة مع المنتدى ولكن ما هان علي أتركك وأترك هالموضوع بعد الجهد الكبير الذي بذلناه.أستاذ أعتقد أنك تريد للراسبين أن تعود درجاتهم الأصلية قبل درجة الإكمال أي قبل التعديل ، صحيح؟ جرب الآن ، وإن شاء يكون فحصك دقيق ونهائي ويكون تعديلي صحيح ونهائي أيضا. كود توزيع القرار_14.xlsm

تفضل اخي جرب ..ملاحظة لكي يشتغل معك الكود دون مشاكل حاول عدم حدف عمود المبلغ من الملف Private Sub Worksheet_Change(ByVal Target As Range) Dim AncValeur, NouvValeur, Cel, Col Dim rRange Application.ScreenUpdating = False If Not Intersect(Target, Range("C5:C15,F5:F15")) Is Nothing And Target.CountLarge = 1 Then Application.EnableEvents = False NouvValeur = Target Application.Undo AncValeur = Target.Value If AncValeur = "" And NouvValeur <> "" Then Target = NouvValeur Set Cel = Sheets("1").Range("3:3").Find("المبلغ") If Not Cel Is Nothing Then Col = Cel.Column For i = 1 To 12 With Sheets("" & i & "") .Activate .Range(.Cells(3, Col - 2), .Cells(15, Col - 1)).Select Selection.Copy Selection.Insert Shift:=xlToRight Application.CutCopyMode = False .Range(.Cells(3, Col), .Cells(3, Col + 1)).Value = Target End With Next i Sheets("المريا").Select End If End If Application.EnableEvents = True End If End Sub -2ادراج الاعمدة.xlsm

بارك الله فيك استاذ وجزاك الله خيرا

اخي الكريم نبهنا مرارا وتكرارا لا تستخدم خلايا مدمجة ثم كيف تستعلم او تحدف على شيء غير موجود في الاساس ثم ماذا تفعل بالصيغة بالخليةP2 في الورقة2 لان المشكلة منها ، هل هي ضرورية ؟ وهل اذا كان رقم الهوية يحتوي على فراغ يعني الكود لايقوم بشيء؟ عليك بنشر تفاصيل كاملة بدلا من طرح سؤال عشوائي !!!

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

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @qathi تم التعديل ان شاء الله يكون ما تريد Set r = MyDB.OpenRecordset("SELECT InvoiceTT.InvoiceNum, InvoiceTT.ItemId, ItemsT.ItemName, ItemsT.BarcodeReader, InvoiceTT.priceu, ItemsT.PriceS, InvoiceTT.QuantityS, InvoiceTT.sisl, tbl_curr.currNames, tbl_curr.CuCode " & _ "FROM (ItemsT INNER JOIN InvoiceTT ON ItemsT.[ItemID] = InvoiceTT.[ItemId]) LEFT JOIN tbl_curr ON InvoiceTT.CuryID = tbl_curr.currID " & _ "WHERE (((InvoiceTT.InvoiceNum)='" & [Forms]![Run]![K1] & "') AND ((InvoiceTT.sisl)=True));") بالتوفيق mm.rar

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

amarhowari ..انتبه من فضلك فالكود يعمل بكل كفاءة ..بارك الله فيك استاذ ابراهيم ..بعد اذن أستاذنا ابراهيم هذا هو الكود بعد وضعه بالملف وشوف النتيجة بنفسك فهذا يكفى !!!! شيتات.xlsm

يمكنك ذلك بهذه المعادلة =INDEX($C$17:$R$24,MATCH($F$5,$B$17:$B$24,0),MATCH($J$5,$C$15:$R$15,0)) 1اسعار العملات.xlsx

تفضل بالتنسيقات الشرطية 1.xlsx

وعليكم السلام-تفضل هذه المعادلة =IF(AND(C10>=900,C10<=1000),"متميز",IF(AND(C10>=701,C10<=899),"متفوق",IF(C10=700,"مؤهل",IF(C10="محلول","محلول","")))) وهذه معادلة العمود E =IF(C10="محلول","0%",C10/1000) المصنف2 (1).xlsx

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

أحسنت استاذى الكريم وبارك الله فى جهودكم

الحقيقة أني لم أعمل على جداول SQL سابقا وهذا الكود مخصص لفحص اتصال الجداول عندما تكون الجداول أكسس ولكن مفصولة في ملف لوحدها ... وقلت لعله يعمل على جداول SQL .. لذلك أقترح عليكِ بعدما جربتِ طريقة الأخ @حسين العربى أن تطبقي الخطوات التي ذكرها لك .. والرسالة ستكون حسب ظهور البيانات من عدمه ..

بسم الله ما شاء الله وربنا يكرمك على المجهود بس من الممكن انك تبعت رسائل من غير برنامج ملحق او باتش او اى مساعدة خارجية ولا يحتاج مكتبات ويعمل على النسختين 32 , 64 WhatsappMessageSender.accdb قمت بالتعديل على البرنامج الخاص بك لتوضيح الفكره ومن الممكن تجربتها ملحوظة هامة : عند الارسال لأول مره اول مرع على الاطلاق اضغط على زر Alt + Tap ستجد رسالة بها Allow و Not Allow وباعلاها علامه صح امسح الصح من على التشيك بوكس واضغط Allow ولن تظهر ثانيه وسيتم الارسال ورا بعض بدون ادني مشكلة . وبرجاء اخذها سكرين شوت ووضعها بالمشاركات لتعم الفائدة للجميع . ملحوظة اخري : سواء بالطريقة التى تفضلت بوضعها او التى انا قمت بوضعها اذا كان رقم الموبايل جديد او ارضي بياخد باند ولتفادى المشكلة يجب رفع زمن الانتظار بين الرسائل الى 16 ثانية بحد ادني والحد الاقصي لارسال رسائل من اى رقم قديم ان لا تتعدي 45 رسالة بالدقيقة . ملحوظة اخري : غير مشترط وضع اسم الشخص ولكن يجب ان يبدأ رقم الموبايل بكود الدولة .

أولا أشكرك أخي العزيز .. جهود طيبة إن شاء الله .. لكن عندي ثلاث ملاحظات .. الأولى : برنامج الواتسأب يقف عند كتابة الرسالة ولا يقوم بعملية الإرسال : ثانيا : مربع البحث لايعمل ثالثا : أنا أعمل على نواة 64 بت فاضررت لإضافة PtrSafe على هذه الجمل : Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare PtrSafe Function CreateProcessA Lib "kernel32" (ByVal _ lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ lpStartupInfo As STARTUPINFO, lpProcessInformation As _ PROCESS_INFORMATION) As Long Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal _ hObject As Long) As Long

اهلا وسهلا بك فو منتدانا الكريم من الأفضل ان ترسل ملف أولا وتشرح فيه ما تريد بارك الله فيك

أهلا ومرحبا بك اخى الكريم فى منتدانا الكبير من الأفضل أن ترسل ملف وتشرح فيه ما تريد ممكن تتبع هذا الفيديو فهو لحذف جميع محتويات الخلايا ماعدا المعادلات ,الإبقاء عليها وهذا ملف أخر به كود يقوم بمسح محتويات صف بشرط كتابة رقم الإذن مثلا فى الخلية A1 فى صفحة Sheet 1 ثم الضغط على ابحث وامسح وأيضا اتبع هذا الموقع http://et3lmonline.com/2010/08/delete-and-clear-tools-ms-excel/ وهذا كود اخر Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub وهذا أخر Sub sbClearCellsOnlyData() Range("A1:C10").ClearContents End Sub وهذا كود أخير Sub sbClearEntireSheet() Sheets("SheetName").Cells.Clear End Sub بارك الله فيك وجزيت خيرا كود حذف محتويات صف بشرط.xls

جرب ذلك قيمة الكابينة.xlsm

وعليكم السلام أخى ..تفضل المعادلة -وشيت به تطبيق المعادلة =IF(ISBLANK(B2),"",SUBTOTAL(3,B$2:B2)) تسلسل الصفوف وتجاهل الصفوف المختفية في التسلسل.xlsx

وممكن تجرب هذا بالمعادلات مقارنة بيانات.xlsm

تفضل أخى تحويل المعادلة الى كود(1).xlsm

شكرا لأستاذنا ابو عيد ولإثراء الموضوع تحويل المعادلة الى كود.xlsm

الحمد لله الذي بنعمته تتم الصالحات جزيت خيرا أخي على موضوعك الذي أثرى المكتبة لدينا بشيء جديد لا حرمنا الله من جديدك أيها المكتشف يشرفنا وجودك بيننا بالمنتدى ..تقبل تحياتي

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