رجب جاويش

أخى الفاضل / حمادة باشا تسلم ايديك من ابداع الى ابداع ومن تميز الى تميز

أخى الفاضل / محمود الشريف شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة وجزاك الله كل خير

ألف مليوووووووووووووون مبروك للأساتذة الكبار الأستاذ : عبد الله باقشير الأستاذ : دغيدي الأستاذ : أحمد فضيلة ترقية مستحقة واختيار ممتاز تقبلوا أرق تحياتى وتقديرى

الأستاذ الفاضل / مجدى يونس تسلم ايديك وجزاك الله كل خير

أخى الفاضل / من خصائص الدالة LOOKUP أنها ان لم تجد القيمة التى تبحث عنها فانها ترجع آخر قيمة ( ليست خطأ ) اذا لم تجد ماتبحث عنه أولا : فى هذه الحالة الرقم 2 هو ما نبحث عنه ثانيا : عند قسمة 1 على أى قيمة يكون الناتج أقل من الواحد الصحيح ( رياضيا ) ( وهو ما حدث عند قسمة 1 على ناتج المدى $B$5:$B$1000=F11 ) ثالثا : وبالتالى لن تجد الدالة ما تبحث عنه أبدا طالما جميع القيم أصبحت جميع القيم لن تصل الى الرقم 2 ( القيمة التى نبحث عنها ) رابعا : وبالتالى تقوم الدالة بحفظ مكان آخر قيمة ( غير خطأ ) ثم تاتى بالقيمة المقابلة لهذه القيمة من مدى البحث $C$5:$C$1000

تفضل أخى Sub print1() If [B2] <> "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=[B2], Copies:=1, Collate _ :=True End If End Sub

أخى الحبيب / جمال عبد السميع من ابداع الى ابداع ومن تميز الى تميز بارك الله فيك

الأخت الفاضلة / أم عبد الله :fff: :fff: ألف مليون مبروك علينا جميعا هذه الترقية المستحقة لك عن جدارة وكل الشكر للأستاذ / عبد الله المجرب على حسن الإختيار فأنت أهل لهذه الثقة وتقبلى منى وافر الإحترام والتقدير

أخى الحبيب / ضاحى الغريب :fff: :fff: ألف مليون مبروك علينا جميعا هذه الترقية المستحقة لك عن جدارة وكل الشكر للأستاذ / محمد طاهر على حسن الإختيار فأنت أهل لهذه الثقة دمتم فى أمان الله وحفظه وتقبلوا منى وافر الإحترام والتقدير

وأيضا زيادة فى الخير =SUM(SUMIFS(B2:B16;A2:A16;{"سارة","يزن","عارف"}))

السلام عليكم تفضل أخى =LOOKUP(2;1/(Table1[العميل]=[@العميل]);Table1[التاريخ]) كشف حساب.rar

وهذه الفكرة لتفادى الخلايا الفارغة فى العمود W dاl.rar

أخى الفاضل فى هذه الحالة يجب تثبيت مدى البحث عن طريق تحيد المدى داخل المعادلة ثم الضغط على F4 كالآتى =VLOOKUP(W6;JZN!$1:$1048576;1;0) ثم بعد ذلك يتم سحبها لأسفل

أخى الفاضل / أحمد فى هذه الحالة يجب أن تغير الرقم 1 الموجود فى نهاية الدالة vlookup الى الرقم صفر حتى تغير نوع البحث الى تطابق تام ( 0 ) بدلا من التطابق التقريبى ( 1 ) حتى تكون الدالة على الصورة الآتية =VLOOKUP(W6;JZN!1:1048576;1;0) بدلا من =VLOOKUP(W6;JZN!1:1048576;1;1) dاl.rar

أما بالنسبة للخطأ أولا : كما أخبرك أخى الحبيب / جمال عبد السميع أن المعادلة الموجودة فى العمود B معادلة صفيف لذا لابد من الضغط على ( CTRL + SHIFT + ENTER ) ثم إنسخها لأسفل ثانيا : المدى الذى يتم جلب البيانات منه للعمود B هو num وهو غير مناسب لأنه يخص القسم Dep وليس الاسم لذا قمت بتسمية مدى آخر للأسماء وهو nam بدلا من num ليبقى المدى num خاص بالقسم فقط مع خالص تحياتى

أخى الفاضل هذا هو الحل عن طريق الكود كشف اسماء.rar

بعد اذن أخى الحبيب / جمال عبد السميع هذه محاولة أخرى لاثراء الموضوع كشف اسماء.rar

بعد اذن الأستاذ الفاضل / عبد الله المجرب ولاثراء الموضوع هذا كود بفكرة أخرى Sub ragab() Dim arr() As String Set sh = Sheets("ورقة2") sh.UsedRange.ClearContents x = 2: Z = [E4] + 1 '================================ For R = 4 To 6 i = Cells(R, 5) + 1 ReDim arr(1 To i) arr(1) = Cells(R, 4) xx = 2 For T = x To Z arr(xx) = Cells(T, 1) xx = xx + 1 Next LR = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A" & LR).Resize(i) = Application.WorksheetFunction.Transpose(arr) x = x + Cells(R, 5) Z = Z + Cells(R + 1, 5) Erase arr Next End Sub 1111الترحيل بشرط قيمة متغيرة.rar

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

أخى الحبيب / محمد أبو البراء احساسك النبيل وذوقك العالى وخلقك الكريم يجعلك فى المقدمة دوما ودائما ودوما أخى الحبيب انما نحن أخوة فى الله فى منتدانا الحبيب قلوبنا متراصة بجوار بعضها على طاعة الله ومساعدة بعضنا بعضا تقبل أرق تحياتى وتقديرى

أخى الحبيب / فضل فى الحالة التى تريدها تكون المعادلة كالآتى =SUMPRODUCT(((B5:B1000<B4)+(B5:B1000="غ"))*(C5:C1000>=C4))

أستاذى الحبيب / عبد الله باقشير جزاك الله كل خير أستاذى الحبيب

بعد اذن أستاذى الحبيب هذه فكرة أخرى =SUMPRODUCT(((B5:B1000<B4)+(B5:B1000="غ"))*(B5:B1000<>"")*(C5:C1000>=C4))

أخى الفاضل / قصي جزاك الله كل خير أخى الفاضل على هذا المرور العطر والكلمات الطيبة

أخى الحبيب / أبو محمد عباس شكرا جزيلا أخى الحبيب على هذا الدعاء الطيب وجزاك الله كل خير