ياسر خليل أبو البراء

بارك الله فيك أخي وحبيبي في الله عبد الباري كنت في بالي والله .. غبت عننا ليه لعله خير إن شاء الله ننتظر تواجدك معنا وبيننا

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

الأخ الكريم أبو يوسف لم ترفق ملف فعملت على الملف المرفق الذي تفضل به الباشمهندس طارق النتائج في العمود L ..تم عمل كود ليجمع البيانات من الأعمدة ثم حذف الأرقام التي لا تطابق الشرط Sub CopyAllToOneColumn() Dim lCol As Long, lRow As Long Dim LR As Long, I As Long Dim Cell As Range LR = Cells(Rows.Count, 2).End(xlUp).Row lRow = 2 Application.ScreenUpdating = False Range("L2:L1000").ClearContents For lCol = 2 To 10 Cells(lRow, 12).Resize(LR - 1).Value = Range(Cells(2, lCol), Cells(LR, lCol)).Value lRow = Cells(Rows.Count, 12).End(xlUp).Row + 1 Next lCol For I = lRow - 1 To 2 Step -1 If Len(Cells(I, 12)) <> 9 And Len(Cells(I, 12)) <> 12 Then Cells(I, 12).Delete Shift:=xlUp End If Next I Application.ScreenUpdating = True End Sub تقبل تحياتي Delete Numbers Based On Length.rar

كلامك صحيح أخي سليم في هذه الحالة جرب الكود بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 2 Then If IsEmpty(Target) Then Cells(Target.Row, 3).Value = "" Cells(Target.Row, 4).Value = "" ElseIf Not IsEmpty(Target) And Not IsEmpty(Cells(Target.Row, 3)) And Not IsEmpty(Cells(Target.Row, 4)) Then Exit Sub Else Cells(Target.Row, 3).Value = Date Cells(Target.Row, 4).Value = Time End If End If End Sub جرب وأخبرني بالنتيجة

أخي الكريم أقترح طرح موضوع جديد مع إرفاق ملف للتوضيح

أخي الكريم الملف يحتاج لوقت لدراسته .. إن شاء الله تجد المساعدة من الأخوة الأعضاء .. وبعدين مفيش حد زعلان منك أبداً تقبل تحياتي

الأخ الحبيب بكري حاولت ووصلت لبعض النتائج لكنها غير مرضية سأحاول مجدداً إن شاء الله

أخي الكريم أبا اسماعيل اعرف التوجيهات وحدد أفضل إجابة ليظهر الموضوع منتهي تقبل تحياتي

بارك الله فيك أخي صلاح الصغير وجزيت خيراً أخي الحبيب تعديل بسيط جداً بحيث عندما يتم مسح محتويات الخلية يتم مسح التاريخ والوقت المرتبط به Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 2 Then If IsEmpty(Target) Then Cells(Target.Row, 3).Value = "" Cells(Target.Row, 4).Value = "" Else Cells(Target.Row, 3).Value = Date Cells(Target.Row, 4).Value = Time End If End If End Sub تقبل تحياتي

الاخ الكريم رجب الكود شغال بشكل طبيعي ، لكن تكمن المشكلة في الملف نفسه الأخ صاحب الملف عامل حاجة اسمها Print Area هتقوم بالغاء الـ Print Area من التبويب Page Layout ثم Print Area ثم Clear Print Area نفذ الكود وشوف النتيجة ، ومتنساش تدعي لي يا رجب

أخي الحبيب الزباري حبذا لو أفردت موضوع كامل تفيد فيه إخوانك بهذا الأمر طالما أن لديك خبرة فيه ، حيث أنني لاحظت أن الأسئلة قد كثرت حول هذا الأمر ويا ريت يكون بالتفصيل ويكون فيه البرنامج الذي أشرت إليه .. وربنا يتقبل منكم ويجعله في ميزان حسناتك إن شاء الله وجزاكم الله خيراً .. في انتظار ابداعاتك

أخي الكريم عمرو طلبة الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير .. ومشكور على انهاء الموضوع بالشكل المناسب تقبل تحياتي

الأخ الكريم مروان الالتزام بالتوجيهات مطلوب يرجى اختيار أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. تقبل تحياتي

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

الأخ الفاضل أبو البراء إليك الملف التالي عله يفي بالغرض R&L.rar

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

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

أخي الحبيب أبو يوسف لم أطلع على الملف بعد ..لكن لي سؤال ماذا تقصد بعملية الفرز هل تقصد الترتيب ؟ وما مصير الأرقام التي لا تطابق الشرط هل تحذف؟

أخي الفاضل سلامة يرجى تحديد الخلية أو الخلايا المراد نقلها أو ترحيلها من المصنف 1 إلى المصنف 2 .. وليست الملفات أوراق عمل (شيتات) المرفق عبارة عن ملفين أو مصنفين وداخل المنصف الأول 1 يوجد 3 أوراق عمل (شيتات) ،وداخل المصنف 2 يوجد ورقتي عمل عموما لابد من التوضيح لعملية ترحيل البيانات من أي خلايا وإلى أي خلايا

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

الاخ الكريم محمود 1980 .. سهلة جداً أضف سطر واحد بسيط في نهاية الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 2 Then Call Test End If Cancel = True End Sub اكتشف السطر بنفسك تقبل تحياتي

أخي الكريم مصطفى يرجى تكبير حجم الخط قليلاً (النظر ضعيف ..) وأمر آخر لا تكتب كلمة طلب أو مساعدة أو عاجل أو أي من هذه الكلمات في عنوان الموضوع (تم التعديل وحذف كلمة طلب) جرب هذا الكود ..يقوم بطباعة الأوراق المخفية والظاهرة ..جميع أوراق العمل كافة Sub Print_Hidden_And_Visible_Worksheets() Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible .Visible = xlSheetVisible .PrintOut .Visible = CurVis End With Next sh End Sub تقبل تحياتي

أخي الفاضل مروان إنت ليه عملت حساب جديد !! كان من المفترض إنك تعدل الحساب القديم وتغير اسم الظهور فقط عموما بالنسبة لطلبك في منتهى البساطة ..لو إنت عايز صفحة واحدة فقط من صفحات ورقة العمل .. تحدد النطاق للصفحة الأولى المراد عمل تصدير لها وتروح للتبويب Page Layout ثم تختار Print Area ثم تختار Set Print Area وأخيراً نفذ الكود صراحة حاولت في ملفك ولكن يبدو أن الملف به أمر غير طببيعي ولم أدرك ما هي مشكلته فقمت بتجربة الكود في ملف مرفق من عندي ليتضح لك أنه يمكنك تصدير صفحة واحدة فقط من صفحات ورقة العمل Save First Page Of Worksheet As PDF.rar

وانا ميرضنيش أبدأ أزعل أبو زيد ربنا يبارك لك فيه ويجعله ذرية صالحة .. تقبل تحياتي

الأخ الفاضل أبا اسماعيل شوف الفيديو التالي فيه حل لمشكلتك