سيف الدين حسام

تحويل أكسيس 2010 من انجليزى الى عربى لأنى مبتدئ وكل الشروحات على اكسيس عربى فقط جزيتم خيرا

مكن شرح للمعادلات IFERROR(VLOOKUP وكيف استخدمهم لجلب بيانات فاتورة

فعلا موضوع جيد ياريت حد يفيدنى من الاخوة الكرام - لكن رجاء ياخى حاول تعدل عنوان الموضوع علشان يكن معبر عن مضمون الموضوع

الاخ الفاضل سليم حاصبيا فكرو رائعة ممكن تشحرها لنا لان انا عندى فى شيت قائمة منسدلة بها 400 عنصر جزيت خيرا

السلام عليكم ورحمة الله وبركاته مرحب بـ الاخ الحبيب حســـــام عيسى ممكن تشرح لنا الكود ده Private Sub TextBox1_Change() On Error GoTo 0 If ActiveCell.Offset(0, -1) = "اسم الصنف" Then Dim SS As Range Set SS = Range("الصنف") m = TextBox1.Text ListBox1.Clear If m = "" Then GoTo 1 w = ListBox1.ListCount With SS Of_1 = .Rows.Count Of_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m) If Not A Is Nothing Then f = A.Address Do ListBox1.AddItem ListBox1.List(w, 0) = Sheet18.Cells(A.Row, 3).Value ListBox1.List(w, 1) = Sheet18.Cells(A.Row, 2).Value ListBox1.List(w, 2) = Sheet18.Cells(A.Row, 1).Value w = w + 1 Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> f End If End With Set A = Nothing 1 End If If ActiveCell.Offset(0, -1) = "اسم الشاصى" Then Dim mm As Range Set mm = Range("الشاصى") m = TextBox1.Text ListBox1.Clear If m = "" Then GoTo 2 w = ListBox1.ListCount With mm Of_1 = .Rows.Count Of_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m) If Not A Is Nothing Then f = A.Address Do ListBox1.AddItem ListBox1.List(w, 0) = Sheet3.Cells(A.Row, 16).Value ListBox1.List(w, 1) = Sheet3.Cells(A.Row, 17).Value w = w + 1 Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> f End If End With Set A = Nothing 2 End If If ActiveCell.Offset(0, -1) = "نوع ورقم المركبه" Then Dim nn As Range Set nn = Range("المركبة") m = TextBox1.Text ListBox1.Clear If m = "" Then GoTo 3 w = ListBox1.ListCount With nn Of_1 = .Rows.Count Of_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m) If Not A Is Nothing Then f = A.Address Do ListBox1.AddItem ListBox1.List(w, 1) = Sheet3.Cells(A.Row, 16).Value w = w + 1 Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> f End If End With Set A = Nothing 3 End If

اخى الكريم ممكن ترفق الملف علشان الزملاء بالمنتدى يقدورا يساعدوك تقبل مرورى

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

الاخ الكريم حسام عيسى اشكرك على جهدك

الاخ الكريم ابراهيم اشكرك على جهدك

السلام عليكم ورحمة الله وبركاته الاخخ الكريم أبو عيد ممكن شرح لهذا الجزء من الكود For i = 2 To Lr If InStr(CStr(.Cells(i, "A")), txt) Or InStr(CStr(.Cells(i, "B")), txt) Or InStr(CStr(.Cells(i, "C")), txt) Or InStr(CStr(.Cells(i, "D")), txt) Or InStr(CStr(.Cells(i, "E")), txt) Or InStr(CStr(.Cells(i, "F")), txt) Or InStr(CStr(.Cells(i, "G")), txt) Or InStr(CStr(.Cells(i, "H")), txt) Then Cells(R + 6, "A").Resize(1, 8).Value = .Cells(i, "A").Resize(1, 8).Value R = R + 1

السلام عليكم ورحمة الله وبركاته الاستاذة الكرام بهذا الصرح العلمى والاخوة الزملاء أرجو تحويل اهذه المعادلة الى كود المعادلة الموجود فى شيت المصروفات فى الخلية { D8 } ويتم نسخها الى المدى ( الخلية ) { O48 } معادلات الى اكواد 2015.rar

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

لكن هل ممكن تحويل المعادلات الى أكواد وذلك لأن دالة Sumifs - فعلا وعن تجربة سابقة بتقل الملف تحياتى

السلام عليكم ورحمة الله وبركاته كود جميل لكن لو عايز عملية الترحيل والتجميع تكون بعدة شروط مثلا تكون بين تاريخين جزاكم الله كل خير

الاخ الفاضل حسام عيسى تم عمل جزء من المطلوب وهو ـــــــــــــــــــــــــــــــــ عند الضغط على زر استدعاء البيانات يتم ادارج جميع الحسابات الفرعية من الحساب الاب الذى تم اختياره فى الخلية D5 وذلك فى العمود C بدءا من الخلية C8 لاحظ ذلك ــــــــــــــــــــــــــ لكن اريد الغاء معادلة Sumifs وأستبدلها بكود ترحيل بشروط مثل التاريخ وأسم الحساب الفرعى معا لأن Sumifs لا تاخذ فى الاعتبار فرق بين تاريخين ولكن تأخد بتاريخ ثابت فقط واليكم الموفق موضح به ذلك بالتفصيل فرنسية.rar

اخى حسام عيسى أحبك الله الذي أحببتني فيه وجعله الله فى ميزان حسناتكم وتقبل منكم صالح الاعمال 44444444444444444

مجهود رائع يدل انك صاحب فكر عالى

الاخوة الكرم اعزكم الله اليكم الطلب الثانى وهو عبارة عن تحليل حساب رئيسى ( أب ) مثلا حساب العملاء يتم ادارج جميع ارصدة حسابات الاستاذ المساعد للعملاء وذلك موضح تفصيلا داخل الشيت أرجوا فتحه ومشاهدته تحياتى فرنسية2.rar

الاخ الفاضل حســام عيسى جزالك الله خيرا اللهمّ إني أسألك لعبدك حسام عيسى زيادة في الدّين، وبركة في العمر وصحّة في الجسم، وسعةً في الرزق وتوبةً قبل الموت، وشهادةً عند الموت، ومغفرةً بعد الموت، وعفواً عند الحساب، وأماناً من العذاب، اخى الكريم أبعد الله عنكم شرّ النّفوس، وحفظكم باسمه السّلام القدّوس، وجعل رزقكم مباركاً غير محبوس، وجعل منزلتكم عنده جنّة الفردوس أاااااااااااااامين تحياتى واحترامى وتقديرى لشخصكم الكريم

بارك الله فيك استاذنا الصقر لكن ممكن تشرح لنا هذا الجزء من الكود If mo = CStr(.Cells(i, "i")) And mn = CStr(.Cells(i, "j")) And mm = CStr(.Cells(i, "k")) Then Select Case .Cells(i, "b").Value2 Case d1 To d2 r = r + 1 Cells(r + 8, "a").Resize(1, 6).Value = .Cells(i, "b").Resize(1, 6).Value Cells(r + 8, "j").Resize(1, 3).Value = .Cells(i, "k").Resize(1, 3).Value

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

السلام عليكم ورحمة الله وبركاته الشكر الجزيل لـ الاخ الكريم حسام عيسى الشكر الجزيل لـ الاستاذ / طارق محمود الشكر الجزيل لأعضاء المنتدى والقائمين عليه حقا لو لا جهد الاخ حسام عيسى - لما توصلت لهذا العمل حقا لو لا هذا المنتدى لما توصلت لهذا العمل أرفق لكم مشروع التعلم الذى أحاول تصميمه بعد الاستفادة من شروحات الاخ حسام عيسى أســال الله العلى القدير أن تتواصل ولا تنقطع وهو عبارة عن يوميات مساعدة - بالطريقة الفرنسية - هى معقدة بس أنا بعشقها وكنت بشتغل عليها يدوى من 10 سنوات حيث أنه يتم تسجيل حركة الخزينة بالكامل ويتم توجهيها فى يومية الصندوق ـ ليتم ترحيلها الى قاعدة البيانات حيث أنه يتم تسجيل حركات البنوك ويتم توجهيها فى يومية البنوك ـ ليتم ترحيلها قاعدة البيانات حيث أنه يتم تسجيل قيود التسويات يتم توجهيها فى يومية التسويات ـ ليتم ترحيلها قاعدة البيانات حيث أنه يتم تسجيل فواتير البيع موضحا بها مندوب البيع والمخزن المنصرف منه لأنها ستؤثر على أرصدة المخازن ويتم ترحيلها فى يومية المبيعات - ويتم اعداد القيد تلقائيا ويتم ترحيله الى قاعدة البيانات حيث أنه يتم تسجيل فواتير الشراء موضحا بها مسؤل الشراء والمخزن الذى استلمها لأنها ستؤثر على أرصدة المخازن ويتم ترحيلها فى يومية المشتريات - ويتم اعداد القيد تلقائيا ويتم ترحيله الى قاعدة البيانات ومن قاعدة البيانات يتم اعداد ميزان مراجعة بالمجاميع والارصدة- وكذلك الموازين الفرعية - والاساتذة المساعدة - أنا فعلا بأعملهم من خلال الدالة Sumifs - من غير الاكواد لكنه ينقصنى بعض الامور الطلب الاول : يوجد شيت بأسم ( أستاذ مساعد ) عايز استدعى بيانات من قاعدة البيانات من خلال عدة شروط مثلا البيانات بين تاريخين - مع اسم الحساب مع مركز التكلفة - وذلك طبقا للشيت المرفق جزاكم الله خيرا يوميات فرنسية.rar

السلام عليكم ورحمة الله وبركاته معلش لى سؤال صغيرفى تنسيق الشيت اللى حضرتك عمله عنما اقف على خلية معينة يتم تلوين باقى خلايا الصف كيف يتم عملها وشكرا لك تقبل مرورى

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

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