إبراهيم ابوليله

اخى ابن مصر اشكرك بشده تقبل تحياتى

اخى ابن مصر اشكرك بشده تقبل تحياتى

اخى ابن مصر بالفعل الفورم المرفق من حضرتك يعمل بنجاح ولكن عن تطبيق الفكره على الملف الموجود عندى يحدث نفس الخطأ -------------------------------------------------- وايضا عند جعل قيم التيكس بوكس تساوى قيمة الخليه يظهر الاسم داخل التيكست بالشكل الموضح فى الصوره untitled.rar

اخى ابن مصر اشكرك على سرعة الرد تقبل تحياتى

الاخوه الكرام عند استدعاء الفورم يتم اظهار الاسم الموجود فى الخليه فى الليبل ولكن الاسم يكون مكتوب فى الخليه اسم الحساب وانا اريد اظهاره فى الليبل بهذا الشكل اسم الحساب Book1.rar

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

اخى تقبل تحياتى

اخى اليك التوضيح على حسب مقدتى فى فهم الاكواد ListBox1.AddItem .Cells(A, 4) هذا السطر عباره عن ان قيمة اول عمود فى الليست من ناحيه اليسار = قيمة العمود الرابع فى الشيت ListBox1.List(C, 1) = .Cells(A, 3) هذا السطر عباره عن ان قيمة ثانى عمود فى الليست من ناحيه اليسار = قيمة العمود الثالث فى الشيت ListBox1.List(C, 2) = Format(.Cells(A, 2), "dd-mm-yyyy") هذا السطر عباره عن ان قيمة ثالث عمود فى الليست من ناحيه اليسار = قيمة العمود الثانى فى الشيت مع عمل مع عمل فورمات للعمود على ان تظهر القيم على انها تاريخ سنه-شهر-يوم ListBox1.List(C, 3) = .Cells(A, 1) هذا السطر عباره عن ان قيمة رابع عمود فى الليست من ناحيه اليسار = قيمة العمود الاول فى الشيت وهكذا بمعنى ان اذا اردت اضاف سطر سيكون بالشكل الاتى ListBox1.List(C, 3) = .Cells(A, 1) ولكن سنقوم بتغير الرقم ListBox1.List(C, 3) الى الرقم 4 لان الرقم اربعه سوف يشير الى العمود الخامس فى الليست سم نقوم بتغير الرقم Cells(A, 1 الى رقم العمود الذى نريده من الشيت وهكذا ملحوظه لاتنسى زياده عدد اعمده الليست بوكس الى الرقم 8

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

اخى جرب وضع الكود الاتى فى حدث الورقه تقبل تحياتى Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("f2:f7000")) Is Nothing _ And IsNumeric(Target) Then Target.Offset(0, 1) = Target.Offset(0, 0) * Target.Offset(0, -1): Exit Sub End If If Not Intersect(Target, Range("e2:e7000")) Is Nothing _ And IsNumeric(Target) Then Target.Offset(0, 2) = Target.Offset(0, 0) * Target.Offset(0, 1): Exit Sub End If End Sub

تفضل اخى form2.rar

اخى ابا ماريه راجع الرابط الاتى http://www.officena.net/ib/index.php?showtopic=59097#entry377979 تقبل تحياتى

اخى تفضل form2.rar

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

اخى سيف هذه محاوله مبدأيه منى تقبل تحياتى معادلات الى اكواد 2015.rar

اخى ابا ماريه هذه محاوله منى تقبل تحياتى Originale10.rar

اخى ممكن التوضيخ اكثر تقبل تحياتى

اخى تفضل ولكن تم عمل الكود وكنت فى عجلة من امرى ارجو مراجعة البيانات المستخرجه جيدا قبل الاعتماد على الكود تقبل تحياتى فرنسية23.rar

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

اخى هل تقصد هكذا تقبل تحياتى فرنسية23.rar

للرفع ----------------------- اذ كان هذا الكود يسبب التهنيجه فهل هناك كود اخر يكون خفيف ويؤدى نفس الغرض تقبلو تحياتى

اخى جرب المرفق Invoice full.rar

اخى اصدار الاوفيس 2010 واعتقد ان 207 لن يكون به مشاكل ايضا

اخى بصراحه انا الفايل عندى مفيش فيه مشاكل -------------------------------------- ولكن هل غيرت اسم الشيت codes الى اى اسم اخر .............................................. راجع الصور الاتيه مع جهازك تقبل تحياتى

اخى لاشكر على واجب تقبل تحياتى