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

سباق دائما يا ابن مصر ... تسلم وربنا يبارك فيك لو الناس متابعة الحلقات .. كانت عرفت تجاوب على الموضوع ده بكل بساطة لكن للأسف مفيش متابعة الناس ماشية بمبدأ (ليه أتعب نفسي وأتعلم لما ممكن أدخل على أوفيسنا وآخد اللي أنا عايزة وأجري ..)

تفضل أخي الحبيب أبو حنين Auto Sort YasserKhalil.rar

تفضل أخي الغالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 91 Then If Target.Column = 37 Then Sheets("ELS").Cells(Target.Row - 86, "P").Value = Sheets("ELS").Cells(Target.Row - 86, "N").Value Sheets("ELS").Cells(Target.Row - 86, "N").Value = Sheets("ELS").Cells(Target.Row - 86, "L").Value Sheets("ELS").Cells(Target.Row - 86, "L").Value = Sheets("ELS").Cells(Target.Row - 86, "J").Value Sheets("ELS").Cells(Target.Row - 86, "J").Value = Sheets("ELS").Cells(Target.Row - 86, "H").Value Sheets("ELS").Cells(Target.Row - 86, "H").Value = Target.Value End If If Target.Column = 38 Then Sheets("ELS").Cells(Target.Row - 86, "Q").Value = Sheets("ELS").Cells(Target.Row - 86, "O").Value Sheets("ELS").Cells(Target.Row - 86, "O").Value = Sheets("ELS").Cells(Target.Row - 86, "M").Value Sheets("ELS").Cells(Target.Row - 86, "M").Value = Sheets("ELS").Cells(Target.Row - 86, "K").Value Sheets("ELS").Cells(Target.Row - 86, "K").Value = Sheets("ELS").Cells(Target.Row - 86, "I").Value Sheets("ELS").Cells(Target.Row - 86, "I").Value = Target.Value End If End If End Sub

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

كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 Then If Target.Column = 4 Then Target.Offset(, -1).Value = Target.Value End If End If End Sub

اضغط دبل كليك على Sheet1 من نافذة المشروع ستجد الكود ......... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 Then If Target.Column = 2 Then Sheets("Sheet2").Cells(Target.Row, "M").Value = Sheets("Sheet2").Cells(Target.Row, "K").Value Sheets("Sheet2").Cells(Target.Row, "K").Value = Sheets("Sheet2").Cells(Target.Row, "I").Value Sheets("Sheet2").Cells(Target.Row, "I").Value = Sheets("Sheet2").Cells(Target.Row, "G").Value Sheets("Sheet2").Cells(Target.Row, "G").Value = Sheets("Sheet2").Cells(Target.Row, "E").Value Sheets("Sheet2").Cells(Target.Row, "E").Value = Target.Value End If If Target.Column = 3 Then Sheets("Sheet2").Cells(Target.Row, "N").Value = Sheets("Sheet2").Cells(Target.Row, "L").Value Sheets("Sheet2").Cells(Target.Row, "L").Value = Sheets("Sheet2").Cells(Target.Row, "J").Value Sheets("Sheet2").Cells(Target.Row, "J").Value = Sheets("Sheet2").Cells(Target.Row, "H").Value Sheets("Sheet2").Cells(Target.Row, "H").Value = Sheets("Sheet2").Cells(Target.Row, "F").Value Sheets("Sheet2").Cells(Target.Row, "F").Value = Target.Value End If End If End Sub

مرفق للعمل عليه .سيسهل الوصول لحل

بدون مرفقات لن يستطيع أحد تقديم المساعدة بالشكل المناسب

=COUNTA(C6:C16) بس خلاص

أما إذا كنت تقصد أن تلم شتات الخلايا الغير فارغة فإليك الملف التالي Extract Non-Blank Cells.rar

بفرض أن البيانات في العمود A قم بكتابة المعادلة التالية في أي مكان في ورقة العمل ما عدا العمود A بالطبع ضع المعادلة في B1 مثلا =COUNTA(A:A)

الأخ الفاضل ... أحمد جرب الملف التالي ويا رب يفي بالغرض Move Data To Another Sheet Using Worksheet_Change.rar

أخي الفاضل تفضل المعادلة لملفك بهذا الشكل : =OFFSET(PRIX!$B$2,,,COUNTA(PRIX!$B:$B)-1) كما تلاحظ لابد من الإشارة إلى اسم ورقة العمل في المعادلة ، كما يجب أن تكون مراجع الخلايا ثابتة أي قبلها علامة الدولار $ وكذلك عند الإشارة للعمود B ... قم بعدم تفعيل الخيار Use Relative References من التبويب Developer

تصدق مفهمتش ! آه والله زي ما بقولك كدا إنت عايز ترحل الفاتورة لفين ؟؟ وترحل ايه فيها ؟؟ يا ريت توضح لأني مفهمش لغة الفواتير أفهم لغة الإكسيل بس ..

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

بدل زر الأوفيس هتلاقي كلمة File فوق شمال على ما أعتقد .. وهتلاقي لما تفتح قايمة File هتلاقي خيارات الإكسيل Excel Options

يرجى من المشرفين تغيير عنوان الموضوع لأنه مخالف (في المنتديات الأجنبية لا يتم الرد على هذا النوع من المواضيع نظرا لمخالفة العنوان لقواعد المنتدى ))!! بعد إذ أخي وحبيبي في الله سليم إليك الملف التالي ... يتم الترحيل للعمود الذي بعده (العمود E) مش العمود C.... Transfer To New Column.rar

وضح بمثال كلامك ليتضح المقال وإن شاء الله كل شيء ممكن

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

لا يمكن عمل ذلك بدوال الإكسيل أي لا يمكن عمل ذلك بالمعادلات - على حسب علمي - جرب هذا السطر من الكود بكل بساطة Sub MoveIt() Cells(9, "G") = Cells(9, "H"): Cells(9, "H").ClearContents End Sub

مشكور أخي رامي .. انقر تمت الإجابة .. تقبل تحياتي

قم بالنقر على زر الأوفيس Office Button (فوق شمال ركز) وبعدين Excel Options وبعدين Trust Center في الناحية الشمال وبعدين Trust Center اللي هتظهر لك في الناحية اليمين وبعدين انقر Privacy Options من الناحية الشمال (هدوخك معايا معلش) وآخر حاجة شيل علامة الصح من الخيار أو الخص (مش هتفرق كتير) الخيار المسمى Remove Personal Information وبعدين أوك مرتين .. واحفظ ملفك وادعي لي (ومتنساش تدعي لي ..مش هسامحك لو نسيت)

أخي هذا السطر من الكود يقوم بإضافة ورقة عمل مع تسميتها أيضاً Sub CreateNewSheet() Sheets.Add.Name = "Test" End Sub ولو مش عاجبك إنك تسمي الورقة (يمكن عايزها كدا وخلاص ) جرب السطر التالي Sub CreateNewSheet() Sheets.Add End Sub ولو الأكواد دي لم تؤدي الغرض وضح بشكل تفصيلي وبملف مرفق اللي إنت عايزه

اذهب للتبويب Formulas ثم Name Manager وشوف أسماء النطاقات (حوالي 5 نطاقات) .. هذه النطاقات هي التي تلعب الدور في معرفة الخلية إذا كانت تحتوي على معادلة أم لا

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