ام بسمه

وعليكم السلام ورحمه الله وبركاته شكرا على مرورك الكريم

للرفع

كيف يتم تحويل الدالة الى كود وهل كل دالة لها طريقة معينة مثلا الدوال الاتيه vlookup &iferror &sumif& sumifs

Sub Macro1() Dim iNm As String Dim Lr As Long, i As Long Dim R As Integer Dim d1 As Double, d2 As Double iNm = Range("B1").Value d1 = Range("B2").Value2 d2 = Range("B3").Value2 Range("D5:L300").ClearContents Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "M").End(xlUp).Row For i = 4 To Lr If iNm = CStr(.Cells(i, "M")) Then Select Case .Cells(i, "H").Value2 Case d1 To d2 R = R + 1 Cells(R + 4, "C").Value = R Cells(R + 4, "G").Resize(1, 4).Value = .Cells(i, "H").Resize(1, 4).Value Cells(R + 4, "D").Value = .Cells(i, "B").Value Cells(R + 4, "E").Value = .Cells(i, "C").Value Cells(R + 4, "F").Value = .Cells(i, "D").Value Cells(R + 4, "H").Value = .Cells(i, "L").Value End Select End If Next With Sheet6 Lr = .Cells(.Rows.Count, "M").End(xlUp).Row For i = 4 To Lr If iNm = CStr(.Cells(i, "M")) Then Select Case .Cells(i, "O").Value2 Case d1 To d2 R = R + 1 Cells(R + 4, "K").Value = .Cells(i, "N").Value Cells(R + 4, "L").Value = .Cells(i, "O").Value End Select Application.ScreenUpdating = True End If Next End With End With End Sub ممكن تعديل هذا الكود من حيث التسلسل لان مصدر البيانات sheet4&sheet6 وفى كشف الحساب يكمل تسلسل شيت6 بعد شيت4 وانا عايزة الشيتين يبداؤ من اول صف بداية الكشف

هل هناك كود ترحيل للترحيل من ورقتين عمل الى ورق عمل اخرى حتى يكون هناك زرار واحد لجلب البيانات

اسفة انى مبتداءة فى الاكسيل

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

نفذ بس على النموذج بتاعى ان امكن ولكم كثير الشكر

ارجو من حضرتك ان يكون المشروع كما صممته ان امكن بالنسبة لكشف الحساب هو الان لا يعمل اريد ان يجلب معاملات العملاء التى بالاجل فعندما اكتب اسم العميل فمعناه انه بالاجل وعند جلب البيانات لنفرض ان العميل 1 له اشترى ثلاث اصناف وعند عمل كشف حساب عميل 1 فعلا جلب الثلاث حركات وسوف يدفع مثلا نصف ما عليه اريد ان اسجل ذلك فى شيت كشف الحساب وشكرا على سعة صدرك

بارك الله فيك عمل اكثر من رائع شكرا على مرورك استاذ حسام انا مش عايزة شيت (عام) يكفى شيت المبيعات فى شيت كشف الحساب عايزة تصفية لما قد يدفعه العميل من حسابه

للرفع

للرفع

للرفع

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

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