اذهب الي المحتوي
أوفيسنا

عادل حنفي

المشرفين السابقين
  • Posts

    2,490
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    8

كل منشورات العضو عادل حنفي

  1. عذرا علي التاخير يمكنك ارسال ملف يحتوي علي عامودان الاول به اسم المادة والعامود الاخر به ما يقابلها في الخلايا المدمجة مثلا العامود الاول يكتب به قران والعامود المقابل يكتب به مادة القران الكريم وهكذا لكل المواد التي لا تتساوي مع ما يقابلها في الخلايا المدمجة وكذلك يجب معرفة المواد التي تشترك تحت مسمي واجد ذلك لمحاولة مساعدتك وتعديل الكود علي ذلك تحياتي
  2. الرقم في الخلية B2 مقرب الي ستة ارقام عشرية اما الرقم في الخلية B3 هو بالفعل ستة ارقام عشرية فيصبحا الخليتان متساويتان بالشكل وليس بالمضمون
  3. اخي اولا تم ازالة بعض الاعمدة لتوحيد النظام داخل الملف فقط ارجو التجربة في النلف المرفق تحياتي Copy of2 الجدول افقي.xlsm
  4. السلام عليكم الاخت الفاضلة هذا بالفعل ما اقصده المهم ان يكون اسماء المواد هو نقسه الموجود بالخلايا المدمجة
  5. اخي من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب
  6. اخي shehab elgar7i اشكرك اخي دعوتك اجمل هدية وكل عام وانت بكل بخير تحياتي
  7. اخي الان يمكنك البحث عن اللرقم الذي تريده من بداية الرقم الاول من علي اليسار او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار والكود هو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C3").Address Then If Target <> "" Then Range("C5:D1000").ClearContents s = Len(Range("C3")) If s > 0 Then x = 2 For i = 2 To 1000 If Sheets("Data").Cells(i, x) <> "" Then m = Sheets("Data").Cells(i, x).Address o = Left(Sheets("Data").Range(m), 1) oo = Left(Sheets("Data").Range(m), 2) ooo = Left(Sheets("Data").Range(m), 3) oooo = Left(Sheets("Data").Range(m), 4) ooooo = Left(Sheets("Data").Range(m), 5) oooooo = Left(Sheets("Data").Range(m), 6) ooooooo = Left(Sheets("Data").Range(m), 7) oooooooo = Left(Sheets("Data").Range(m), 8) If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then With Columns(4).Rows(2000).End(xlUp) .Offset(1, 0) = Sheets("Data").Cells(i, x) Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1) End With End If End If Next End If End If End If End Sub اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2 اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000 فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000 ارجو ان كون استطعت ايصال المعلومة تحياتي ارقام 2 (2).xlsm
  8. اخي جرب المرفق اكتب في الخلية C3 في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه ثم اضغط Inter ارجو ان يساعدك هذا تحياتي ارقام 2.xlsm
  9. جرب المرفق ولاحظ ان نتيجة الاستيراد ستكون بين التاريخان المسجلان وقد قمت ببعض التعديلات غلي شيت بيان العملاء تحسبا لوجود عميل له دفعات مقدمة Copy of وارد شهري الجارحي1.xlsm
  10. اخي جرفب المرفق غير فقط في الخلية B1 COPY-VBA.xlsm عذرا اخي وجيه فلقد كنت اعمل علي الملف ولمجرد رفعه شاهدت مشاركتك فارجو المعذرة
  11. اخي كل ما عليك التغيير في الليست الذي في الخلية C4 التي بها اسم العميل في شيت كشف حساب مع العلم ان البيانات التي سيتم استيرادها قد تم تفعيل شرط التاريخ اي سيتم استيراد البيانات التي تقع بين التاريخين الموجودين في شيت كشف حساب جرب المرفق Copy of وارد شهري الجارحي.xlsm
  12. الاخ ناصر سعيد اشكرك اخي علي كلماتك التي لا استحقها فنحن نقطة في بحر ثانيا الملف الذي تشير اليه لم يتم عمله بين يوم وليلة بل اخذ الكثير من الوقت وكان الوقت متاح لي مما جعلني اساهم في هذا الملف الشئ الذي افتقده حاليا ولو كان متاح لي هذا تاكد من انني لن اتاخر فاعذروني فانا اعلم الملف وما يحتاجه من وقت ومجهود لا املكه حاليا تحياتي
  13. السلام عليكم باختصار مافيش حلاوه من غير نار والموضوع مش صعب بس عايز شوية تعب في البدايه ومن اجل قراءة الكود لابد ان تعرفي الاساسيات في الاول مع شوية صبر بدون استعجال او احباط وداخل صفحات هذا المنتدي الكثير من الشروحات من الالف ال الياء بس الموضوع عايز شغل علي نفسك شويه بالقراءة وبعد هذا كله ياتي الدور عليكي في درجة الفهم مع القدرة علي تحليل المطلوب ان يقوم الكود بعمله والطريقة المثلي لعمل ذلك باقل سطور في الكود وده طبعا لن ياتي في البداية والي كل من يريد التعلم ابدا - اقرأ - ابحث - لا تتعجل - اصبر - لا احباطات -الخطأ تعلم منه - لايستطيع احد ان يعلمك كل شئ ولكن ممكن الكثير يجاوبك علي اسئلة تحتاج الرد عليها تحياتي
  14. كل عام وانت بكل خير اعاده الله علينا جميعا بالخير والسعادة
  15. استاذ علي محمد مشكور مرورك وكلماتك استاذ سليم حاصبيا كعادتك كود جميل وبدون استأذان اخي فالهدف واحد الاستاذ موسي انيس ان لم اخطئ في الاسم بالنسبة للكود ممكن ينفع بشرط معرفة درجة العشوائية وطريقة وجود الارقام بالملف الاساسي وكل عام وانتم بخير
  16. اخي ضع في الخلية B2 بداية الارقام وفي الخليةة B3 ضع الرقم الذي ستنتهي عنده الارقام ثم اضغط علي زر توزيع ارجو ان يكون المطلوب مصفوفة.xlsm
  17. اخي يوسف اسعدتني انك وجدت الحل علي دالة قام بعملها احد عملاقة هذا المنتدي والذي تعلمت منه كثيرا وهو ابو تامر كتبه الله له في ميزان حسناته وكتب الله لك حسنات من يسبفيد بملفك بخصوص ساقية توزيع الملاحظين من الجيد ان اعلم انه مازال يعمل بالرغم من قيامي وقتها بعمل اجزاء فيه لم اكن مقتنعا بعملها لكنها كانت تحل بعض المشاكل وقد كان الوقت هذه الايام به من الفراغ ما يسمح لعمل ذلك اما الان احاول وجود الوقت للمشكلات السريعة الحل قدر الامكان خالص تحياتي ولكل اسرة هذا المنتدي العظيم وكل عام وانتم بخير
  18. ارقع ملقا لصفحة البيانات التي سيملأ بها الاخلاء
  19. الان فهمت ماتريده تقريبا وقد تذكرت دالة كان عاملها القدير ابو تامر اسمها VLOOK2ALL ولكن يشترط نقل العامود الذي تضع فيه 1 للعد قبل عامود رقم الجلوس والدالة مرقفة في الملف في مديول جرب كده اعتقد انها ستحل المشكلة دليل التظريف.xlsm
  20. السلام عليكم اخي يوسف انا حاولت في ملفك علي حسب درجة فهمي للموضوع ووجدت حلا لا ادري اذا كان هذا الحل يفيد ام لا ارجو تجربة الملف واخبرني بملاحظاتك تحياتي دليل التظريف.xlsm
  21. اخي اخي Ali Mohamed Ali مشكور علي كلماتك ومرورك اخي اخي lookalone بارك الله فيك وكل عام وانتم بخير
×
×
  • اضف...

Important Information