اسلام سيد

وعليكم السلام ورحمة الله وبركاته (أنت قرة عينى) أسأل الله أن يسعدك بسبب ودون سبب فى الدنيا والاخره فعلا هذا ما اقصده تماما (فكرة سهلا) لم تخطر على بالى من قبل معادلة الرصيد ممتازة وسهلة الفهم معادلة اسم العميل indirect محتاجه دراسة ومدارسه ... اسأل الله أن ييسرها لى و لمن يحتاجها .. اللهم آمين **** جزاك ربى الفردوس الاعلى ***

جزاكم الله خيرا استاذ / جمال ابو محمود لكن ما اقصده هو ترصيد كل سطر ليرحل الى السطر التالى بشرط اسم العميل مبدئيا اى لو فى خاليه مثلا a1 رصيد العميل 1000 ثم دفع فى اليوم التالى 300 يظهر رصيده فى هذا اليوم فى خانه عمود الرصيد 700 عمود ال (J) عمود الرصيد

السلام عليكم جزاكم الله خيرا استاذ / عادل لكن ما اقصده هو ترصيد عمود الرصيد عمود ( J)

السلام عليكم 1- كيف يمكن ترصيد حساب عميل فى حالة وجود اكثر من عميل فى نفس الصفحه ، اى بشرطين ا- اسم العميل ب- اسم المحل 2- ظهور اسم العميل فى حالة الفلتره عليه وهذا نموذج للمطلوب :معادلة الرصيد.rar

السلام عليكم راجع الموضوع التالى http://www.officena.net/ib/index.php?showtopic=39323

للرفع

جزاكم الله خيرا

السلام عليكم استاذ/ احمد اولا : يجب الالتزام بقواعد المنتدى فى تغير اسم الظهور الى اللغه العربيه ثانيا : لماذا لا تحاول انت وتقوم بعمل برنامجك ........ من اراد أن تكون كلمتة من رأسه فلتكون لقمته من فأسه لا تعطينى سمكه لكن علمنى كيف اصطاد ........ ....... ثالثا : هناك هنا على المنتدى معلومات تمكنك من بناء افضل البرامج فمن الممكن ان تستعبن بها بعد الله سبحانه وتعالى على سبيل المثال لا الحصر 1- طريقة عمل شاشة افتتاحيه باسم مستخدم ورقم سرى لاستاذ حماده عمر (ابو سما) http://www.officena....topic=45232&hl= 2- طريقة عمل فورم ادخال وتعديل وترحيل واستعلام لاستاذ حماده عمر http://www.officena....topic=45637&hl= 3- برنامج مخزون وفواتير سامل لاستاذ عمرو http://www.officena....wtopic=43332=

للرفع ، جزاكم الله خيرا

للرفع ، رفع الله قدركم .

السلام عليكم ورحمة الله وبركاته هذة اكواد تم اقتناؤها من هذا المنتدى القيم 1- اريد تعديلها لتشمل قائمة home حيث تقوم بمنع خاصية النسخ والقطع واللصق من خلال الماوس فقط (كليك يمين) 2-اريد كود لتفعيل الماكرو ليتم بصورة اوتماكية جزاكم الله خيرا وبارك فيكم Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "Sorry! Cutting, copying and pasting have been disabled in this workbook!" End Sub

جزاكم الله خير ولكن ماذا نفعل لإيقاف النسخ واللصق فى قائمة home

جزاكم الله خيرا

جزاكم الله خيرا

للرفع ... رفع الله قدركم

لا شى يا استاذ محمود غفر الله لنا ولك نحن لا ننتظر الاجابة بل نبحث حتى يلهمنا الله بها

إذا كنت تسخر من سؤالى فغفر الله لك اخى الكريم اما إذا كنت تعطى لعقولنا برمجه سلبيه ( كمستحيل ) ، فلا يا اخى لابد من حل وهناك حل وعلى اوفيسنا منع اللصق والقص ولكن باستخدام vba http://www.officena.net/ib/index.php?showtopic=35318&hl=%2B%D8%A7%D9%84%D9%82%D8%B5+%2B%D9%88%D8%A7%D9%84%D9%84%D8%B5%D9%82#entry186298

منع القص واللصق فى خلية معينه بها قائمة منسدله بدون استخدام Vba offset - Copy.rar

هل يمكن أن يحدث ذالك باخذ عامل مشترك كاسم العميل مثلا إن كان ممكن فكيف يحدث ذالك ؟؟؟؟؟؟؟؟؟؟؟

للرفع رفع الله قدركم

مثال على البيفوت تيبول البيفوت تيبل.rar مطلوب دمج البيانات فى بيفوت تيبل واحد جزاكم الله خيرا

السلام عليكم هل يمكن دمج بيانات اكثر من شيت فى بيفوت تيبل واحد بمعنى انا لدى شيت اكسيل به بيانات المبيعات التحليليه وشيت اخر في نفس الملف به دفعات العملاء ( التحصيل) اريد انا اعمل تلخيص للبيانات فى بيفوت تيبل واحد بدلا من ان اعمل بيفوت تيبل لكل شيت على حدى لإستخراج كشف حساب العملاء فهل يمكن حدوث ذالك ؟؟؟؟؟؟؟؟

السلام عليكم رحمة الله وبركاته اضم صوتى الى طلب الاستاذ الفاضل /جمال دغيدى على انه يجب فتح محرر الاكواد ما دام الامر ليس فيه معلومات خاصه ولا سريه فلما غلقه !!!!!!!! وعند تطوير البرنامج تصدر الاستاذة ام عبد الله نسخه اخرى (الاصدار الاول - الاصدار الثانى - الاصدار الثالث - وهكذا..............)

جزاكم الله خيرا وبارك فيكم

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