ابو اياد ( الاسيوطى )

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

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

السلام عليكم استاذنا الكبير // حماده باشا حاولت جاهدا ان اعبث بالكود لأنال مرادى ولكنه لم يتحقق تم اضافه عدد 5 شيتات اخرى ما الخطأ فى هذا المرفق ثم اولا - اريد ان ترفق به كود ( رساله ) اجبار المستخدم على تمكين عمل وحدات الماكرو ليس بها إلا اجابه واحده ok فعليه اختيارها مجبرا وان لم يفعل واغلق الرساله تم اغلاق الملف حتى يفتحه مره اخرى وتظهر له الرساله مره اخرى ليضغط ok ثانيا - كود يقوم بمنع المستخدم بحفظ الملف بصيغه اخرى حتى لا يحاول ان يحفظه بصيغه لا تعمل على فعاليه وسريان عمل الكود مثل xlsx. على حد علمى هذه الصيغه لا تعمل معها الاكواد ارجو ان لا اكون ارهقتك تقبل تحياتى يوميه.rar

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

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

ابو حنين انت انسان رائع

استاذنا الكبير // ابو حنين بارك الله فيك ومشكور على تعبك معى وسعه صدرك للوصول الى ما نريد الترحيل تمام يتم بشكل سليم 100% من وجه نظرى بناءا على حاله قاعده البيانات المبالغ ( كانت هناك ملحوظه هى كان يتم ترحيل المبالغ دون توجيهها على اسم حساب ) تم تلافى هذا الخطأ عن طريق وضع شرط اخر لعدم الترحيل وهو ( G6>0 ) تدل على ان هناك مبلغ لم يتم توجيهه على حساب بعينه Sub saad() Application.ScreenUpdating = False Sheets("Entry").Select al = Sheets("Database").[e10000].End(xlUp).Row If [d1] = "" Or [d2] = "" Or [d3] = "" Or [G6] > 0 Then MsgBox "Ãßãá ÇáÈíÇäÇÊ ÃæáÇ" Exit Sub ElseIf Not [c4].Value = [d4].Value Then MsgBox "ÊÃßÏ ãä ÇÏÎÇá ÇáÞíÏ ãÚ ÊæÇÒä ÇáØÑÝíä", vbExclamation, "ÇÏÎÇá ÎÇØÆ" Exit Sub ElseIf Sheets("Database").Range("e" & al).Value = [d2].Value Then MsgBox "ÊÃßÏ ãä ÚÏã ÊßÑÇÑ ÇáÞíÏ", vbExclamation, "ÇÏÎÇá ÎÇØÆ" Exit Sub End If If MsgBox("åá ÊÑíÏ ÊÑÍíá ÇáÈíÇäÇÊ ÇáÍÇáíÉ", vbInformation + vbOKCancel, "ÊÑÍíá") = vbCancel Then Exit Sub With Sheets("Entry") R_C = .Cells(Rows.Count, "C").End(xlUp).Row: R_D = .Cells(Rows.Count, "D").End(xlUp).Row R_E = .Cells(Rows.Count, "E").End(xlUp).Row: R_F = .Cells(Rows.Count, "F").End(xlUp).Row R_Row = Application.WorksheetFunction.Max(R_C, R_D, R_E, R_F) End With With Sheets("Database") Last = .Cells(Rows.Count, "G").End(xlUp).Row + 2 .Range("D" & Last - 1 & ":J" & Last - 1).Interior.ColorIndex = 33 .Rows(Last - 1 & ":" & Last - 1).RowHeight = 7 x = Last For R = 7 To R_Row Sheets("Entry").Range("C" & R).Resize(1, 4).Copy .Range("G" & x).PasteSpecial xlPasteValues: .Range("D" & x) = Sheets("Entry").Range("D1").Value .Range("E" & x) = Sheets("Entry").Range("D2").Value: .Range("F" & x) = Sheets("Entry").Range("D3").Value x = x + 1 Next End With With Sheets("Database") Last1 = .Cells(Rows.Count, "D").End(xlUp).Row .Range("D" & Last1 & ":J" & Last1).Borders.Value = 1 .Range("D" & Last1 & ":J" & Last1).Borders(xlEdgeTop).LineStyle = xlNone .Range("D" & Last1 & ":J" & Last1).Borders(xlEdgeBottom).Weight = xlThick .Range("D" & Last1 & ":J" & Last1).Borders(xlEdgeBottom).ColorIndex = 3 End With With Sheets("Entry") MsgBox "Êã ÊÑÍíá ÈíÇäÇÊ ÇáÓäÏ ÑÞã " & .Range("D2") & " ÈäÌÇÍ", vbInformation, "ÊÑÍíá" .Range("C7:F40") = "" .Range("D1:D3") = "" End With Application.ScreenUpdating = True Application.CutCopyMode = False End Sub ولكن ما رأيته فى شيت قاعده البيانات شىء جديد هو وجود صف فارغ بلون لبنى وخط احمر كفاصل بين القيد والاخر السؤال هنا هل يمكننا ان نكتفى بالخط الاحمر كفاصل ام لا لابد من وجود صف فارغ ايضا الترحيل الان يتم بشكل سليم والحمد لله وان كان وجود هذا الصف الفارغ ضرورى لكى يتم الترحيل بشكل سليم علينا ان نتقبل ( ولكنى كنت اود ان امحو هذا الصف الفارغ ) ارجو العمل على المرفق لآنه اخر تعديل لى بارك الله فيك وتقبل تحياتى سعد عابد 5.rar

السلام عليكم الاستاذه الكبار عباقره المنتدى بارك الله فيكم على تعبكم معى ، ولكن حتى الان لم نصل الى الحل السليم للترحيل استذنا واستاذ الجميع // عبد الله باقشير استاذنا الكبير // ابو حنين اخى العزيز// الفرس ارجو التركيز على المرفق بالمشاركه 38# انتظركم

السلام عليكم عباقره المنتدى الكرام أستذنا الكبير ملك المعادلات // ابو محمود عميدنا الغالى وحبيب الكل المهندس // دغيدى بارك الله فيكم الاخ // farid 17 كما اشار ملك المعادلات من قبل نرجو تغيير اسمك الى العربيه وارجو ارفاق ملف لما تريد او التنويه عنه برابط لم يكفى اسم الموضوع واعتقد انه من توقيعى كارت الصنف الذكى لمحاسب / امين المخزن المحترف ( اصدارة معدلة )

السلام عليكم استاذى الكبير // ابوحنين تم وضع الملف تحت الاختبار فمع تانى قيد تم ادخاله ظهر الخطأ التالى بالملف ارجو بعد فتحه ستجد حاله القيد يمكنك الترحيل فبعد الترحيل ستجد انه تم ترحيل القيد بالخطأ لااعلم لماذا ؟ اعلم انى ارهقتك اعانك الله على طلباتنا ارجو التطبيق على المرفق سعد عابد3.rar

للرفع

السلام عليكم استاذى الكبير // ابو حنين بارك الله فيك على كل هذا التعب ولكن هناك خطأ ارجو ان تقوم حضرتك التطبيق على الملف بالمشاركه 27# وتجرب وترى ما هو الخطأ لم يتم الترحيل فى الاماكن المناسبه ننتظرك ونرجوا من سيادتكم ارفاق الملف بعد التعديل تجنبا لأيه اخطأ اخرى يمكن ان تكون من جانبى تقبل تحياتى وشكرى جزاك الله كل خير

بارك الله فيكم وجعله فى ميزان حسناتكم وفعلا فكره جيده فكره استاذى ( سعد عابد ) ان تكون مجله مطبوعه نتمنى ذلك وفككم الله الى يحبه ويرضاه

اخى العزيز واستاذى // حماده باشا هذا ملف الاستاذ // عبد الله المجرب ( ابو احمد ) جزاه الله كل خير به الاكواد النى اخبرتك عنها بالمشاركه السابقه 8# ولكنى لا اعلم ماهيه كل كود او هل هو الذى يقوم بهذا ( عمل الكود ) لقله خبرتى بالكود ارجو ان ترفق الاكواد بمشاركه ووظيفه كل كود خاصه 1. لا يمكن حفظ الملف بأي صيغة اخرى 2. الملف لا يعمل اذا كان الامان منخفض وتظهر رساله تجبر المستخدم على تدنيه ماكرو لعمل الكود اى ليس بها إلا اختيار واحد وهو ok لتدنيه امان ماكرو لفتح الملف ويعمل الكود واود وضعهم فى ملفى بارك الله فيكم بالنسبه للملف الاخير العمل اكثر من رائع كما قلت قبل ان اراه فعلا رائع ولكن لى طلب بسيط ان يعمل بدون زر اى بمجرد ادخال البيانات يتم حساب الساعات ايضا ماذا اذا كان هناك مثلا 6 شيتات باسماء من 1 الى 6 هل سيعمل عليهم الكود بارك الله فيك انتظرك Abu_Ahmed.rar

up

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

وانا ايضا معى لدى نفس المشكله استاذى عابد http://www.officena.net/ib/index.php?showtopic=52143&view=getnewpost

من قبل مراجع الملف انت انسان رائع وحقا ان اكن لك كل حب وود واحترام وتقدير ولك ترفع القبعه سيدى الفاضل // حماده باشا تقبل تحياتى ولنا لقاء اخر بعد مراجعه الملف عندى كودين اريد تركيبهم عليه 1 - كود يجبر المستخدم على تشغيل ماكرو حتى نضمن عمل وسريان الكود للتاريخ المحدد 2- كود يمنع المستخدم من حفظ الملف بمدى اخر حتى لا يتم حفظ الملف بصيغه لا تحتفظ بأكواد فيجوال بيسك 3- حمايه بيانات الشيت والشيت نفسه من النسخ او تعديل اسم الشيت ( طبعا هذه الخاصيه من اكسل نفسه بدون اكواد ) اراجع الملف وان شاء الله نلتقى وارفق لك الاكواد ( اتذكر انها من اعمال أستاذ // عبد الله المجرب ) اخى حماده باشا لى موضوع اخر بأسم كيف يتم الترحيل بالكود لهذه القيود بشرط لا اعلم لماذا لم يفتح معى هل هناك شئ ما خطأ

ارجو الرد للأفاده انتظرك

up

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

بجد والله ما عارف اقولك ايه حضرتك اكثر احتراما واسف جدا لم ألحظ هذا الرد إلا الان بارك الله فيك اخى الكريم

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

السلام عليكم اخى الفرس اعتقد بعد البحث وجدتك ما تقصده الاخوه عند الترحيل بطريقه الاخ // الفرس يكون عدد المبالغ المدينه 2 هما النقديه والبنك ويتم ترحيلهم بدقه الى قاعده البيانات اما الجزء الخاطئ هو عدد الحسابات الدائنه 3 ولم يتم إلا ترحيل حسابين فقط هما الايرادات والعهد فقط لم يتم ترحيل حساب المبيعات ولا مبلغه الـ 3000 الى قاعده البيانات مشكور على الملاحظه الجيده وان شاء الله نجد حل وتعديل الكود من احد الاعضاء ولكنى سأحاول قدر المستطاع ايضا ( مشكله بسيطه تم حلها ) ان لم يتم توجيه كل المبالغ على الحسابات كان الملف يقوم بالترحيل قمت بأضافه شرط اخر داخل الكود وهو اذا كانت g6 اكبر من او تساوى 1 لن يتم الترحيل هى التى تعنى عدم توجيه المبلغ على حساب بعينه ايها الاخوه ننتظر منكم تعديل الكود لسد الثغره التى اكتشفها اخى الفرس ارجو التنفيذ على المرفق سعد عابد2.rar

السلام عليكم المطلوب بأختصار فى الشيت الاول DATA 1- مطلوب كود يقوم مسح جميع البيانات المدخله فى النطاق الاصفر من الخليه B1 الى الخليه i 2880 بعد تاريخ محدد ليكون 15 / مايو / 2014 ويتم تحديد المده بداخل الكود فقط المطلوب بأختصار فى الشيت الثانى RES 1- مطلوب كود يقوم بعمل المعادلات ويحل محلها ويتوقف بعد تاريخ محدد ليكون 15 / مايو / 2014 ويتم تحديد المده بداخل الكود 2- مطلوب كود يقوم مسح جميع المعادلات المدخله فى النطاق الاصفر من الخليه C8 الى الخليه AA40 بعد تاريخ محدد ليكون 15 / مايو / 2014 ويتم تحديد المده بداخل الكود DATA.rar