عبدالله المجرب

اخي المعادلة التي ذكرت ( Vlook on) هي معادلة معرفة وغير موجود ضمن دوال اي نسخة من الاوفيس يمكنك نسخ كود الدالة ووضعه في موديول في محرر الاكواد وستعمل الدالة .

السلام عليكم جرب المرفق (اكتشف التعديل الذي تم) New Microsoft Excel Worksheet.rar

السلام عليكم بعد اذن الاساتذة الكرام واثراءً للموضوع هذا الكود يقوم بنفس عمل اكواد ومعادلات الاخوة الكرام في الحلول السابقة لكن يمتاز بانه لن يتاثر بعدد الاحرف (مرن) Sub Abu_Ahmed() LR = [b1000].End(xlUp) [d6] = Mid(LR, 1, InStr(LR, "-")) & Format(Val(Mid(LR, InStr(LR, "-") + 1, 5)) + 1, "000") End Sub

السلام عليكم جرب هذا الكود (لتعديل بيانات اخر سطر مرحل) Sub ss1() Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 6) = Cells(3, 1) Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 7) = Cells(3, 2) Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 8) = Cells(3, 3) End Sub

السلام عليكم جرب مسح هذا السطر (السطر الرابعمن الاخير) [a5:g14].ClearContents

السلام عليكم . اخي طاهر الكود الخاص بالاخ ابو نصار (المشاركة 8) هو اختصار للكود الذي في مرفق الاخ رجب (المشاركة 7)

السلام عليكم اخي فضل جرب هذا الكود Sub Abu_Ahmed1() Dim cl As Range For Each cl In [E2:E16] Set MyRng = Range(Cells(cl.Row, 3), Cells(cl.Row, 5)) If Application.CountIf(MyRng, cl) > 1 Then MyArr = MyArr & Trim(cl) & "," cl.Delete Shift:=xlUp End If Next For Each c In Split(MyArr, ",") Cells([E1000].End(xlUp).Row + 1, 5) = c Next End Sub

حياك الله

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

السلام عليكم جرب المرفق فرز الأصناف وتحديد أكير قيمة في ترتيبها حسب تسلسلها.rar

السلام عليكم جرب المرفق برنامج الحوالات1.zip

الاستاذ الفاضل محمد يحياوي عمل مميز بارك الله فيك

اثراءً للموضوع من خصائص الفورم كما في الصورة

اخي قصي ارجو منك ان توصل لنا الفكرة المطلوبة في التوزيع ليسسهل فهمها من قبل الاستاذ عبدالله

شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=4607

وهذا ما يحصل عند الضغط على زر يتم فتح ورقة بيانات والنموذج موجود

جرب المرفق 300.zip

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

السلام عليكم اليك قائمة منسدلة بالكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim CL As Range If Not Intersect(Target, [K4]) Is Nothing Then For Each CL In [A2:A300,B2:B300,C2:C300,D2:D300,E2:E300,F2:F300,G2:G300,H2:H300] If CL <> Empty Then MyArr = MyArr & Trim(CL.Value) & "," Next With Range("K4").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=MyArr End With End If End Sub شاهد المرفق Book2.rar

بارك الله استاذ طارق على هذه الدرر

بارك الله فيك استاذ احمد

السلام عليكم جرب هذا الرابط http://www.officena.net/ib/index.php?showtopic=40623

شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=39071

السلام عليكم كيف تريد طريقة اظهار الاوراق

السلام عليكم هل تقصد هكذا ALI_CH.rar