نجوم المشاركات

المعادلة المطلوبة في الخلية C3 =IF(OFFSET(INDIRECT($B3&"!h8"),,COLUMNS($A$1:A1)-1)=0,"",OFFSET(INDIRECT($B3&"!h8"),,COLUMNS($A$1:A1)-1)) الملف مرفق 220_s.xlsx

اكتب ما تريد ان تبحث عنه واضغط انتر .. عسى ان يفى بالمطلوب بحث.rar

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

أحسنت استاذ سليم معادلة ممتازة بارك الله فيك

تسلم اخى الفاضل ولكن واجهتنى مشكلة صغيرة فى حالة التسجيل فى خانة الملاحظات فى شاشة ادخال حركة عميل تسجل فى خانة المستلم ومرفق لك بيان عملى معرض الشيخ3.xlsm

اشكرك استاذ سليم شكرا جزيلا

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

الف شكر لحضرتك وجزاك الله خيرا وجارى فتح الملف

وعليكم السلام-لك ما طلبت أوفيسنا.xlsx

وعليكم السلام -عليك برفع الملف نفسه

وعليكم السلام -اهلا بك في المنتدى دائما وابدا لكى تكتمل مشاركتك لابد من رفع الملف وشرح المطلوب عليه بكل دقة بارك الله فيك

النجمة قبل C$1& تعني C$1 مسبوقة بأي حرف او فراغ النجمة بعد C$1& تعني اي حرف او فراغ بعد C$1 ممكن معادلة ثانية لنفس الملف هذه المعادلة توضع في الخلية C2 وتسحب يسارا ثم نزولاً =IF(NOT(ISERROR(FIND(C$1,$B2))),C$1,"")

أهلا @wael_rafat كل ما في الأمر أني نشطت خاصية Locked في مربع النص في النموذج ثم أعيد تعطيلها عند النقر على الرقم.. وأعيد تنشيطها بعد ذلك.. Function XActiveVal(TagVal) With Me.ActiveControl .Locked = False .Value = .Value & TagVal .SelStart = Len(.Value) .Locked = True End With End Function

السلام عليكم الحقيقة أنه قد تم إنشاء قسم بل اكثر من قسم لعدة لغات منها اللغات التي أشرت إليها و لكن بقت هذه الأقسام دون مشاركات تذكر لمدة تقارب العام على الرغم من كثرة الإعلان عنها في حينه . فتم الغاؤها

جرب هذا الكود Option Explicit Sub Give_Data() Dim Dic As Object Dim i%, Itm, k Dim max_ro%, Laste_Row% Dim Sh As Worksheet 'source_sheet (Main) Dim Th As Worksheet ' Target_sheet (Repport) Set Sh = Sheets("Main"): Set Th = Sheets("Repport") max_ro = Th.Cells(Rows.Count, 1).End(3).Row If max_ro = 1 Then max_ro = 2 Th.Range("a2:b" & max_ro).ClearContents Laste_Row = Sh.Cells(Rows.Count, 1).End(3).Row If Laste_Row < 2 Then MsgBox "No Data" Exit Sub End If Set Dic = CreateObject("Scripting.Dictionary") With Dic For i = 2 To Laste_Row If Sh.Range("B" & i) <> vbNullString Then k = Sh.Range("B" & i) Itm = Sh.Range("D" & i) - Sh.Range("C" & i) If Not .Exists(k) Then .Add k, Itm Else Dic(k) = Dic(k) + Itm End If End If Next i Th.Range("A2").Resize(.Count, 1) = Application.Transpose(.keys) Th.Range("B2").Resize(.Count, 1) = Application.Transpose(.Items) End With '=============== Dic.RemoveAll: Set Dic = Nothing End Sub الملف مرفق Exemple.xlsm

ابداع ما شاء الله كل الشكر منكم نتعلم

شرح ممتاز بارك الله فيك

جزاك الله خيرا أستاذنا @أبو إبراهيم الغامدي زادك الله من فضله أخى @وائل أبو عبد الرحمن أعتقد أن اخوتك بالمنتدى ينتهجون نهج المثل القائل: (علمنى الصيد ولا تعطنى سمكة) وأعتقد أن هذا سيعود أثره على منشئ الموضوع خاصة وعلى من يمر به عامة بالنفع ولا شك - وأحسبك توافقنى الرأى. ثانيا - اعتقد أن فى مثال أستاذنا ابو ابراهيم الغامدى غنا عن التعديل على المرفق الخاص بحضرتك يمكنك استيراد الفورم والوحدة النمطية داخل برنامجك واستعمالهم كما يحلو لك دون تعديل أو شىء - وان كانت مشكلتك بالجدول يمكنك تغير مصدر بيانات الفورم الى أى جدول تريد وأيضا دون تعديل بالأكواد.

بارك الله فيك اخي الكريم

جرب هذا الملف ouvriers.xlsx

تفضل أتمنى أن يكون هذا طلبك searsh.accdb

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

هذا الماكرو يقوم بما تريدين اختي الفاضلة Option Explicit Sub lena() If Sheets(1).[c4] = vbNullString Then Exit Sub Dim lr%, lr1% lr = Range("a" & Rows.Count).End(xlUp).Row If lr <= 5 Then MsgBox "No Data to Transfer", 64 Exit Sub End If lr1 = Sheets(Sheets(1).[c4].Value) _ .Cells(Rows.Count, 1).End(3).Row + 2 Sheets(1).Range("a6").Resize(lr - 5, 14) _ .Cut Sheets(Sheets(1).[c4].Value).Range("a" & lr1) End Sub