أبوبسمله

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

كلامك صحيح يا ابو البراء ومحدش زعلان لاننا نعتبرك اخونا الكبير وكذلك معلمنا الجليل جزاك الله كل خير والاخ محمد يعلم انك تود الصالح له بالتعلم وان شاء الله نكون عاند حسن ظنك يا ابو البراء تقبل تحياتى ووافر الاحترام والتقدير اخى محمد اتبع الروابط وصدقنى ستجد بها ما يسرك انا مثلك مبتدىء بالتعليم فى 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 تقبل تحياتى

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

هههههههههههههههه ضحكتنا يا ابو البراء وفعلا انا بصيت بصه ملقتوش اخى عبد العزيز هذا رابط التحميل مقسم على 3 اجزاء اختار الميديا فاير ولما تخلص ملف اعمل رستارت للروتر بتاعك علشان تحمل الملف التانى على طول وهكذا لحاد ما تخلص 3 اجزاء بالتوفيق اخى وده رابط تانى هنا بالمنتدى http://www.officena.net/ib/topic/67344-نسخة-فيجوال-بيسك-2010-كامله/?do=findComment&comment=437711 بالتوفيق اخى عبدالعزيز

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

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

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