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

احمدزمان

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

    4,122
  • تاريخ الانضمام

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

  • Days Won

    10

احمدزمان last won the day on October 13 2016

احمدزمان had the most liked content!

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

270 Excellent

عن العضو احمدزمان

  • الرتبه
    مدير قسم الإكسيل
  • تاريخ الميلاد 10 يون, 1976

Profile Information

  • Job Title
    تاجر
  • Location
    KSA
  • Interests
    السيارات و المركبات

اخر الزوار

3,701 زياره للملف الشخصي
  1. عدم التكرار في ثلاث أعمدة

    تفضل اخي الفاضل تم التعديل للعمل على اعمدة الرقم فقط عدم التكرار في ثلاث اعمدة مختلفينAZ.rar
  2. و عليكم السلام و رحمة الله وبركاته مرفق حل باستخدام الدوال بيانات موظفين.rar
  3. عدم التكرار في ثلاث أعمدة

    و عليكم السلام و رحمة الله وبركاته اخي الفاضل محمد سامر لم استطع التعديل على الكود الموجود ولكن عملت كود آخر - - آمل ان يفي بالمطلوب 'On Error Resume Next Dim RN1 As Range, RN2 As Range Dim Q1 Set RN1 = Range("b7:b18,h7:h18,m7:m18") Q1 = Range(Target.Address) For Each RN2 In RN1 If Q1 <> "" And RN2.Address <> Target.Address And RN2 = Q1 Then MsgBox "ÇáÇÏÎÇá : " & Target.Value & " ãßÑÑ ÓíÊã ÍÐÝå ", vbMsgBoxRight, "ÇÏÎÇá ãßÑÑ" Cells(Target.Row, Target.Column).Select Selection = "" Exit Sub End If Next عدم التكرار في ثلاث اعمدة مختلفينAZ.rar
  4. السلام عليكم و رحمة الله وبركاته في المرفق اضغط على ADD DATA يتم اضافة البيانات امام رقم الشيك من الخلايا الزرقاء Sub ماكرو1() ' الماكرو مسجل ‎09/08/2017 بواسطة ‎Zmn ' Dim Q1, ER, RR Dim FS As Worksheet, TS As Worksheet ' Set FS = Sheets("Cheque Form") Set TS = Sheets("Cheque Book") Q1 = FS.Range("L2") ER = TS.UsedRange.Rows.Count For RR = 5 To ER If TS.Cells(RR, 2) = Q1 Then FS.Range("M2:T2").Copy TS.Cells(RR, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next MsgBox "DUN" End Sub ترحيل شيك.rar شوف المرفق به افكار قد تفيدك
  5. تحويل محتوى الصف إلى عمود والعكس

    و عليكم السلام و رحمة الله وبركاته بعد النسخ تختار الخلية الأولى محل اللصق ثم كليك يمين من الماوس ثم تختار لصق خاص ثم تختار تبديل موضع كما في الصورة ثم موافق
  6. مساعدة في عمل نطاق مطاطي

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

    و عليكم السلام راجع الرابط التالي https://www.officena.net/ib/topic/57813-تحديد-صف-وعمود-الخلية-النشطة-تلوين-العمود-والصف-باستخدام-التنسيق-الشرطي/ للأستاذ الفاضل و القدير ابو البراء جزاه الله كل خير
  8. وعليكم السلام المشكلة في تسمية النطاقات حيث انك زدت بيانات جديدة في هذا الملف عن الملف السابق تم التعديل يحسب الأن الملف حتى الصف خمسة و خمسون الف للفواتير و اربعة الآف للمشتريات مع التحية الخلاصةaz - تعديل11.rar
  9. معادله اليحث عن كلمه في جمله

    يوجد الدالة SEARCH وهي تعمل نفس عمل الدالة FINDولكن هي اوسع من ناحية التحسس لحالة الأحرف يمكن تجاهل الهمزة مثلا لحرف الألف =========================== كما ذكرت في المثال السابق الدالة SEARCH لافرق لديها بين كبتال او سمال
  10. و عليكم السلام بعد تفعيل الماكرو اضغط زر تحديث اعلى ورقة الخلاصة تظهر لك البيانات Sub ALKULASAH() Sheets("ÊÌãíÚ ÇáÝæÇÊíÑ").Range("A2:B5555"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange _ :=Range("A2:B2"), CopyToRange:=Range("A2:B5555"), Unique:=True End Sub الخلاصةaz - تعديل.rar
  11. و عليكم السلام ورحمة الله وبركاته لرفع الملف اضغط الملف ببرنامج RAR او ZIP ثم ارفعه في المشاركة
  12. وعليكم السلام و رحمة الله وبركاته شاهد الحل المرفق آمل ان يكون هو المطلوب تمت اضافة عمود = متوسط سعر الشراء الخلاصةaz.rar
  13. ترحيل من خلية الى خلايا بشرط

    السلام عليكم ورحمة الله وبركاته اخي الفاضل حسن ليس لها اي دور انا وضعتها في البداية لأنني كنت متوقع ان استخدمها - ولم استخدمها ونسيت حذفها عند الإنتهاء
  14. اخي ابو اسحاق كلامك صحيح ولكن اذا اوضحت ماتريد عمله فعلا بمثال قد يكون هناك حلول اخرى يتكرم بها احد الأعضاء تكون غائبه عنا
  15. و عليكم السلام لصق القيم ممكن الكود التالي Selection.PasteSpecial Paste:=xlPasteValues اما القص و النسخ لا ادري
×