رجب جاويش

السلام عليكم أخى الفاضل ما رأيك فى هذه الفكرة للمبدع الأستاذ / عبد الله باقشير ashraf.rar

أخى الفاضل / ابو يحي سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب ولكن برجاء الإهتمام بهذه النقطة فى المرات القادمة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أخى الفاضل / كريم شكرا جزيلا أخى الفاضل على سرعة الإستجابة وجزاك الله كل خير

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

واذا كان مطلوب مجموع أكبر 4 درجات مجموع أعلى 4 درجات.rar

بعد إذن إخوتى الأفاضل لاثراء الموضوع أعلى 4 درجات.rar

السلام عليكم أختى الفاضلة / أم عبد الله تسلم ايديكى أخى الفاضل / سليم تسلم ايديك ولإثراء الموضوع هذا حل آخر بدون أعمدة مساعدة استدعاء الاسماء حسب سن معين3.rar

أخى الفاضل / طلعت محمد حسن جزاك الله كل خير

أخى الفاضل أولا : مرحبا بين إخوانك عضوا جديدا فى منتدى أوفيسنا العريق ثانيا : لك منى دعوة طيبة بتغيير اسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثالثا : سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب ولكن برجاء الإهتمام بهذه النقطة فى المرات القادمة رابعا : يفضل دائما ارفاق ملف للعمل عليه قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

أخى الفاضل / اشرف أرجو ارفاق ملف للعمل عليه

أخى الفاضل أولا : مرحبا بين إخوانك عضوا جديدا فى منتدى أوفيسنا العريق ثانيا : لك منى دعوة طيبة بتغيير اسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثالثا : سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب ولكن برجاء الإهتمام بهذه النقطة فى المرات القادمة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أخى الفاضل / عادل ابوزيد جزاك الله كل خير على هذه الكلمات العطرة والدعاء الطيب

أخى الفاضل / علاء أولا : مرحبا بين إخوانك عضوا جديدا فى منتدى أوفيسنا العريق ثانيا : لك منى دعوة طيبة بتغيير اسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثالثا : المفروض أن يتم تغيير عنوان الموضوع ليناسب محتوى الطلب ( فأرجو توضيح طلبك حتى يتم تغيير العنوان ) وبرجاء الإهتمام بهذه النقطة فى المرات القادمة رابعا : يفضل ارفاق ملف توضح به ما تريد حتى يمكن العمل عليه قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أستاذى الحبيب / عبد الله باقشير جزاك الله كل خير

أخى الفاضل / سعد عابد جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة

أخى الفاضل / سليم اقتراح جميل وإن شاء الله أحاول تنفيذه

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

أخى الفاضل / عادل جزاك الله كل خير فى هذه الحالة يكون الكود كالآتى Sub نسخ() Set ws1 = Sheet1 Set ws2 = Sheet2 ws2.UsedRange.Clear x = 4 With ws1 LR = .Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False .Range("b" & x & ":h" & LR).Copy End With With ws2 .Range("b" & x).PasteSpecial xlPasteValues .Range("b" & x & ":h" & LR).PasteSpecial xlPasteFormats End With Application.CutCopyMode = False Application.ScreenUpdating = True Set ws1 = Nothing Set ws2 = Nothing End Sub

السلام عليكم أخى الفاضل / سعد عابد تفضل ما تريد Sub ragab() Dim i As Integer Dim x As Integer Dim LR As Integer Dim cl As Range Dim arr() As Variant '========================================= Set WF = Application.WorksheetFunction '========================================= For x = 0 To 2 LR = Cells(Rows.Count, x + 1).End(xlUp).Row For Each cl In Range("A1:A" & LR).Offset(0, x) If Not IsEmpty(cl) Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = cl End If Next Range("A1").Offset(0, x).Resize(LR).ClearContents Range("A1").Offset(0, x).Resize(i) = WF.Transpose(arr) Erase arr i = 0 Next End Sub ازالة الفراغات2.rar

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

أخى الفاضل / عادل جزاك الله كل خير فى هذه الحالة يكون التعديل كالآتى Sub نسخ() Set ws1 = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") ws2.UsedRange.Clear x = 4 With ws1 LR = .Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False .Range("b" & x & ":h" & LR).Copy End With With ws2 .Range("b" & x).PasteSpecial xlPasteValues .Range("b" & x & ":h" & LR).PasteSpecial xlPasteFormats End With Application.CutCopyMode = False Application.ScreenUpdating = True Set ws1 = Nothing Set ws2 = Nothing End Sub

أخى الحبيب / محمود الشريف جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة تقبل أرق تحياتى وتقديرى

أخى الحبيب / محمود الشريف جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

أخى الفاضل / أبو إيمان لاحظ توقيت المشاركتين ( نفس التوقيت )