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

عادل حنفي

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

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

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

  • Days Won

    8

عادل حنفي last won the day on يونيو 8

عادل حنفي had the most liked content!

السمعه بالموقع

308 Excellent

8 متابعين

عن العضو عادل حنفي

  • الإسم الفعلي
    مدير قسم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدير مالي
  • بلد الإقامة
    مصر

وسائل التواصل

  • MSN
    adel.ali.hanafy@gmail.com
  • Website URL
    http://
  • Yahoo
    aah_aah2008@yahoo.co.uk

اخر الزوار

5,673 زياره للملف الشخصي
  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. الاخ ناصر سعيد اشكرك اخي علي كلماتك التي لا استحقها فنحن نقطة في بحر ثانيا الملف الذي تشير اليه لم يتم عمله بين يوم وليلة بل اخذ الكثير من الوقت وكان الوقت متاح لي مما جعلني اساهم في هذا الملف الشئ الذي افتقده حاليا ولو كان متاح لي هذا تاكد من انني لن اتاخر فاعذروني فانا اعلم الملف وما يحتاجه من وقت ومجهود لا املكه حاليا تحياتي
×
×
  • اضف...