عبدالله باقشير

السلام عليكم نتيجة لتكرار السؤال عن الاستيراد والاختلاف بين الطلبات في تحديد مكان وضع البيانات المستورده من الملف الاخر جعلنا الطريقة تكون سهلة ومرنة وممكن التعامل بها في اي ملف وهي كالتالي: فورم لاستيراد بيانات من ملف آخر بخاصية تحديد خلية اللصق قبل الانتقال الى الكود ثم الانتقال الى ملف الاستيراد لتحديد نطاق النسخ وفي الفورم زرارين لانتقاء طريق اللصق الافتراضية : لصق الكل والآخر لصق القيم (اختياري) ===================================================== اما فورم البحث جعلناه يبحث في جميع اوراق العمل ( افتراضي ) او بتحديد ورقة البحث من القائمة ( اختياري ) وقد استخدمنا فيه كود مختلف عن السابق لطريقة البحث(لتنوع المعرفة) فقط وممكن استخدام الكود السابق. وكل عام وانتم بخير استيراد بيانات من ملف.rar

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

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

السلام عليكم تقصد معادلة واحدة ممكن سحبها على جميع الخلايا بامكانك استخدام المعادلة التاليةفي الخلية C3: =$C$1-SUM($B$3:B3) ثم قم بسحبها على بقية الخلايافي نفس العمود

السلام عليكم تقصد قائمة (بدون تكرار) تظهر في فورم معين اذا كان كذلك ممكن تستخدم عدة طرق منها مثلا الكود التالي: Private Sub UserForm_Activate() Dim LastRow As Integer, R As Integer With ورقة1 LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row For Each A In .Range("B4:B" & LastRow) For R = 0 To ComboBox1.ListCount - 1 If ComboBox1.ListCount <> 0 _ And A.Value = ComboBox1.List(R) Then GoTo 1 Next ComboBox1.AddItem A.Value 1 Next End With End Sub تفضل المرفق بقائمة بدون تكرار.rar

السلام عليكم الاخ الفاضل / priince -----حفظه الله ادام الله قدرك اخي الكريم فهذا من حسن اخلاقك تقبل شكري وتقديري ============================= الاخ الفاضل / سالم شباني-----حفظه الله ولك بمثل دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل / khhanna-----حفظه الله لا شكر على واجب نحن تحت الخدمة إن شاء الله ثم إن استطعنا ذلك لقد قمت بالغاء تحديد اسم الورقة واستخدمت التعبير Set MySh = ActiveSheet انظر المرفق ادناه ============================= الاخ الفاضل / yahiaoui-----حفظه الله شكرا على ملاحظتك لدمج الموضوعين ساتركه لفترة معينة ليتم الانتباه له ثم ساقوم بالدمج تقبل شكري وتقديري ============================= الاخ الفاضل / قطان-----حفظه الله الله يديم المحبة في الله تقبل شكري وتقديري بحث منوع_1.rar

السلام عليكم الاخ الفاضل /ايسم ---------حفظه الله الاخ الفاضل /سالم---------حفظه الله الاخ الفاضل /يحي حسين---------حفظه الله الاخ الفاضل /قطان---------حفظه الله الاخ الفاضل /yahio---------حفظه الله الاخ الفاضل /safwatscc---------حفظه الله الاخ الفاضل /قصي---------حفظه الله الاخ الفاضل /khhanna---------حفظه الله الاخت الفاضلة /عبير مصطفى---------حفظه الله الاخ الفاضل /kaakaa---------حفظه الله تقبلوا تحياتي وشكري وكل عام وانتم بخير

السلام عليكم ستجد طلبك في الموضوع إضغط هنا خبور خير

السلام عليكم ورحمة الله وبركاته نموذج آخر للبحث عبر فورم في ورقة عمل معينة وبامكانية البحث الشامل للبيانات بشكل افتراضي وبامكانية البحث لعمود واحديشمل نوعية معينة من البيانات بالاختيار من قائمة وبامكانية البحث لتطابق بداية السلسلة النصية (افتراضي) وعكسه بابعادالتشييك عليه وهو طلب للاخ Khhanna إضغط هنا وجغلناه هنالتعم الفائدة بحث منوع.rar

السلام عليكم شهر مبارك ستجد طلبك في الموضوع اضغط هنا خبور خير

السلام عليكم ورحمة الله وبركاته اقدم اليكم هدية متواضعة بمناسبة الشهر الكريم وهي طلب للاخ safwatscc اضغط هنا وهي طريقة بحث في فورم بتحديداوراق العمل التي تريد البحث فيها والانتقال اتوماتيكيا الى نتيجة البحث عند التاشير عليها في لست نتائج البحث وقد جعلتها هنا ليستفاد منها في اعمال مماثلة خبور خير بحث.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير بمناسبة حلول الشهر الكريم أعاده الله عليكم بالخير واليمن والبركات وتقبل الله صيامكم وقيامكم وجميع طاعاتكم وكل عام وانتم بخبر. أخوكم خبور خير

بسم الله الرحمن الرحيم كل عام وأنتم بخير بمناسبة حلول الشهر الكريم أعاده الله عليكم بالخير واليمن والبركات وتقبل الله صيامكم وقيامكم كود معادلة لحساب الفرق بين تاريخين ميلادي او هجري Function kh_count_day(Mydate_Max As Date, Mydate_Min As Date) If IsDate(Mydate_Max) And CDate(Mydate_Min) Then kh_count_day = Mydate_Max - Mydate_Min End If End Function تفضل المرفق حساب الفرق بين تاريخين.rar

السلام عليكم تفضل المرفق test.rar

السلام عليكم في خلية جمع الدراهم ضع المعادلة التالية: =VALUE(MID(TEXT(SUM(D3:D6);"0000");2;3)) في خلية جمع الدينار ضع المعادلة التالية: =SUM(E3:E6)+VALUE(MID(TEXT(SUM(D3:D6);"0000");1;1))

السلام عليكم بعد اذن اخي ابو اسامة تم التعديل على كود ابو اسامة ليشمل النطاق c2:o101 مع ظهور رسالة تظهر الارقام وللتاكيد اوالعودة الى القيمة السابقة وهناك زر في المرفق لتفعيل الكود تفضل المرفق sum AA numbers_1.rar

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

السلام عليكم مارايك لوغيرنا المعادلة : =(A1-50)*INDEX(KH_TEST;MATCH(A1;INDEX(KH_TEST;0;1));2) شاهد المرفق ط§ظ„ط¯ظ…ط؛ط©_1.rar

السلام عليكم حسب فهي للموضوع تفضل المعادلة: =IF(A1>=5000;(A1-50)*0.008;IF(A1>=1000;(A1-50)*0.0075;IF(A1>=500;(A1-50)*0.007;IF(A1>=250;(A1-50)*0.0065;IF(A1>=50;(A1-50)*0.006;0)))))

السلام عليكم تفضل المرفق ط§ظ„ط§ط³ظ…ط§ط،.rar

السلام عليكم تم التعديل عدد الطبقات 100 كحد اعلى عدد الاعمدة 255 كل الاعمدة ابتداءا من الثاني ويمكنك تحديد عدد الاعمدة التي تريد استخدامها في الخلية A111 يتم اظهار الصفوف والاعمدة المستخدمة فقط تفضل المرفق synoptique2.rar

السلام عليكم في المرفق الكود التالي: Sub ترحيل() Dim L As Integer, R As Integer, C As Integer, CC As Integer, RR As Integer L = Range("A" & Rows.Count).End(xlUp).Row With ورقة2 For R = 2 To L For C = 1 To 17 If Cells(R, 3).Value = .Cells(1, C).Value Then CC = .Cells(1, C).Column For RR = 3 To 33 If Cells(R, 2).Value = .Cells(RR, CC).Value Then .Cells(RR, CC + 1) = Cells(R, 4) .Cells(RR, CC + 2) = Cells(R, 5) End If Next RR End If Next C Next R End With MsgBox "تم الترحيل بنجاح", vbMsgBoxRtlReading + vbMsgBoxRight, "الحمدلله" End Sub Book1.rar

السلام عليكم تم التعديل على الكود Sub kh_ColorIndex() Dim MySheet_1 As Worksheet Dim MySheet_2 As Worksheet Dim I As Integer, J As Integer, K As Integer, R As Integer Dim Xpk1 As Integer, Xpk2 As Integer, Xpks As Integer Dim Xc '========================== Set MySheet_1 = ورقة1 Set MySheet_2 = ورقة2 R = MySheet_2.Range("A33").Row '========================== Application.ScreenUpdating = False kh_Color_None '========================== For I = 11 To MySheet_1.Range("B65535").End(xlUp).Row '---------------- With MySheet_1 Xc = .Cells(I, 2).Value Xpk1 = .Cells(I, 6).Value Xpk2 = .Cells(I, 7).Value End With '---------------- With MySheet_2 For J = 7 To 29 If .Cells(J, 1).Value = Xc Then For K = 2 To 92 Xpks = .Cells(R, K).Value Select Case Xpks Case Xpk1 To Xpk2 .Cells(J, K).Interior.ColorIndex = 45 End Select Next K End If Next J End With '----------------- Next I '========================== Application.ScreenUpdating = True End Sub تفضل المرفق synoptique_1.rar

السلام عليكم عن اذن اخي ايسم تفضل الحل بطريقة اخرى Book2.rar