بحث مخصص من جوجل فى أوفيسنا
Custom Search
  • اعلانات

    • محمد طاهر

      الكلمات المفتاحية   10 يون, 2017

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

عادل حنفي

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

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

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

  • Days Won

    7

عادل حنفي last won the day on June 3 2016

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

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

255 Excellent

7 متابعين

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

  • الرتبه
    مدير قسم

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مدير مالي
  • Location
    مصر

Contact Methods

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

اخر الزوار

4,522 زياره للملف الشخصي
  1. اخي الرسائل التي تاتيك اكيد المشكلة منلاعندك سواء بالنسبة لملف او بالنسبةلالملفراخي عبد السلام فقد حملته وليس به مشكلة اما بخصوص انك لا تستطيع الكتابه وهذا لسببين الاول ان الكود يعمل لمجرد تحدد اي خلية فينشط الحماية مرة اخري اماىالثاني فهل لاحطت ان التاريخ الموجود بالشيت هو لشهر مايو راجع الملف المهمةان يحقق مطلبك لالاقفال الخلايا يكونى مضبوط ثم سيكون ضبط اي شيئ اخر بسيط تحياتي
  2. اخي اسلام تم استخدام نفس فورم الاستغلام لمعرفة ماتريده وذلك عند اختارك لقبض وصرف جرب المرفق تحياتي وارد-صادر2.rar
  3. السلام عليكم احسنت اخي عبد السلام فكرة ملفك قريبة جدا من ملفي مع العلم تم التجربة السريعة مادة الحاسب الآلي القاضي2.rar
  4. اخي ان كنت فهمت ما تقصده ستكون المعادلة كالتالي =(G7*I7)+(H7*I7)
  5. اخي عبد السلام تسلم اديك هذه المعادلة ستكون بالفعل افضل حل في حالة ثبات وعدم تفاوت السعر تحياتي
  6. اخي جرب المرفق لعله يكون المطلوب سعر البنزين.rar
  7. السلام عليكم اخي وبعد اذن الاخوة المشاركين اولا تم تنفيذ المطلوب بالكود ثانيا لابد وان يكون شرط التسلسل عامود اخر غير عامود المسلسل كعامود الاسم مثلا ففي حالة عدم وجود اسم او الصف تم اخفاؤه فلن يتم عمل مسلسل له جرب الملف واتمني ان يفيدك في غملك تحياتي PROBLEM.rar
  8. هحاول افهم الموضوع ماشي ازاي وان شاء الله ربنا يسهل
  9. اخي جرب الملف المرفق وعلي الله يفي بالغرض فالمشكلة حاليا في وجود الوقت مع صفاء الذهن جربه الساقية.rar
  10. جرب الملف تم التعديل MultiCat UDF Function2.rar
  11. طب استسمحك تتركه لي الآن وسوف اكمله لك في اقرب وقت ان شاء الله
  12. عذرا اخي صلاح ضعها قبل الـ End if التي قبلها مباشرة وانا معاك ملحوظة تم تعديل الكود السابق وهو الان ليس به مشكلة
  13. اخي صلاح تمام الحمد لله ضع فقط Exit sub في الكود في منتصف الكود تقريبا وقبل السطر التالي End if If Target.Column = 8 And Target.Row > 3 And Target <> "" Then ليكون الكود بالشكل التالي ولو فيه اي شيئ اخبرني Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 4 And Target.Row > 3 And Target <> "" Then If Range("B4") = "" Then m = 4 Else m = Range("B3").End(xlDown).Row n = Target.Row End If v = Application.WorksheetFunction.CountIf(Range("B4:B" & m), Target.Text) If v = 0 Then With Columns(2).Rows(500).End(xlUp) .Offset(1, 0) = Target End With m = Range("B3").End(xlDown).Row s = Range("B4").Address ss = Cells(m, 2).Address ActiveWorkbook.Names.Add Name:="Rng", RefersTo:="=" & ActiveSheet.Name & "!" & Range(s, ss).Address End If Exit Sub End If If Target.Column = 8 And Target.Row > 3 And Target <> "" Then If Selection.Columns.Count > 1 Then Exit Sub Cells(Target.Row, Target.Column + 1) = "" m = Range("D3").End(xlDown).Row For i = 4 To m If Cells(i, 4) = Target Then If Cells(Target.Row, Target.Column + 1) = "" Then 'or i < m Then Cells(Target.Row, Target.Column + 1) = Cells(i, 5) Else Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) & " " & "¡" & " " & Cells(i, 5) End If End If Next End If
  14. عذرا اخي الفكره كلها في حرف P اخذفه من السطر الرابع ستحل المشكلة ان شاء الله وسيكون الكود علي الشكل التالي والشكر موصول للاخ عمر الحسيني Private Sub CommandButton1_Click() Dim Sh As Shape For Each Sh In ActiveSheet.Shapes If Sh.Type = msoAutoShape Or Sh.Type = msoTextBox Then Sh.Delete Next Sh End Sub
  15. السلام عليكم اخي اسلام تم عمل المطلوب مع محاولة ان يكون الامر سهل بالنسبة لك وان يكون بقدر الامكان علي اكمل وجه عموما انا لم اجربه الا علي بيانات بسيطة فقم بالتجربه والامر بعد ذلك بسيط ان شاء الله لانه تم عمل الصعب والموضوع رلا يحتاج لشرح فقط اضغط علي زر استعلام واختار ماتريد الاستعلام عنه المهم جرب واخبرني النتيجة تحياتي وارد-صادر.rar