الأستاذ / محمد الدسوقى

هل تريد ترحيل هذه الأعمدة المتفرقة إلى ورقة all فى أعمدة متجاورة أم بنفس أسماء الأعمدة؟؟؟ بمعنى العمود مثلا : C ينقل إلى ورقة الهدف فى العمود C وهكذا

الحمد لله الذى بنعمه تتم الصالحات

اتفضل المعادلة التالية CONCATENATE ضعها فى الخلية H9 مع السحب لأسفل لنسخها فى باقى خلايا العمود =CONCATENATE(D9;E9;F9;G9) ويمكن أيضا استخدام هذه الطريقة باستخدام & =D9&E9&F9&G9

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

يمكنك رفع الملف على أحد مراكز رفع الملفات مثل الميديا فاير أو جوجل درايف أو Top 4 Top أو غيرها ثم رفع رابط الملف وليس الملف نفسه

دائما مبدع ونتعلم منكم الكثير زادكم الله علما ونفعكم بما علمك

مبدع دائما أستاذنا الكبير / سليم وإثراء للموضوع يمكن تجربة الكود التالى لاستدعء البيانات بأكثر من شرط Option Explicit Sub M_D_Test() Dim ws As Worksheet: Set ws = Sheets("Data") Dim sh As Worksheet: Set sh = Sheets("المطلوب") Dim Arr As Variant, Arr1 As Variant, Temp As Variant Dim lr As Long, I As Long, j As Long, P As Long lr = ws.Range("C" & Rows.Count).End(xlUp).Row '------------------------------------ Application.ScreenUpdating = False sh.Range("H2:H22").ClearContents Arr = ws.Range("A2:Z" & lr).Value '=================== Arr1 = Array(5) '==================== ReDim Temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr1) + 1) For I = 1 To UBound(Arr) ' الـ 3 شروط ' ================================================================================================== If Arr(I, 19) = sh.[A2].Value And Arr(I, 7) = sh.[B2].Value And Arr(I, 3) = sh.[C2].Value Then '================================================================================================== P = P + 1 For j = 0 To UBound(Arr1) Temp(P, j) = Arr(I, Arr1(j)) Next j End If Next I If P > 0 Then sh.Range("H2").Resize(P, UBound(Temp, 2)).Value = Temp '------------------------------------ Application.ScreenUpdating = True End Sub MY_search_MD.xlsm

بارك الله فيك أستاذ / Mahmoud Abdou

الحمد لله الذى بنعمته تتم الصالحات

أستاذ / مالك يمكنك عمل زر ( الصفحة الرئيسية ) ووضعه فى كافة صفحات العمل و ربطه بكود للعودة للصفحة الرئيسية التى تريدها كما يلى Sub main() Application.Visible = True ' Sheet 1يمكنك اختيار اسم الصفحة الرئيسية بدلا من Sheet1.Activate End Sub

اتفضل استاذ مالك الملف المرفق به حلين: الحل الأول : عمل كمبوبوكس يحتوى على أسماء أوراق العمل وعند الاستدعاء اختر الشيت المطلوب سيتم الانتقال إليه تلقائيا الحل الثانى : عمل هايبر لينك بأسماء أوراق العمل فى مكان محدد من ورقة العمل تعبئة الكمبوبوكس بأسماء أوراق العمل.xlsm

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

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

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

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