استدعاء صنف بين تاريخين

[محمد عبد المجيد ( أبو حمزة )]

السلام عليكم ورحمة الله ، أرجوا من أستاذة المنتدى الكرام مساعدتي في إكمال هذا البرنامج لدى مشكلة في الكود الذي يوجد في موديل رقم 45 وهو كود الأستاذ الحبيب إلى قلبي حمادة عمر جزاه الله خيرا أريد أن استدعي بيانات الصنف من صفحة card إلى صفحة كشاف الحساب ،،، وجزاكم الله خيرا .

mohammed acc.rar

[ibn_egypt]

أخي الفاضل

 

تفضل ملفك بعد التعديل ..

 

تحياتي  

mohammed acc.rar

[محمد عبد المجيد ( أبو حمزة )]

أخي الفاضل

 

تفضل ملفك بعد التعديل ..

 

تحياتي  

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

[ibn_egypt]

 

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

 

 

أخى الفاضل

 

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

 

شاكر لدعوتك الكريمة فهي بالدنيا وما فيها .. جمعنا الله واياك "إِخْوَاناً عَلَى سُرُرٍ مُّتَقَابِلِينَ " .... اللهم آمين

 

واعذرنى ضيق الوقت لا يسمح بالشرح ... ان شاء الله لو هناك وقت لن أتأخر

 

تحياتي  

mohammed acc.rar

[محمد عبد المجيد ( أبو حمزة )]

 جزاكم الله خيرا الجزاك فمن لم يشكر الناس لا يشكر الله ، و لاحرمني الله من الاستفادة منك  ، سلمك الله من كل مكروه وسوء ، أخي الحبيب .      

[محمد عبد المجيد ( أبو حمزة )]

أخي الحبيب ابن مصر ( إن تيسر لحضرتك ) هل ممكن أن أتي برصيد أول المدة قبل التاريخ المذكور بمعني لو استدعيت رصيد صنف من 1/1/2014 إلى 30/1/2014 هل ممكن ان يأتي إلى برصيد الصنف في 31/12/2013 ؟؟؟

[ibn_egypt]

أخي الحبيب ابن مصر ( إن تيسر لحضرتك ) هل ممكن أن أتي برصيد أول المدة قبل التاريخ المذكور بمعني لو استدعيت رصيد صنف من 1/1/2014 إلى 30/1/2014 هل ممكن ان يأتي إلى برصيد الصنف في 31/12/2013 ؟؟؟

 

اعذرنى اخى معلش انا مش محاسب فخدنى على قد فهمى .. هو رصيد الصنف اللى في 31/12/2013 .. موجود في اى شيت ام له عملية حسابية .. وما هى

 

وضحلى بس ازاى بتعرفه يدوي بمثال .. وان شاء الله يصير خير

 

تحياتي  

[محمد عبد المجيد ( أبو حمزة )]

 

أخي الحبيب ابن مصر ( إن تيسر لحضرتك ) هل ممكن أن أتي برصيد أول المدة قبل التاريخ المذكور بمعني لو استدعيت رصيد صنف من 1/1/2014 إلى 30/1/2014 هل ممكن ان يأتي إلى برصيد الصنف في 31/12/2013 ؟؟؟

 

اعذرنى اخى معلش انا مش محاسب فخدنى على قد فهمى .. هو رصيد الصنف اللى في 31/12/2013 .. موجود في اى شيت ام له عملية حسابية .. وما هى

 

وضحلى بس ازاى بتعرفه يدوي بمثال .. وان شاء الله يصير خير

 

تحياتي  

 

شكرا جزيلا أخي الحبيب على سرعة إجابتك على وجعلك الله دائما عونا لإخوانك على الخير ،،

 

مطلوبي أخي الحبيب في المرفق

mohammed acc15-12-2014.rar

[الصـقر]

اخى الكريم

بعد اذن ابن مصر الغالى 

جرب المعادله الاتية بالخليه (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

[ibn_egypt]

أخى الفاضل

 

حل سريع ومؤقت ولكنه ليس الحل المثالى .. بس بصراحة عاوز انام ولما لقيتك قاعد حسيت انك منتظر الرد ... 

 

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

 

تحياتي  

mohammed acc15-12-2014.rar

[محمد عبد المجيد ( أبو حمزة )]

جزاك الله خيرا ، أخي الحبيب حسام عيسى سلمت يمينك       

تم تعديل ديسمبر 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

[محمد عبد المجيد ( أبو حمزة )]

 

اخى الكريم

جرب المرفق 

ان شاء الله هو المطلوب

تقبل تحياتى

هذا هو الكود اذا حابب تعرف ازاى اتعمل

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

تسلم أخي الكريم حسام زادك الله علما وفضلا ، و جزاكم الله خير الجزاء على اهتمامك بمطلوبي ، لي طلب اخي الحبيب لو أردت ان استدعي الأصناف كلها مرة واحدة من تاريخ إلى تاريخ          

[الصـقر]

اخى الكريم

انا تحت امرك 

انت قصدك ميزان مراجعه اصناف صح

طيب فى شيت مصمم لذالك ولا لاء لو فيه ايه اسمه 

ولو مفيش صمم شيت بالشكل اللى انتى عايزه وانا اعمل الكود

تقبل تحياتى

والشكر موصول لابن مصر الغالى

[محمد عبد المجيد ( أبو حمزة )]

اخى الكريم

انا تحت امرك 

انت قصدك ميزان مراجعه اصناف صح

طيب فى شيت مصمم لذالك ولا لاء لو فيه ايه اسمه 

ولو مفيش صمم شيت بالشكل اللى انتى عايزه وانا اعمل الكود

تقبل تحياتى

والشكر موصول لابن مصر الغالى

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

[الصـقر]

استاذى الفاضل

انا عارف قصدك انتى عايز ميزان مراجعه اصناف 

تقرير بجميع الاصناف بين تاريخين

انا سالتك انت مخصص لها صفحه ولا لاء لو فيه صفحه مصممه لذالك قولى اسمها واعمل الكود عليها

ولو مفيش صمم شكل الجدول بتاع التقرير للاصناف كلها وانا اعمل لك الكود

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

تحياتى

[محمد عبد المجيد ( أبو حمزة )]

استاذى الفاضل

انا عارف قصدك انتى عايز ميزان مراجعه اصناف 

تقرير بجميع الاصناف بين تاريخين

انا سالتك انت مخصص لها صفحه ولا لاء لو فيه صفحه مصممه لذالك قولى اسمها واعمل الكود عليها

ولو مفيش صمم شكل الجدول بتاع التقرير للاصناف كلها وانا اعمل لك الكود

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

تحياتى

هههههههههههههه ، أخي الكريم المشكلة إن حضرتك عندك إصدار 2003 وأنا 2013 عشان كده منين بيودي على فين ههههههه ، اخي الكريم صفحة الميزان هي كشف الحساب

تقبل تحياتي  

[محمد عبد المجيد ( أبو حمزة )]

عاوز أول ما امسح محتوى الخلية E1 و استدعي البيانات من تاريخ إلى تاريخ يظهر لي بيانات الأصناف كلها في صفحة كشف الحساب 

تم تعديل ديسمبر 16, 2014 بواسطه حنفضر

[الصـقر]

يا عزيز انا بشتغل على 2007 مش 2003

 حضرتك محاسب

طيسب ازاى كشف الحساب هو ميزان المراجعه

كل تقرير المفروض انه له تصميمه وله صفخه خاصه بيه

لمعلومات حضرتك انا محاسب 

تحياتى

[الصـقر]

عاوز أول ما امسح محتوى الخلية E1 و استدعي البيانات من تاريخ إلى تاريخ يظهر لي بيانات الأصناف كلها في صفحة كشف الحساب 

دا كلام محاسبيا غلط

[محمد عبد المجيد ( أبو حمزة )]

أرجوا أن تتحملني أستاذي الفاضل حسام ، البرنامج مُنسق بشكل جيد على 2013 ، أنا أريد كارت صنف للأصناف رصيد أول و الحركات كما هو في شيت كشف الحساب دعك من ميزان المراجعة الان .

 

تقبل تحياتي 

تم تعديل ديسمبر 16, 2014 بواسطه حنفضر

[الصـقر]

حبيبى انا تحت امرك قدر استطاعتى ووقتى لانى بالدوام

ثانيا ممكن اعرف من حضرتك ازاى بضيف صنف جديد او بالأحرا فين شيت اللى فيه الاصناف كلها اللى انتى بتشتغل عليها

تحياتى

[محمد عبد المجيد ( أبو حمزة )]

حبيبى انا تحت امرك قدر استطاعتى ووقتى لانى بالدوام

ثانيا ممكن اعرف من حضرتك ازاى بضيف صنف جديد او بالأحرا فين شيت اللى فيه الاصناف كلها اللى انتى بتشتغل عليها

تحياتى

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

 دمتم بود