محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 السلام عليكم ورحمة الله ، أرجوا من أستاذة المنتدى الكرام مساعدتي في إكمال هذا البرنامج لدى مشكلة في الكود الذي يوجد في موديل رقم 45 وهو كود الأستاذ الحبيب إلى قلبي حمادة عمر جزاه الله خيرا أريد أن استدعي بيانات الصنف من صفحة card إلى صفحة كشاف الحساب ،،، وجزاكم الله خيرا . mohammed acc.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 أخي الفاضل تفضل ملفك بعد التعديل .. تحياتي mohammed acc.rar رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 أخي الفاضل تفضل ملفك بعد التعديل .. تحياتي شكر الله لك أخي الفاضل على سرعة الرد وعمل المطلوب على أكمل وجه ، لي طلبين اخي الحبيب بدون إثقال على حضرتك ، الأول شرح الإضافات اللي حضرتك أضفتها في الكود ، والثاني هل ممكن أن أستدعي جميع الأصناف كلها من تاريخ إلى تاريخ ، وجزاكم الله الفردوس الأعلى . رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 شكر الله لك أخي الفاضل على سرعة الرد وعمل المطلوب على أكمل وجه ، لي طلبين اخي الحبيب بدون إثقال على حضرتك ، الأول شرح الإضافات اللي حضرتك أضفتها في الكود ، والثاني هل ممكن أن أستدعي جميع الأصناف كلها من تاريخ إلى تاريخ ، وجزاكم الله الفردوس الأعلى . أخى الفاضل تم تعديل ملفك مرة اخرى اولا لجعل القائمة المنسدلة بدون تكرار أو فراغات .. ثانيا اذا اردت جميع الاصناف من الى ... فاحذف فقط القيمة في الخلية e1 بالوقوف عليها ثم delete واضغط استعراض الصنف .. سيتجاهل شرط الاسم وسيعمل على التاريخ فقط شاكر لدعوتك الكريمة فهي بالدنيا وما فيها .. جمعنا الله واياك "إِخْوَاناً عَلَى سُرُرٍ مُّتَقَابِلِينَ " .... اللهم آمين واعذرنى ضيق الوقت لا يسمح بالشرح ... ان شاء الله لو هناك وقت لن أتأخر تحياتي mohammed acc.rar رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 جزاكم الله خيرا الجزاك فمن لم يشكر الناس لا يشكر الله ، و لاحرمني الله من الاستفادة منك ، سلمك الله من كل مكروه وسوء ، أخي الحبيب . 1 رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 أخي الحبيب ابن مصر ( إن تيسر لحضرتك ) هل ممكن أن أتي برصيد أول المدة قبل التاريخ المذكور بمعني لو استدعيت رصيد صنف من 1/1/2014 إلى 30/1/2014 هل ممكن ان يأتي إلى برصيد الصنف في 31/12/2013 ؟؟؟ رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 أخي الحبيب ابن مصر ( إن تيسر لحضرتك ) هل ممكن أن أتي برصيد أول المدة قبل التاريخ المذكور بمعني لو استدعيت رصيد صنف من 1/1/2014 إلى 30/1/2014 هل ممكن ان يأتي إلى برصيد الصنف في 31/12/2013 ؟؟؟ اعذرنى اخى معلش انا مش محاسب فخدنى على قد فهمى .. هو رصيد الصنف اللى في 31/12/2013 .. موجود في اى شيت ام له عملية حسابية .. وما هى وضحلى بس ازاى بتعرفه يدوي بمثال .. وان شاء الله يصير خير تحياتي رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 أخي الحبيب ابن مصر ( إن تيسر لحضرتك ) هل ممكن أن أتي برصيد أول المدة قبل التاريخ المذكور بمعني لو استدعيت رصيد صنف من 1/1/2014 إلى 30/1/2014 هل ممكن ان يأتي إلى برصيد الصنف في 31/12/2013 ؟؟؟ اعذرنى اخى معلش انا مش محاسب فخدنى على قد فهمى .. هو رصيد الصنف اللى في 31/12/2013 .. موجود في اى شيت ام له عملية حسابية .. وما هى وضحلى بس ازاى بتعرفه يدوي بمثال .. وان شاء الله يصير خير تحياتي شكرا جزيلا أخي الحبيب على سرعة إجابتك على وجعلك الله دائما عونا لإخوانك على الخير ،، مطلوبي أخي الحبيب في المرفق mohammed acc15-12-2014.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 اخى الكريم بعد اذن ابن مصر الغالى جرب المعادله الاتية بالخليه (i7) =SUMIFS(card!G4:G10000;card!D4:D10000;E1;card!B4:B10000;"<"&E3)-(SUMIFS(card!H4:H10000;card!D4:D10000;E1;card!B4:B10000;"<"&E3)+SUMIFS(card!I4:I10000;card!D4:D10000;E1;card!B4:B10000;"<"&E3)) مرفق ملفك تقبل تحياتى mohammed acc15-12-2014.zip رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 أخى الفاضل حل سريع ومؤقت ولكنه ليس الحل المثالى .. بس بصراحة عاوز انام ولما لقيتك قاعد حسيت انك منتظر الرد ... وجرب ايضا حل الاستاذ الفاضل حسام عيسي بالمعادلات وما يروق لك اشتغل به تحياتي mohammed acc15-12-2014.rar رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 (معدل) جزاك الله خيرا ، أخي الحبيب حسام عيسى سلمت يمينك تم تعديل ديسمبر 16, 2014 بواسطه حنفضر رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 أخى الفاضل حل سريع ومؤقت ولكنه ليس الحل المثالى .. بس بصراحة عاوز انام ولما لقيتك قاعد حسيت انك منتظر الرد ... وجرب ايضا حل الاستاذ الفاضل حسام عيسي بالمعادلات وما يروق لك اشتغل به تحياتي ما شاء الله ، جزاك الله الفردوس الأعلى أخي الحبيب ، هذا هو الحل الأمثل بالنسبة لي ، وأسف جدا أثقلت عليك رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 بعد مراجعتي أخي الكريم ابن مصر للتعديل جيدا ، تم اكتشاف الأتي يتم احتساب رصيد أول المدة لغير الصنف المطلوب و وتوقف استدعاء الاصناف كلها في حالة حذف اسم الصنف من تاريخ إلى تاريخ . نوماً هنيئاً . رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 اخى الكريم جرب المرفق ان شاء الله هو المطلوب تقبل تحياتى هذا هو الكود اذا حابب تعرف ازاى اتعمل Sub كشف_حساب() If [e1] = "" Then MsgBox "الرجاء ادخال اسم الصنف اولاً": Exit Sub If [e3] = "" Or [g3] = "" Then MsgBox "الرجاء اختيار الفترة المطلوبه": Exit Sub Dim mo As String Dim Lr As Long, i As Long Dim r As Integer Dim d1 As Double, d2 As Double mo = Range("e1").Value d1 = Range("e3").Value2 d2 = Range("g3").Value2 Range("c8:i100000").ClearContents Application.ScreenUpdating = False With Sheet27 Lr = .Cells(.Rows.Count, "d").End(xlUp).Row For i = 4 To Lr If mo = CStr(.Cells(i, "d")) Then Select Case .Cells(i, "b").Value2 Case d1 To d2 r = r + 1 Cells(r + 7, "b").Value = r Cells(r + 7, "c").Value = .Cells(i, "b") Cells(r + 7, "d").Value = .Cells(i, "f") Cells(r + 7, "e").Value = .Cells(i, "e") Cells(r + 7, "f").Resize(1, 3).Value = .Cells(i, "g").Resize(1, 3).Value Cells(r + 7, "i").Value = "=(R[-1]C+RC[-3])-(RC[-2]+RC[-1])" End Select End If Next End With End Sub mohammed acc15-12-2014.zip رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 اخى الكريم جرب المرفق ان شاء الله هو المطلوب تقبل تحياتى هذا هو الكود اذا حابب تعرف ازاى اتعمل Sub كشف_حساب() If [e1] = "" Then MsgBox "الرجاء ادخال اسم الصنف اولاً": Exit Sub If [e3] = "" Or [g3] = "" Then MsgBox "الرجاء اختيار الفترة المطلوبه": Exit Sub Dim mo As String Dim Lr As Long, i As Long Dim r As Integer Dim d1 As Double, d2 As Double mo = Range("e1").Value d1 = Range("e3").Value2 d2 = Range("g3").Value2 Range("c8:i100000").ClearContents Application.ScreenUpdating = False With Sheet27 Lr = .Cells(.Rows.Count, "d").End(xlUp).Row For i = 4 To Lr If mo = CStr(.Cells(i, "d")) Then Select Case .Cells(i, "b").Value2 Case d1 To d2 r = r + 1 Cells(r + 7, "b").Value = r Cells(r + 7, "c").Value = .Cells(i, "b") Cells(r + 7, "d").Value = .Cells(i, "f") Cells(r + 7, "e").Value = .Cells(i, "e") Cells(r + 7, "f").Resize(1, 3).Value = .Cells(i, "g").Resize(1, 3).Value Cells(r + 7, "i").Value = "=(R[-1]C+RC[-3])-(RC[-2]+RC[-1])" End Select End If Next End With End Sub تسلم أخي الكريم حسام زادك الله علما وفضلا ، و جزاكم الله خير الجزاء على اهتمامك بمطلوبي ، لي طلب اخي الحبيب لو أردت ان استدعي الأصناف كلها مرة واحدة من تاريخ إلى تاريخ رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 اخى الكريم انا تحت امرك انت قصدك ميزان مراجعه اصناف صح طيب فى شيت مصمم لذالك ولا لاء لو فيه ايه اسمه ولو مفيش صمم شيت بالشكل اللى انتى عايزه وانا اعمل الكود تقبل تحياتى والشكر موصول لابن مصر الغالى رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 اخى الكريم انا تحت امرك انت قصدك ميزان مراجعه اصناف صح طيب فى شيت مصمم لذالك ولا لاء لو فيه ايه اسمه ولو مفيش صمم شيت بالشكل اللى انتى عايزه وانا اعمل الكود تقبل تحياتى والشكر موصول لابن مصر الغالى أحسنت أخي الكريم ، أريد ان اكمل برنامج حسابات متكامل إن شاء الله ، صفحة CARD هي صفحة تجميع الداتا عندي ومهما يتم استجلاب التقارير أنا أريد ميزان مراجعة للاصناف من تاريخ إلى تاريخ وحضرتك عملت لي هذا المطلوب مطلوبي هو استدعاء الداتا من صفحة CARD إلى صفحة كشف الحساب ما ينقصي فقط هو استدعاء الأصناف كلها مرة واحدة من تاريخ إلى تاريخ ، ارجوا ان أكون قد أوضحت لحضرتك ، وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 استاذى الفاضل انا عارف قصدك انتى عايز ميزان مراجعه اصناف تقرير بجميع الاصناف بين تاريخين انا سالتك انت مخصص لها صفحه ولا لاء لو فيه صفحه مصممه لذالك قولى اسمها واعمل الكود عليها ولو مفيش صمم شكل الجدول بتاع التقرير للاصناف كلها وانا اعمل لك الكود لى رجاء من حضرتك مدام هو برنامج اهتم بالتنسيق والشكل شويه الملف انا مش عارف منين بيودى فين تحياتى رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 استاذى الفاضل انا عارف قصدك انتى عايز ميزان مراجعه اصناف تقرير بجميع الاصناف بين تاريخين انا سالتك انت مخصص لها صفحه ولا لاء لو فيه صفحه مصممه لذالك قولى اسمها واعمل الكود عليها ولو مفيش صمم شكل الجدول بتاع التقرير للاصناف كلها وانا اعمل لك الكود لى رجاء من حضرتك مدام هو برنامج اهتم بالتنسيق والشكل شويه الملف انا مش عارف منين بيودى فين تحياتى هههههههههههههه ، أخي الكريم المشكلة إن حضرتك عندك إصدار 2003 وأنا 2013 عشان كده منين بيودي على فين ههههههه ، اخي الكريم صفحة الميزان هي كشف الحساب تقبل تحياتي رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 (معدل) عاوز أول ما امسح محتوى الخلية E1 و استدعي البيانات من تاريخ إلى تاريخ يظهر لي بيانات الأصناف كلها في صفحة كشف الحساب تم تعديل ديسمبر 16, 2014 بواسطه حنفضر رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 يا عزيز انا بشتغل على 2007 مش 2003 حضرتك محاسب طيسب ازاى كشف الحساب هو ميزان المراجعه كل تقرير المفروض انه له تصميمه وله صفخه خاصه بيه لمعلومات حضرتك انا محاسب تحياتى 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 عاوز أول ما امسح محتوى الخلية E1 و استدعي البيانات من تاريخ إلى تاريخ يظهر لي بيانات الأصناف كلها في صفحة كشف الحساب دا كلام محاسبيا غلط رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 (معدل) أرجوا أن تتحملني أستاذي الفاضل حسام ، البرنامج مُنسق بشكل جيد على 2013 ، أنا أريد كارت صنف للأصناف رصيد أول و الحركات كما هو في شيت كشف الحساب دعك من ميزان المراجعة الان . تقبل تحياتي تم تعديل ديسمبر 16, 2014 بواسطه حنفضر رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 حبيبى انا تحت امرك قدر استطاعتى ووقتى لانى بالدوام ثانيا ممكن اعرف من حضرتك ازاى بضيف صنف جديد او بالأحرا فين شيت اللى فيه الاصناف كلها اللى انتى بتشتغل عليها تحياتى 1 رابط هذا التعليق شارك More sharing options...
محمد عبد المجيد ( أبو حمزة ) قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 حبيبى انا تحت امرك قدر استطاعتى ووقتى لانى بالدوام ثانيا ممكن اعرف من حضرتك ازاى بضيف صنف جديد او بالأحرا فين شيت اللى فيه الاصناف كلها اللى انتى بتشتغل عليها تحياتى شكر الله لك وجعل الفردوس داري ودارك ، شيت أسماء الأصناف CODE3 للعلم أخي الكريم ، أنا محاسب ، وأعلم الفرق بين ميزان المراجعة و كشف الحساب وكارت الصنف ، فمعلش لا تلتفت اوي للمسميات في البرنامج لأني عملتها عشوائية وفي أخر البرنامج مش هتظهر اسماء الشيتات هعمل لينك من انتر فيس البرنامج ، واكرر إعتذاري لإثقالي على حضرتك دمتم بود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.