احمدزمان

متابع

فضلا الرد

و عليكم السلام و رحمة الله وبركاته اخ mjeid حسب فهمي لطلبك هنا لا نحتاج فلترة ولكن نحتاج كود ترحيل من كل صفحة الى صفحة اسم صاحب الطلب و يفضل في هذه الحالة تغيير اسم الورقة من طلبات احمد الى اسم احمد او تغيير اسم الطالب في اوراق طلبات 1 و 2 و 3 من احمد الى طلبات احمد لكي يسهل عمل الكود هذه وجهة نظر و الله اعلم

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

و عليكم السلام و رحمة الله وبركاته كما فهمت تريد التقريب للربع الأدنى بمعنى مضاعفات 0.25 جرب هذه الداله =CEILING($A$1-0.2;0.25) حيث ان الدالة CEILING تقرب للأعلى لذلك نخصم من الرقم 0.2 لكي يقرب الى الأعلى و نصل للنتيجة المطلوبة

السلام عليكم و رحمة الله وبركاته ThisWorkbook ThisWorkbook هذا الملف الحالي - زتستخدم لكي لا يتم تشغيل الكود على ملف آخر Worksheets("Step Up Feature") اسم الورقة المطلوب العمل عليها او الرجوع لها Loop Until كرر العملية المذكورة سابقا الى ان يتحقق الشرط - ويذكر الشرط بعدها وهنا ذكر الشرط مع OR اي انه تتكرر العملية الى ان يتحقق واحد من الشروط التالية اتمنى ان اكون اوضحت لك المطلوب

hgsghlالسلام عليكم و رحمة الله جرب هنا الملف المضغوط Rar جدول-تصفية-AZ.xls جدول-تصفية-AZ.rar

السلام عليكم و رحمة الله وبركاته شكرا لك و جزاك الله خيرا عمل رائع الله لا يحرمك اجره

آمين واياك تعديل ممتاز و في مكانه

السلام عليكم و رحمة الله جرب المرفق Sub Import_Invoice() Dim FS As Worksheet, TS As Worksheet Dim FR, TR, Q1, Q2, Q3 Set TS = Sheets("Invoice1") Q1 = TS.Range("A9") Q2 = TS.Range("F4") TR = 15 Set FS = Sheets(Q1) For FR = 6 To 333 If FS.Cells(FR, 3) = Q2 Then TR = TR + 1 TS.Cells(TR, 1) = FS.Cells(FR, 2) TS.Cells(TR, 3) = FS.Cells(FR, 4) TS.Cells(TR, 4) = FS.Cells(FR, 5) TS.Cells(TR, 5) = FS.Cells(FR, 6) TS.Cells(TR, 6) = FS.Cells(FR, 4) End If Next MsgBox "ÇáÍãÏááå" & " " & Q1 & " " & Q2, , "Êã" End Sub AZ_المسري1.xls

يجب ان تتطابق مسميات الخلايا لأول صف في الجداول الثلاثة مثال جدول البيانات الأول مكتوب في الخانة ((اسم الموظف)) اذا كتبت في الجدول الآخر مكن استخراج البيانات كلمة ((اسم)) فقط لن يتم استخراج البيانات بمعنى يجب ان تتطابق تماما حتى في المسافات بين الكلمات و غير ذلك و لا يشترط تطابق التنسيقات

اضغط على زر تسلسل يتم الفرز من الأصغر الى الأكبر AZ موافقات.rar

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

السلام عليكم و رحمة الله و بركاته تم عمل كود VB جرب المرفق الترتيب حسب اولوية الطلب.xls

السلام عليكم تم التعديل على الملف المشكلة في التسميات لرأس الجدول و الكود نطاق الإخراج صغير جدول-تصفية-AZ.xls

السلام عليكم و رحمة الله وبركاته يمكنك استخدام الدالة =HYPERLINK("C:\") وهنا يمكنك فتح المجلد =HYPERLINK("E:\ARCIVING\Scan Arciving\Company Staff")

السلام عليكم و رحمة الله وبركاته بعد الشكر الجزيل لأخي نبيل على الحل الرائع جزاه الله خيرا هذه فكرة اخرى للحل تعدد الأفكار يفيد الجميع ا شاء الله ممكن تضع التنسيقات في ورقة اخرى تضع التنسيق الحالي و التنسيق المطلوب اثناء الطباعة يقوم الكود بنسخ التنسيق فقط ووضعه للخلايا التي تم تحديدها وطبع الخلايا التي تم تحديدها ثم ينسخ التنسيق القديم و وضعه للخلايا التي تم تهديدها كما في المرفق حدد الصفوف التي تريد طباعتها شرط ان تكون من a الى G فقط ثم اضغط زر الطابعة طباعة-تغيرالتنسيق - ارجاع التنسيق السابق AZ.xls

شكرا لك

اخي الفاضل اعطني ملف به مثال لما تريد عمله مع الشرح و احاول انا عمل الكود

يارب

السلام عليكم انته ممكن تعمل التالي في كود تحدد النطاق الي عاوز تطبعه تغيير تنسيقه كما تريد تطبع تعيد التنسيق للوضع السابق تنهي الكود

السلام عليكم و رحمة الله وبركاته اخي الفاضل كما فهمت ان المطلوب التخلص من الدوال و استبدالها بقيم للنطاق الظاهر امامك على الشاشة بعد عمل التصفية ولا يتم استبدا الدوال للصفوف المخفية مع التصفية جرب هذا الكود Sub az1() ' ' 16/02/2018 AZ ' Dim RN As Range Range("$A$2:$U$9").AutoFilter Field:=1, Criteria1:=">0" Range("A2:U9").SpecialCells(xlCellTypeVisible).Select For Each RN In Selection If RN.HasFormula = True Then RN = RN.Value End If Next End Sub

ماشاء الله تبارك الله

طيب جرب كده ATTENDANCE ALL STAF.xls

السلام عليكم و رحمة الله وبركاته صباح الخير =IF($E6="";INDEX('ATTENDANCE '!$L$1:$L$999;MATCH($B6;'ATTENDANCE '!$B$1:$B$999;0));"") ATTENDANCE ALL STAF.xls