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

الحمد لله الذي بنعمته تتم الصالحات .. والحمد لله أن تم المطلوب على خير .. تقبل تحياتي : أخوك في الله أبو البراء

بارك الله فيك أخي وحبيبي في الله شوقي ربيع جربت الملف نفس المشكلة التي حدثت بالموضوع الآخر .. لم يظهر شيء .. إنت حليت المشكلة المرة السابقة ولم تذكر أين كان الخطأ ؟؟؟ يرجى بعد التعديل تبيين الخطأ .. والذي يؤدي لعدم عمل الملف بشكل طبيعي ؟

الأخت الكريمة أم ندى (لم ألاحظ أن طالب السؤال أنثى وإلا لكنت امتنعت عن الإجابة ..أكيد بهزر اوعي تاخدي الكلام جد ) بالنسبة للكود المرفق Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 11 And Target.Column = 14 Then Application.ScreenUpdating = False With Sheets("مطالبات") LR = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Cells(LR, 1).Value = Target.Offset(, -10).Value .Cells(LR, 2).Value = Target.Offset(, -12).Value .Range("A2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End With Application.ScreenUpdating = True End If End Sub حاولي أن تفهمي الأسطر وإن شاء الله تستطيعي التعديل عليه بكل سهولة Target.Column = 14 دا رقم العمود المراد العمل عليه N .. لو أردتي العمل على عمود آخر وليكن العمود P هتشوفي رقمه وتبدلي رقم 14 برقم العمود الجديد (اللي هو في الحالة دي رقم 16) بالنسبة للسطر ده .Cells(LR, 1).Value = Target.Offset(, -10).Value الدالة Offset بتعمل إزاحة ابتداء من الخلية التي يتم الكتابة فيها .. والإزاحة عكسية ولذلك هي بالسالب ... ببساطة لو هتكتبي في الخلية N12 مثلا ..هتبدأي تعدي بشكل عكسي لحد ما توصلي لعمود الأسماء .. قومي بالعد من العمود N إلى عمود الأسماء (البداية قبل العمود N وليست البداية العمود N) هتلاقي إنه تمت الإزاحة بمقدار 10 لحد ما وصلنا لعمود الأسماء ... يبقا لو حبيتي تغيري التعامل مع العمود عشان يكون التعامل مع العمود P هتحسبي الإزاحة هتلاقيها 12 فيصبح السطر بهذا الشكل .Cells(LR, 1).Value = Target.Offset(, -12).Value نفس الكلام مع السطر اللي بعديه الخاص برقم القرار سيصبح بهذا الشكل .Cells(LR, 2).Value = Target.Offset(, -14).Value أرجو أن أكون وفقت في توصيل المعلومة تقبلي تحياتي

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

الأخ الحبيب هشام أشكرك على كلماتك الرقيقة التي لا أستحقها ... دعنا نلقي نظرة مبدئية أولا على الملف ... في ورقة العمل المسماة (حافظة تسليم الشيكات) لاحظت أنك وضعت حافظة استلام الشيكات 4 مرات !! وسؤالي لما لا تكون حافظة واحدة ، ويمكن استخدام معادلات Vlookup لتغيير محتويات الحافظة !!! دي نقطة مهمة ثانيا ..المطلوب غير واضح بالنسبة لي (أو قد يكون سهل ممتنع ولا أدري) ثالثا بالنسبة لتكرر الصفوف هذا أمر أعتقده سهل من خلال التبويب Page Layout انقر على Print Titles ستجد Rows to repeat at top ثم بجانب هذا الحقل سهم أحمر انقر عليه وحدد الصفوف التي تريد تكرارها .. رابعا .. ما هو المطلوب بالضبط ؟ هل تريد ضبط ورقة العمل المسماة (حافظة تسليم الشيكات) لتكون جاهزة للطباعة ؟ أم تريد أن تقوم بطباعة كل حافظات التسليم ؟ أعتقد أن الأمر مبهم إلى حد كبير !!!!!!!!!!!!!!!!!!!!! اعذرني للإطالة

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

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

جرب بنفسك وشوف .. غير زي ما إنت عايز (جمد قلبك متخافش ..الموضوع بسيط) وارفع شعار حاول وافشل ..حاول وافشل .. ولا تكف عن المحاولة ، فيكفيك شرف المحاولة

الأخ الحبيب الغالي والأستاذ الكبير شوقي ربيع أعتذر لعدم رؤيتي لمشاركتك .. إذا حضر شوقي ربيع بطل ياسر خليل تقبل تحياتي

جرب أخي الكريم المرفق التالي تسجيل.rar

والله أنا محتار إزاي أشتغل ؟؟ .. أنت تريد أن يكون الترتيب على أساس خلية واحدة أم أكثر من خلية ؟ أنت مشكورا قمت بالتوضيح مرتين ولكن الصورة غير مكتملة أمامي .. أنت تريد أن تكون الثلاثة خلايا بها بيانات وفي نفس الوقت تقول تريد أن يكون الترتيب على أساس خلية واحدة أو خليتين ؟!! الكلام يبدو لي غير منطقي بعض الشيء .. عموما أنا وضعت حجر الأساس .. وننتظر مساهمات الأعضاء فيما يخص هذه النقطة .. اعذرني لعدم اكتمال الفكرة لدي جرب المرفق التالي عله يفي بالغرض محاولة بس مش عارف إذا كان دا اللي تقصده ولا لا نموذج ترشيحات العاملين للبرامج التدريبي7.rar

بالنسبة لترتيب العمليات الحسابية .. الأولوية بتكون للأس .. ثم للأقواس .. ثم الضرب والقسمة سواء .. ثم الجمع والطرح سواء مثلا لو قلنا 35 + 2 * 3^2 بتسير العملية الحسابية بهذا الشكل .. 35 + 2 * 9 (تم التعامل مع الأس أولا ) 35 + 18 (تم التعامل مع الضرب ثانياً) وأخيرا الجمع فيكون الناتج 53 أرجو أن أكون وفقت في توصيل المعلومة

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

الأخ الحبيب PMembers-3 شكرا على المعلومة الخاصة بأسماء الأعضاء الأخ الكريم Members-1 الحمد لله أن تم المطلوب ولكن يرجى بعد ذلك إرفاق ملف أفضل .. ووضع الكود بين أقواس الكود <> تظهر في المحرر بهذا الشكل تقبلوا تحياتي

ارفق ملفك أخي الفاضل

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

أخي الكريم أنت طلبت في المشاركة رقم 3 (لا يسمح ان تكون خليه منهم فارغة) ولذك وضعت الشرط ألا تكون أي خلية فيهم فارغة !!!! وضح بالضبط مقصودك .. حيث أنه حدث معي ارتباك نوعاً ما .. ما المتوقع بالضبط؟

اطلع عل هذا الموضوع أولاً http://www.officena.net/ib/index.php?showtopic=57813&hl=%D8%AA%D9%84%D9%88%D9%8A%D9%86 تقبل تحياتي

الأخ الفاضل أشرف شرفت المنتدى ونورت بين إخوانك وفي انتظار المزيد من مشاركاتك القيمة إليك المرفق التالي عله يفي بالغرض ww.rar

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

جرب الكود بهذا الشكل Sub oddinho2z() Dim X As Long, Y As Long X = 5: Y = 5 Range("BU7:BU169,BV7:BV169").Copy Range("DC7").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(, 1).Select X = X - 10 If X = 0 Then GoTo 1: Exit Sub Loop ActiveCell.Select ActiveSheet.Paste 1 Range("H7:H169,I7:I169").Copy Range("KF7").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(, 1).Select Y = Y - 10 If Y = 0 Then Exit Sub Loop ActiveCell.Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

هي تبقا خالتك ولا أختك (ما علينا ) المهم سلم لي عليها جرب الكود التالي في حدث الورقة ..كليك يمين على اسم الورقة ثم View Code Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A1:E5")) Is Nothing Then With Range("G1") .Formula = "=SUM(A1:E1,A3:E3,A5:E5)+2" .Value = .Value End With End If End Sub والصق الكود .. تحياتي

أخي الحبيب أبو عيد أعتقد أنها مشكلة في ضبط الإعدادات الإقليمية للجهاز من داخل الويندوز من لوحة التحكم انقر Region and Language وآخر تبويب في النافذة Administrative ثم Change System Locale ثم اختر اللغة العربية Arabic ثم قم بعمل ريستارت للجهاز .. وشوف هتضبط معاك أم لا

الأخ الفاضل بوجي مرحبا بك في المنتدى ونورت المنتدى وشرفت بين إخوانك بس ينفع تيجي المنتدى من غير طمطم (كدا أنا أزعل ..عموما ابقا سلم لي عليها) جرب الكود بالشكل التالي Sub Happy() With Range("G1") .Formula = "=SUM(A1:E1,A3:E3,A5:E5)+2" .Value = .Value End With End Sub

عدل الكود في الموديول بالشكل التالي Sub SortData() Dim LR As Long, X As Long, Y As Long, Z As Long LR = Range("A" & Rows.Count).End(xlUp).Row If IsEmpty(Range("M1")) Or IsEmpty(Range("M2")) Or IsEmpty(Range("M3")) Then Exit Sub X = Application.WorksheetFunction.Match(Range("M1").Value, Range("A4:M4"), 0) Y = Application.WorksheetFunction.Match(Range("M2").Value, Range("A4:M4"), 0) Z = Application.WorksheetFunction.Match(Range("M3").Value, Range("A4:M4"), 0) Range("A4:M" & LR).Sort Key1:=Range(Cells(4, X), Cells(LR, X)), Order1:=xlAscending, Key2:=Range(Cells(4, Y), Cells(LR, Y)), Order2:=xlAscending, Key3:=Range(Cells(4, Z), Cells(LR, Z)), Order3:=xlAscending, Header:=xlYes End Sub وعدل الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRng As Range Dim Col As Range If Not Intersect(Target, Range("M1:M3")) Is Nothing Then Call SortData End If If Intersect(Target, Range("M4:M500")) Is Nothing Then Exit Sub Application.EnableEvents = False Application.Calculation = xlManual Application.ScreenUpdating = False With Target Range("M4:M500").EntireRow.Hidden = False For Each Col In Range("M4:M500") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else Set MyRng = Union(MyRng, Col) End If Next If Not MyRng.Offset(1, 0) Is Nothing Then MyRng.Offset(1, 0).EntireRow.Hidden = True End With Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub