عبدالله المجرب

اخي ايهاب ارجو منك ارسال صورة مثل هذه وسأقوم بالتعديل على الكود * الكود يعتمد على الارقام الافتراضية لاوراق العمل ولا يعتمد على الاسم والورقة المستثناه من الاخفاء هي الورقة ذات التسلسل 1 ابواحمد أوفيسنا.bmp

إذاً خذ المرفق وإدعي لي ابواحمد أوفيسنا.rar

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

اخي حسن اليك المرفق ابواحمد الحركة العامة للمستأجرين.rar

اخي الفاضل الية عمل المعادلة IF هي الشرط فان تحقق الشرط تكتب نتيجة معينة وان لم يتحقق الشرط تكتب نتيجة معينة والمعادلة المستخدمة في العمود الإضافي هي =IF(E8=D8;"a";IF(E8=C8;"b";IF(AND(E8<=C8;E8>D8);"c";"d"))) وتتجزاء الى الشرط (اذا كان قيمة خلية الناتج تساوي قيمة خلية الحد الادنى) IF(E8=D8 والنتيجة اذا تحقق الشرط (ترجع قيمة الخلية لحرف a ;"a" والنتيجة اذا لم يتحقق الشرط IF(E8=C8;"b";IF(AND(E8<=C8;E8>D8);"c";"d")) فان تحقق الشرط كان بها والا ننتقل الى معادلة IF الاخرى وهي IF(E8=C8;"b";IF(AND(E8<=C8;E8>D8);"c";"d")) وبنفس الطريقة في المعادلة السابقة ولكن اذا لم يتحقق الشرط ينتقل الى معادلة IF الثالثة وهي IF(AND(E8<=C8;E8>D8);"c";"d")) وهنا تم استخدام الدالة AND لوضع شرطين لا بد من تحققهما حتى يتحقق الشرط وهما ان قيمة خلية الناتج اصغر من او تساوي خلية الحد الاعلى والثاني ان قيمة خلية الناتج اكبر من خلية الحد الادنى. وفي حال لم يتحقق الشرط ترجع القيمة d بالنسبة لسؤالك عن السحب فيمكنك السحب ابواحمد

تفضل المرفق ابواحمد زيادة التاريخ.rar

من تنسيق الخليه اختر خلايا ومن تبويب رقم اختر التاريخ ثم نموذج تاريخ الهجري وسيكون كل شيء على ما يرام

الاستاذ نارت شكراً لك واتمنى ان كان لك ملاحظات للتطوير فلا تبخل علينا سلمك الله. اخي جمال الفار شكراً لمرورك ابواحمد

اخي حسن تفضل المرفق بعد التعديل عليه ابواحمد زيادة التاريخ.rar

اخي ايهاب وضح اكثر كيف يتم الاظهار ليتم الاخفاء مجدداً ام هل تريد زر للاظهار وزر للاخفاء (اوراق محددة) ابواحمد

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

وهذا كود آخر لاظهار الورق المخفي حتى لو كان الاخفاء بالكود Sub OFFICNA1() For i = 1 To Sheets.Count If Sheets(i).Visible = 0 Then Sheets(i).Visible = 1 End If If Sheets(i).Visible = 2 Then Sheets(i).Visible = 1 End If Next i End Sub

اخي ايهاب جرب هذا الكود Sub OFFICNA() For i = 1 To Sheets.Count If Sheets(i).Visible = False Then Sheets(i).Visible = True End If Next i End Sub ابواحمد

اخي الفاضل جرب المرفق والرجاء ابداء الراي ابواحمد ابواحمد.rar

اخي حسن يمكن عمل ذلك ولكن لي عدة استقسارات هل يتم ربط الشرط بخلية حالة العقد فاذا كانت منتهية يتم الكتابة منتهي ام ان يتم ربط الشرط بإنتهاء مدة الوقت المحدد؟ راجع ورقة هاني حمدان - النادر فحالة العقد منتهي والعقد صالح حتى 30/05/1433 !!!! ولنا لقاء بإذن الله ابواحمد

انتظرني الى الغد بإذن الله وان كان هناك احد الاخوة يقدم المساعدة كان بها والا موعدنا في الغد بإذن الله ابواحمد

هذا هو الكود Sub OFFICNA() Dim LR As Long, LR2 As Long, ws As Worksheet, ws2 As Worksheet Set ws = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") LR = ws.Range("a" & Rows.Count).End(xlUp).Row LR2 = ws2.Range("a" & Rows.Count).End(xlUp).Row If ws.Range("a2").Value = "" Then MsgBox ("لا توجد بيانات لترحيلها") Else ws.Range("a2:b" & LR).Copy ws2.Range("a" & LR2 + 1) ws2.Select End If End Sub هذا الجزء لتعريف أوراق العمل وتعريفها برمز إختصار اخترت ان يكون ws و ws2 Set ws = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") هذا لتحديد أخر صف فيه بيانات في ورقة العمل المعرفة اختصاراً ws والتي هي Sheet1 LR = ws.Range("a" & Rows.Count).End(xlUp).Row هذا لتحديد أخر صف فيه بيانات في ورقة العمل المعرفة اختصاراً ws2 والتي هي Sheet2 LR2 = ws2.Range("a" & Rows.Count).End(xlUp).Row هذا شرط عدم الترحيل اذا كانت الخلية A2 فاضية وتظهر رسالة تنبيه بعدم التنبيه If ws.Range("a2").Value = "" Then MsgBox ("لا توجد بيانات لترحيلها") في حال عدم تحقق شرط خلو الخلية A2 من البيانات يتم تنفيذ هذا الجزء وهو الخاص بعملية نسخ المدى A2: B مرتبطة بأخر صف فيه بيانات LR ويتم لصقها في ورقة البيانات المسمية WS2 في المدى A وأول صف فارغ في الورقة المرحل اليها ws2 ws.Range("a2:b" & LR).Copy ws2.Range("a" & LR2 + 1) هذا الجزء لاختيار ورقة العمل ws2 بعد الانتهاء من الترحيل ws2.Select ان شاء الله اكون وفقت في الشرح أما بالنسبة لطلبك فهو غير واضح؟؟

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

اخي عبيد لا يمكن ان اتمكن من تقديم المساعدة دون ملف لذا حاول ان ترفق ملف ابواحمد

تهور أردوغان؟ طارق الحميد بعد التصعيد التركي تجاه إسرائيل على خلفية رفض تل أبيب الاعتذار لأنقرة بعد الاعتداء على سفينة الحرية التركية التي توجهت لغزة، السؤال اليوم هو: هل تهور رئيس الوزراء التركي؟ وهل هو أردوغان عبد الناصر؟ من الصعب الإجابة بـ«نعم» أو «لا»، إلا أن هناك معطيات توحي بأن التحرك التركي قد يكون محسوبا، ومبنيا على متغيرات المنطقة، وزلزالها السياسي. فمن يرصد الأحداث جيدا يجد أمورا عدة، أهمها أن التصعيد التركي ضد إسرائيل يأتي في الوقت الذي قررت فيه تركيا الخروج عن حيادها وسمحت بنشر الصواريخ الأميركية الموجهة ضد إيران على أراضيها، وهذا ما يفسر التصعيد الإيراني ضد تركيا حديثا. وكما قال لي وزير خارجية عربي «أهم شيء في السياسة هو التوقيت»، فأنقرة تخلت عن نظرية «تصفير المشاكل» غير الواقعية، وأعلنت عدم الحياد تجاه طهران. وهذا أمر مهم جدا، وله دلالات كثيرة، خصوصا بعد استهداف الجماعات الكردية لأنقرة، وهو ما يبدو تصعيدا ضد تركيا عقابا لها على مواقفها تجاه نظام الأسد الذي يواجه ثورة شعبية. ومهم أن نتذكر هنا أنه بينما رفضت تركيا بالأمس مساعدة جورج بوش لتمرير قواته عبر الأراضي التركية إبان حربه على العراق، فإنها - أي أنقرة - تساعد أوباما اليوم بنشر صواريخه التي تستهدف ردع إيران، وهذه رسالة تركية جادة لإسرائيل، وتحديدا عسكرها، مفادها أن أنقرة لن تذهب بعيدا في تجميد علاقاتها بتل أبيب، فنشر الصواريخ على الأراضي التركية يعني أن أنقرة تقدم خدمة كبيرة لإسرائيل التي تصعد ضد المشروع النووي الإيراني. وهذا ليس كل شيء بالنسبة للموقف التركي تجاه إسرائيل، فأنقرة مستفيدة أيضا، حسابيا، من رياح التغيير في المنطقة، على عكس طهران. ولا يهم إن توترت علاقة أنقرة بتل أبيب الآن، فتركيا طرف فاعل في «الناتو» الذي تصدى لجنون القذافي، وأوغلو كان من أوائل من زاروا بنغازي بعد تحرير طرابلس، كما أن تركيا غير متضررة من التغيير في مصر، بل تستفيد كلما تعزز موقع الإخوان المسلمين هناك، وأنقرة لم تعد مشغولة بملف الوساطة السورية - الإسرائيلية، فوضع الأسد لا يساعد على ذلك اليوم، خصوصا وهو أقرب للسقوط، ولا ضرر على الأتراك من ذلك، كما أن بقاء الأسد يعني أنه سيكون ضعيفا ومعزولا وسيحتاج إلى تركيا، وليس العكس. كما أن تركيا أيضا ليس لها أي دور في وساطة فلسطينية مع إسرائيل، وخصوصا أن محمود عباس يتأهب لمعركة مهمة في الأمم المتحدة من أجل الاعتراف بالدولة الفلسطينية هذا الشهر، وحماس «الإخوانية» مددت هدنتها مع إسرائيل، رغم كل محاولات تفجير غزة دفاعا عن الأسد، هذا فضلا عن أن إسرائيل هي من يعيش عزلة دولية اليوم. وبالطبع فإن تركيا ترى - وهذا أمر واضح للعيان - أن هناك فراغا إقليميا كبيرا قد يخولها القيام بلعب دور قيادي تتوق له أنقرة، وعلى حساب العرب وإيران. لذا، فأيا كان حجم الاستغراب من التصعيد التركي تجاه إسرائيل، فيجب تأمل المعطيات المتعلقة بتركيا جيدا، فقد لا يكون أردوغان متهورا، وإن بدا وكأنه أردوغان عبد الناصر!

اخي الفاضل يجب ضغط الملف بوينرار او وينزيب قبل رفعه سؤال : هل الخانات بتاع التاريخ مرتبطه بمعادلات؟ هل توجد اكواد في الملف ؟ والله الموفق. ابواحمد

الاخوة الكرام جمال الفار (النشيط) بن عليه (الفنان الهادى) احمد فضيلة (المبدع الغائب) كفيتم ووفيتم وانتم مثال رائع للتنافس في السبيل لرفعة هذا المنتدى. حفظكم الله ابواحمد

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

أخي ياسر شكراً لمرورك وانا بإنتظار ملاحظاتك وملاحظات الاخوة الكرام ابواحمد

استاذ احمد اخجلتمونا فهذا بعض بعض بعض ما عندكم بارك الله فيك على هذا التشجيع والدعم شكراً لك اخي إيهاب ابواحمد