عبدالله باقشير قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 السلام عليكم ورحمة الله وبركاته تقرير حساب بين فترات مأخوذ من عدة اوراق مع امكانية الفرز حسب عمود مختار طلب للاخ سعد عابد في الموضوع: http://www.officena.net/ib/index.php?showtopic=43872 جعلته هنا لتعم الفائدة المرفق 2003_2007 تقرير حساب بين فترات مأخوذ من عدة اوراق.rar 2 رابط هذا التعليق شارك More sharing options...
احمد محمد على قام بنشر نوفمبر 7, 2012 مشاركة قام بنشر نوفمبر 7, 2012 اخى فى الله عبدالله باقشير اعمال مبهره جزاك الله خيرا اخى الكود يبحث لو ان العميل هو مورد فى نفس الوقت ماذا لو ان العميل عميل فقط اعرف ان الكود سياتى ببياناته المثال بالمرفقات ولكنى بعد ما رفعت المشتريات ومردوداتها اردت ان الفت نظرك المبيعات للعميل =150 المرتجع والمدفوع =130 الرصيد=20 ----------------------------- الخلاصة هل بل الامكان تحريك عمود القيمة بالمرتجع للمدفوعات وكذلك المدين بالنسبة للخزينة تقرير حساب بين فترات مأخوذ من عدة اوراق لعميل.rar رابط هذا التعليق شارك More sharing options...
احمد محمد على قام بنشر نوفمبر 13, 2012 مشاركة قام بنشر نوفمبر 13, 2012 اخى عبدالله باقشير هذا الكود الخطير يستحق ان يثبت وقد طرحت على حضرتك مشكلة وقمت باضافة اعمدة لحلها فهل هناك حل غير اضافة الاعمدة لاتتى فى حساب المورد اضفت عمود للمرتجع ولكن فرقت فى الخزينة انى احتاج لشطب عمود من المضافين ارجو ان كان هناك حل للموضوع اكون شاكرا لكم تقرير حساب بين فترات مأخوذ من عدة اوراق لعميل.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 14, 2012 الكاتب مشاركة قام بنشر نوفمبر 14, 2012 اخى عبدالله باقشير هذا الكود الخطير يستحق ان يثبت وقد طرحت على حضرتك مشكلة وقمت باضافة اعمدة لحلها فهل هناك حل غير اضافة الاعمدة لاتتى فى حساب المورد اضفت عمود للمرتجع ولكن فرقت فى الخزينة انى احتاج لشطب عمود من المضافين ارجو ان كان هناك حل للموضوع اكون شاكرا لكم بدلا من اخفاء اعمدة وغيره من الحلول اللي عملتها استخدم سلكت كوس في كود نقل القيم وحدد لكل ورقة الاعمدة التي تريد نقلها رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 14, 2012 مشاركة قام بنشر نوفمبر 14, 2012 اخى عبدالله باقشير اسال الله ان ينعم عليك بكل نعمه يمكن نكون طمعين بكرمك كتير ولكن عذرنا انك اخ كريم ومعطاء اخى لقد فعلت فعلا ما فعله mido فقد قسمت الكود لثلاث اصناف كود يجلب حساب عميل مورد يبحث فى خمس ورقات كود يجلب حساب العميل يبحث فى ثلاث ورقات (مبيعات وم.مبيعات والخزينة) كود يجلب حساب المورد يبحث فى ثلاث ورقات (مشترياتوم.المشترياتوالخزينة) الكود لم ارى مثيل له فى السرعة بفضل الله بل نستطيع جلب بيانات الاصناف به فهو بداية بل بداية ونهاية لبرنامج كبير لقد حاولت ان استخدم slect case لم افلح فى الوصول للهدف المنشود وهو ان ياتى الحساب بطريقة محاسبية سليمة وهى = المشتريات - (م.مشتريات+المسدد) = حساب المورد وكذلك العميل وكذلك العميل المورد نكون شاكرين لك لو تكرمت واكملت العمل بطريقتك كل الشكر والتقدير اخوك سعد عابد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 14, 2012 الكاتب مشاركة قام بنشر نوفمبر 14, 2012 السلام عليكم هذا مثال لما اوردته باستخدام في مشاركتي السابقة عن استخدام سلكت كوس غير معطياتك كعميل او مورد Sub kh_AddItem(nSh As String) Dim MyRng As Range Dim R As Integer Dim ContRow As Long, i As Long Dim tFindNum As String Dim dt1 As Date, dt2 As Date '------------------------- On Error GoTo 1 '------------------------- Set MyRng = Sheets(nSh).Range(MyTopColmnRng) '------------------------- With MyRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With If ContRow = 0 Then Exit Sub '------------------------- ' اسم الحساب المطلوب tFindNum = LCase(saad1.ComboBox1.Value) '------------------------- ' التواريخ dt1 = CDbl(CDate(saad1.ComboBox2)) dt2 = CDbl(CDate(saad1.ComboBox3)) '------------------------- With MyRng.Offset(1, 0) For R = 1 To ContRow Select Case .Cells(R, dColmn).Value2: Case dt1 To dt2 If LCase(.Cells(R, MyColmnFind)) Like tFindNum Then '''''''''''''''''''''''''''''''' 'مثلا هذه الاعمدة مطلوبة في كل الحسابات Cells(ii, "B").Resize(1, 6).Value = .Cells(R, 1).Resize(1, 6).Value ' المعيار اسم الورقة Select Case .Worksheet.Name 'باقي الاعمدة وهي اربعة نختار فيها مانريده Case "مشتريات", "م.مبيعات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, "", .Cells(R, 9).Value) Case "مبيعات", "م.مشتريات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, .Cells(R, 9).Value, "") Case "خزينة" Cells(ii, "H").Resize(1, 4).Value = Array("", "", .Cells(R, 7).Value, .Cells(R, 8).Value) End Select '''''''''''''''''''''''''''''''''''' ii = ii + 1 End If End Select Next End With '------------------------- 1: Set MyRng = Nothing End Sub المرفق 2003 تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar 3 رابط هذا التعليق شارك 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.