mhrrd

في انتظارك با استاذ عبد الله جزاك الله خيرا

وكذلك الاسم والنوع جزاك الله خيرا معذرة للسهو مني

هذا هو الملف أخي الفاضل نقل بيانات.rar

وعليكم السلام ورحمة الله وبركاته ان شاء الله ساواقيك بالملف

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

اكواد العلامة عبد الله قمة لكني الاحظ عدم تقدم احد للنعديل

جزاك الله خيرا لماذا الغيبه يا اخي الفاضل

جزاكم الله خيرا

جزاك الله كل خير

هذا كود صغير وسريع ومفيد نستطيع استخدامة في فلترة الناجحين والراسبين والدور الثاني السؤال كيف يمكن نقل اعمده معينه بهذا الكود ثانيا .Range("J2").Value = "*" & [Grit] & "*" اريد شرح لهذا الكود

كيف يتم الاخفاء ؟

عظمة استاذنا عبد الله باقشير

جزاك الله خيرا

أفادكم الله لكن كيف تم ذلك في مرفق الاستاذ الخالدي

السلام عليكم الاستاذ الفاضل عبدالله باقشير عمل مميز يضاف الى اعمالك المميزة المتقنة == بارك الله فيك

بعد اذن حضراتكم كيف اغير موقع الصوره في الكارت

الله يحفظك يا استاذ سعيد

توجد ملحوظه مهمه فعلا وهي اننا نحتاج لارقام الجلوس وارقام السري في ورقة الشيت وربما مع وجود المجموعات المختلفه نخطئ في نقل هذه الارقام ولذا ارجو طريقه لنقلها في الشيت

بعد اذن حضراتكم كيف اغير موقع الصوره في الكارت

ملاحظة هامة يجب تغيير كود الفرز المربوط بزر فرز عكسي الى الكود ادناه في المرفقات اعلاه لان الكود السابق يفشل في عكس الفرز في بعض الحالات Sub kh_Sort() Dim c As Integer Static ibool As Boolean c = ibool + 2 With Range("I7:J7") Range(.Cells, .Cells.End(xlDown)).Sort .Columns©, xlAscending .Columns©.Activate End With ibool = Not ibool End Sub لو سمحت استاذ عبد الله ضعه في ملف لاني مش عارف

يزيدك اطمئنانا لدقة العمل وجزا الله استاذ عبد الله كل خير

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

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

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

فيه جهد مبذول بارك الله فيك أستاذ رجب