عبدالسلام ابوالعوافي

ضع في الخلية A2 الصيغة الاتية واسحب لاسفل =AGGREGATE(3;7;$A$1:A1)

جرب اخي هذا الملف بعد التعديل توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

حقيقة لازلت افكر في هذه المعضلة .. المرفق يبين ان 0.15*3 يساوي 0.45 عن طريق المعادلات بينما لا يساويه عن طريق الاكواد .. 0.45 not equel 0.45.rar

Sub UpdateFooter_Header1() Dim SH As Worksheet For Each SH In Worksheets With SH .PageSetup.RightHeader = Sheets("البيانات").Range("Q3").Value & Chr(13) & Range("Q4").Value .PageSetup.CenterHeader = Sheets("البيانات").Range("P1").Value & Chr(13) & Range("R1").Value .PageSetup.LeftHeader = Sheets("البيانات").Range("Q5").Value & Chr(13) & Range("Q6").Value .PageSetup.RightFooter = Sheets("البيانات").Range("A1000").Value .PageSetup.CenterFooter = Sheets("البيانات").Range("b1000").Value .PageSetup.LeftFooter = Sheets("البيانات").Range("c1000").Value End With Next End Sub

استخدم Vlookup

وعليكم السلام .. لو يكون السؤال بلغة الاكسل يكون افضل لاني لم افهم ماتقصده * استغرب من كونك مسجل بالموقع لاكثر من سنتين وهذه اول مشاركة لك

وعليكم السلام استاذ محمد الفكرة نفسها .. لكن بما ان الورقة 3 بها صفان فارغان قبل الجدول .. فقط قم باضافة +2 كما في الصيغة الاتية =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(ورقة3!B:B)+2;"الانتقال إلى آخر صف")

استاذنا ياسر .. القيمة هي ناتج ضرب 0.15*3 يعني القيمة هي 0.45 .. جربت كل الطرق التي اعرفها وغيرت انواع المتغيرات ولم اعرف السبب اخونا مصطفى .. الكود يعمل بشكل جيد الا في هذه القيمة .. للتغلب علي المشكلة قم بكتابة القيمة يدويا ولا يزال هذا الخطأ يشغل تفكيري ..

اذا قمت بكتابة القيمة 0.45 يدويا في الخلية O6 فان الكود يشتغل تمام .. اما اذا كانت النتيجة من خلال المعادلة فيكون هناك خطأ كود اخر للتحقق Sub aaa() If Cells(6, 15) = 0.45 Then Debug.Print "Yes" Debug.Print Cells(6, 15) End Sub الكود يظهر ان قيمة الخلية O6 لا تساوي 0.45 .. واذا اردنا طباعة قيمة الخلية فيطبع 0.45 .... شي محير حقا

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

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

بالنسبة للخطأ .. لو افترضنا ان الخلايا في الصفين 4 و 5 فارغة .. فالكود سوف يحذف الصف الرابع ويصبح الخامس هو الرابع .. اي ان الكود لن يفحصه مجددا بل ينتقل للصف السادس مباشرة وبالنسبة لجملة SQL ان شاء الله ساقوم بشرحها قريبا استاذ سليم .. الكود ممتاز جدا

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

Sub DeleteBlanks() Dim i As Integer Dim LR As Integer LR = ActiveSheet.UsedRange.Rows.Count For i = 2 To LR If Cells(i, 3) = "" Then Rows(i).Delete Next End Sub

=LEFT(A1;FIND("\";A1)-1) =RIGHT(A1;LEN(A1)-FIND("\";A1)) الاولى تستقطع الجزء الايسر والثانية الجزء الايمن

حل سريع جمع1.rar

اعتذر عن التاخر في الرد بسبب انقطاع الكهرباء وضعف الانترنت جرب المرفق عسى ان يكون هو الحل كود تلقائي استناداً الى رقم الجنسية واسم السائق 1.rar

ضع في الخلية A3 الكود الاتي واضعط كنترول شفت انتر =IF(SUMPRODUCT(--(B3&C3=$B$2:B3&$C$2:C3))=1;MAX($A$2:A2)+1;INDEX($A$2:A2;MATCH(1;--($B$2:B2&$C$2:C2=B3&C3)))) وفي الخلية A2 =1

لم افهم المطلوب جيدا .. لكن جرب هذا الكود الخلية A2 =1 ضع في الخلية A3 الاتي =IF(SUMPRODUCT(--(B3&C3=$B$2:B3&$C$2:C3))=1;A2+1;A2)

Sub sabah() Dim lr1 As Integer Dim lr2 As Integer lr1 = [b1000].End(xlUp).Row With Sheets("ورقة2") lr2 = .[b1000].End(xlUp).Row + 1 .Range("b" & lr2) = Range("b" & lr1) .Range("c" & lr2) = Range("c" & lr1) .Range("e" & lr2) = Range("e" & lr1) .Range("h" & lr2) = Range("h" & lr1) .Range("g" & lr2) = Date End With ActiveSheet.Rows(lr1).ClearContents MsgBox ("تم ترحيل البيانات بنجاح") End Sub

ليس لدي اوفيس 2016.. لكن استغرب من وجود ( .xlfn_ ) بالمعادلة ..

بلغني الله واياكم الشهر الكريم ونحن بصحة وعافية .. وكل عام والامة الاسلامية بخير

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

اضف الكلمة PtrSafe للتصريحات .. بمعني Public Declare PtrSafe Function بدلا من Public Declare Function PtrSafe توضع عند استخدام اوفيس 46 بت

وعليكم السلام اخي رفيع .. التاريخ لا يتغيير الا اذا مسحت الخلية في العمود A عموما هذا الذي اعلمه ولك من التحية