عبدالله باقشير قام بنشر نوفمبر 6, 2012 قام بنشر نوفمبر 6, 2012 السلام عليكم ورحمة الله وبركاته تقرير حساب بين فترات مأخوذ من عدة اوراق مع امكانية الفرز حسب عمود مختار طلب للاخ سعد عابد في الموضوع: http://www.officena.net/ib/index.php?showtopic=43872 جعلته هنا لتعم الفائدة المرفق 2003_2007 تقرير حساب بين فترات مأخوذ من عدة اوراق.rar 2
احمد محمد على قام بنشر نوفمبر 7, 2012 قام بنشر نوفمبر 7, 2012 اخى فى الله عبدالله باقشير اعمال مبهره جزاك الله خيرا اخى الكود يبحث لو ان العميل هو مورد فى نفس الوقت ماذا لو ان العميل عميل فقط اعرف ان الكود سياتى ببياناته المثال بالمرفقات ولكنى بعد ما رفعت المشتريات ومردوداتها اردت ان الفت نظرك المبيعات للعميل =150 المرتجع والمدفوع =130 الرصيد=20 ----------------------------- الخلاصة هل بل الامكان تحريك عمود القيمة بالمرتجع للمدفوعات وكذلك المدين بالنسبة للخزينة تقرير حساب بين فترات مأخوذ من عدة اوراق لعميل.rar
احمد محمد على قام بنشر نوفمبر 13, 2012 قام بنشر نوفمبر 13, 2012 اخى عبدالله باقشير هذا الكود الخطير يستحق ان يثبت وقد طرحت على حضرتك مشكلة وقمت باضافة اعمدة لحلها فهل هناك حل غير اضافة الاعمدة لاتتى فى حساب المورد اضفت عمود للمرتجع ولكن فرقت فى الخزينة انى احتاج لشطب عمود من المضافين ارجو ان كان هناك حل للموضوع اكون شاكرا لكم تقرير حساب بين فترات مأخوذ من عدة اوراق لعميل.rar
عبدالله باقشير قام بنشر نوفمبر 14, 2012 الكاتب قام بنشر نوفمبر 14, 2012 في 13/11/2012 at 20:31, mido21 said: اخى عبدالله باقشير هذا الكود الخطير يستحق ان يثبت وقد طرحت على حضرتك مشكلة وقمت باضافة اعمدة لحلها فهل هناك حل غير اضافة الاعمدة لاتتى فى حساب المورد اضفت عمود للمرتجع ولكن فرقت فى الخزينة انى احتاج لشطب عمود من المضافين ارجو ان كان هناك حل للموضوع اكون شاكرا لكم بدلا من اخفاء اعمدة وغيره من الحلول اللي عملتها استخدم سلكت كوس في كود نقل القيم وحدد لكل ورقة الاعمدة التي تريد نقلها
saad abed قام بنشر نوفمبر 14, 2012 قام بنشر نوفمبر 14, 2012 اخى عبدالله باقشير اسال الله ان ينعم عليك بكل نعمه يمكن نكون طمعين بكرمك كتير ولكن عذرنا انك اخ كريم ومعطاء اخى لقد فعلت فعلا ما فعله mido فقد قسمت الكود لثلاث اصناف كود يجلب حساب عميل مورد يبحث فى خمس ورقات كود يجلب حساب العميل يبحث فى ثلاث ورقات (مبيعات وم.مبيعات والخزينة) كود يجلب حساب المورد يبحث فى ثلاث ورقات (مشترياتوم.المشترياتوالخزينة) الكود لم ارى مثيل له فى السرعة بفضل الله بل نستطيع جلب بيانات الاصناف به فهو بداية بل بداية ونهاية لبرنامج كبير لقد حاولت ان استخدم slect case لم افلح فى الوصول للهدف المنشود وهو ان ياتى الحساب بطريقة محاسبية سليمة وهى = المشتريات - (م.مشتريات+المسدد) = حساب المورد وكذلك العميل وكذلك العميل المورد نكون شاكرين لك لو تكرمت واكملت العمل بطريقتك كل الشكر والتقدير اخوك سعد عابد
عبدالله باقشير قام بنشر نوفمبر 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.