أبوبسمله

جزاك الله كل خير عمل ميل ومتقن من اخ مبدع جعله الله فى ميزان حسناتك تقبل تحياتى ووافر الاحترام والتقدير

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

اخى ارفق الملف النهائى حتى يستفيد منه باقى الاعضاء بالتوفيق

جزاك الله خيرا استاذنا تقبل تحياتى

اخى الفاضل فى ملف عاندى ان شاء الله هرفقه بكره لانه على الجهاز التانى ويدوب اروح انام دلوقتى علشان الشغل لاظهار الملفات الاصليه قبل الاصابه بالفيرس او قم بالبحث فى جوجل عن اى برنامج لاظهار الملفات الاصليه قبل الاصابه بفيرس شوف برنامج او شرح وان شاء الله خير وترجع ملفاتك اخى

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

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

حمدالله على السلامه اخى على نورت المنتدى من تانى ياريت تحضر معانا دايما كده وترجعوا ايام زمان جزاك الله كل خير اخى

ان شاء الله ربنا يسر الامر يا ابو البراء ربنا يوسعها عليك ويرزقك من حيث لاتحتسب وجزاك الله كل خير على ما تقدمه لنا من تيسير وتسهيل المعلومه للجميع

رائع كعادتك اخى سليم جزاك الله خيرا تقبل تحياتى

اخى الفاضل محمد الكود خاص بالجداول المحوريه ضع الملف الموجود به الكود وان شاء الله نحاول نشوفلك شرح مبسط ليه او احد اخواننا الافاضل يشرح الكود بالتوفيق اخى

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

ههههههههههه حبيبى لما شيلته لاقيته حددلى العمودين بالكامل فوضعته للتركيز على الحقل f9 بعد الانتهاء من عمل الكود جزاك الله كل خير

جزاك الله خيرا اخى ياسر ولاثراء الموضوع الطريقه اليدويه بالتوفيق

اهلا بك فى بيتنا الثانى اوفيسنا نرجو منك فضلا لاامرا ان تغير اسمك للغه العربيه وان تقوم بفتح موضوع اخر واسال به ما شئت وارفق به الملف الذى به المشكله حت تجد المساعده التى ترجوها بالتوفيق اخى

اتفضل اخى هو نفس الكود لكن باعد تعديل الفاصله للفاصله المنقوطه انسخ من الاقتباس وان شاء الله يظبط معاك جزاه الله كل خير ابو البراء

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

يالا ياعم هيجوزك اهو شاكلنا معدناش شايفينك ههههههه الحكومه هتسجنك فى البيت مع ايقاف الكمبيوتر ههههههههههه

ههههههههههههههههههه حبيبى ناقصنا العربى ربنا ييسر له امره ويهون عليه اشغاله ربنا يحفظكم ويبارك فيكم

هل جربت اخى وليد تقوم باللصق ام لا

تم التعديل جزاك الله خيرا لا تعلم مدى سعادتى وانا بعدل وبحاول احل استفسار Sub رصد_سرى() Dim LR As Long Columns("D:F").Select Selection.EntireColumn.Hidden = False 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 Columns("B:D").EntireColumn.Hidden = True Range("F9").Select End Sub تمنياتى لك بالتوفيق والنجاح بارك الله فيك يا ابوالبراء Yaser_SORT.rar

جزاك الله كل خير تسلم ايدك ياغالى انا عملتلك نيش مخصوص للاعجابات بما إن إحنا مشهورين بالاثاث ههههههههههههه حبيبى يا ابوالبراء

تمام يا ابو البراء وكده صاحب الموضوع معدلوش حجه الكود بعد التعديل للاخفاء والتجربه شغال زى الفل Sub ÑÕÏ_ÓÑì() Dim LR As Long Columns("D:F").Select Selection.EntireColumn.Hidden = False 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 Columns("B:D").Select Selection.EntireColumn.Hidden = True Range("F9").Select End Sub والمرفق جزاك الله كل خير اخى الغالى Yaser_SORT.rar

هههههههههههههههه انا اسف اخى عبده الزهايمر هيشتغل باين كده اتفضل ياغالى http://www.dev-point.com/vb/t385482.html تقبل تحياتى

تمام يا ابوالبراء جزاك الله كل خير