أبوبسمله

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

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

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

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

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

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

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

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

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

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

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

جزاك الله خيرا على التوضيح يا ابوالبراء وهل لها علاج ياغالى حبيبى الغالى

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

العفو اخى وليد ربنا معاك بالتوفيق

اتفضل رابط الفيديو https://www.youtube.com/watch?v=HGXF8CXvcCs

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

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