ياسر خليل أبو البراء

أخي الكريم الفلاحجي ..نيش فايدة فيك لازم تهزر وتخليني أهزر ونقلب الموضوع من هزار لهزار تقبل تحياتي

وجزيت خيراً أخي الكريم رضا على دعواتك الطيبة .. ولك بمثل إن شاء الله بس هحاول إني أخبي الدعاء بتاعك عشان الحكومة ممكن تاخدني مخالفة (الحكومة الأولى الجزء الخاص بزواج الأبكار .. والحكومة التانية الجزء الخاص بالجيوش) تقبل وافر تقديري واحترامي

أخي الكريم الفلاحجي حاول تبتعد عن تحديد أوراق العمل أو النطاقات باستخدام كلمة Select >> مثلاً في الكود الأخير المرفق منك Columns("B:D").Select Selection.EntireColumn.Hidden = True يمكن أن يكون بهذا الشكل بشكل مباشر Columns("B:D").EntireColumn.Hidden = True أكمل التعديل .. وملحوظة أخرى عند النسخ من المصنف للمنتدى يراعى أن يكون اتجاه الكتابة باللغة العربية حتى تظهر حروف اللغة العربية بشكل سليم تقبل تحياتي

جرب المعادلة التالية في الخلية B2 =DEC2BIN(MOD(QUOTIENT(A2,256^3),256),8)&DEC2BIN(MOD(QUOTIENT(A2,256^2),256),8)&DEC2BIN(MOD(QUOTIENT(A2,256^1),256),8)&DEC2BIN(MOD(QUOTIENT(A2,256^0),256),8)

وعليكم السلام أخي الغالي أبو يوسف وجزيت خيراً على دعواتك الطيبة والحمد لله على تواجدك بين إخوانك .. افتقدنا وجودك في الفترة الأخيرة ، فلا تحرمنا من تواجدك بيننا تقبل وافر حبي واحترامي

وجزيت خيراً بمثل ما دعوت لي أخي الحبيب الفلاحجي ، وجزيت خيراً أخي الغالي أبو يوسف على الإعجابات التي سينفذ رصيدها منك من كثرة استخدامها تقبلوا وافر تقديري واحترامي

أخي الكريم رضا وعليكم السلام ورحمة الله وبركاته جرب الخطوات التالية في الصور ----------------------------------

أخي الكريم أهلا بك في المنتدى ونورت بين إخوانك اعمل كليك يمين على الخلية أو الخلايا التي تحدث بها مشكلة وتأكد من تنسيق الخلية Format Cells وتأكد أن الخيار General هو الخيار المفعل أو ارفق ملف لتتضح صورة المشكلة تقبل تحياتي

هل الملف الآخر ملف إكسيل .. يرجى توضيح المشكلة بشكل أوضح لتجد المساعدة من إخوانك بالمنتدى

جرب التالي =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)

أخي الكريم أحمد في الكود الأخير لم أتطرق لموضوع الإخفاء للأعمدة إنما قمت بترتيب البيانات على أساس الرقم السري وقط يمكن إضافة أسطر للإخفاء ... الموضوع بسيط (سجل ماكرو لتعرف شكل السطر للإخفاء)

أخي الكريم الغالي ياسر العربي كثر المنادون عليك فهلا أجبت لهم النداء .. !

إذا كان على شغل العفاريت فأنا بقالي نص ساعة بدور على موضوع الأسبوع اللي فات "استخراج الصور" ومش لاقيه .. يبدو أنه حذف عن طريق الخطأ .. المشكلة مش في كدا ..دخلت على الموضوعات المحذوفة مش لاقيه .. يبدو إنه فيه فعلاً قطط تتح بتلعب في المنتدى !! ربنا يستر وميجبوش ضلفها

أخي الكريم احمد جرب الكود التالي ولكن قبل التنفيذ قم بتنسيق الأعمدة في الورقة الهدف أي الورقة التي سيتم نقل البيانات إليها بالشكل الذي تريده Sub PasteRowDelete() Application.ScreenUpdating = False With Worksheets("البيانات") .Rows(ActiveCell.Row).Copy Sheets("ما تم حذفه").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues .Rows(ActiveCell.Row).Delete Shift:=xlUp Sheets("البيانات").Select End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

تم الرد على موضوعك أخي الحبيب ناصر سعيد .. تقبل تحياتي

أخي الكريم ناصر شوف الملف التوضيحي ده Watch.rar

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

شرفتم الموضوع إخواني وأحبابي في الله .. والحمد لله أن نال إعجابكم وأرجو أن تستفيدوا منه

الطريقة الجديدة بها عيب وهو أنك إذا كنت فاتح مصنفين في نفس الوقت وأوراق العمل في المصنفين باسم مختلف .. عند الذهاب إلى المصنف الآخر يقوم بجلب اسم ورقة العمل في المصنف الآخر .. أي أنها مرتبطة بورقة العمل النشطة لأي مصنف مفتوح وليس للمصنف الحالي فقط

جرب الكود التالي لعله يفي بالغرض Sub SortData() Dim LR As Long With Range("C1", Range("C" & Rows.Count).End(xlUp)) LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))") End With Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo End Sub أعتذر عن عدم المتابعة حيث أنني ما زلت أشعر ببعض التعب والإرهاق

بصراحة أنا تايه في الملفات المرفقة وأنا مشتت الذهن أصلاً .. ممكن ترفق ملف أخير يكون فيه عمود السري مش مترتب عشان أقدر أجرب عليه ... معلش تعبتك معايا

أخي الكريم أحمد أليس هذا هو الكود الذي أرفقته ؟؟ Sub رصد_سرى() Columns("D:F").Select Selection.EntireColumn.Hidden = False With ActiveWorkbook.Worksheets("ادخال درجات دور ثان").Sort End With Columns("B:D").Select Selection.EntireColumn.Hidden = True Range("F9").Select End Sub أين الترتيب في الكود ..مجرد كلمة Sort .. من غير أي تحديد للعمود الذي سيتم الفرز والترتيب على أساسه ؟ أعتذر لعدم متابعتي الموضوع من البداية .. وبالفعل أنا من الأمس وأنا متعب ومرهق للغاية ..ونمت بالأمس باكر حتى أستطيع أن أستعيد نشاطي .. أرجو توضيح المطلوب بدقة مرة أخرى .. هل المطلوب الترتيب على أساس عمود السري وفقط ؟ أم إخفاء لأعمدة محددة وما هي الأعمدة؟ ويا ريت نركز على مطلوب واحد فقط حتى لا أتشتت

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

يرجى تحديد الخطأ الذي يظهر معك بنسخ السطر الأصفر في مشاركة مع ذكر نوع الخطأ الذي يظهر في رسالة الخطأ ويرجى ذكر إصدار الأوفيس لديك أخي الكريم أحمد .. هل قمت بعملية الترتيب على أساس الرقم السري أم مجرد إخفاء للأعمدة ؟

يمكن تصميم رأس وتذييل الصفحة كصورة ويتم إدراجها وبالتالي لا يمكن التعديل على الصورة الموجودة ..