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

تحويل أكسيس 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