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

جرب الكود بهذا الشكل Sub ClearExceptFormulas() Union(Range("D10:I49"), Range("I50:I53")).SpecialCells(xlCellTypeConstants).ClearContents End Sub

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

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

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

أعتقد أنه تم تقديم الحلول لهذا الموضوع

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

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

الأخ الكريم عبد الرحمن يرجى وضع الأكواد بين أقواس الأكواد لتظهر بشكل منضبط كما سترى في مشاركتي يوجد في المنتدى موضوع مشابه تماماً لطلبك فقط تعديل بسيط ليتم المطلوب إليك الكود بشكل منضبط ليظهر بشكل يسهل على الأعضاء الإطلاع عليه Sub ImportData() Dim WB As Workbook, myRng As Range Dim myRow As Long Dim shMain As Worksheet Application.ScreenUpdating = False Set shMain = ThisWorkbook.ActiveSheet Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & "1.xlsx") Set myRng = WB.ActiveSheet.Range("D12:G" & WB.ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row) On Error Resume Next With shMain myRng.Copy .Range("D12").PasteSpecial xlPasteValues End With myRng.ClearContents WB.Close True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub يوضع الكود في المصنف رقم 2 والمراد استيراد البيانات إليه ثم يتم مسح البيانات من المصنف رقم 1 كما طلبت لا تنسى تحديد أفضل إجابة كما لا تنسى أن تضغط على كلمة "أعجبني هذا " في المشاركة التي تعجبك تقبل تحياتي Work.rar

أخي الكريم مجدي إليك الملف الأصلي الذي أرفقته الملف المضغوط باسم "نموذج إستمرارية عمل" قم بفك الضغط عنه ستجد مصنفين أحدهما باسم "نموذج إستمرارية عمل" والآخر باسم "ملف البيانات" قم بفتح المصنف الذي يحتوي الكود "نموذج إستمرارية عمل" وغير الرقم في الخلية B1 ولاحظ النتائج نموذج إستمرارية عمل.rar

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

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

أخي الكريم يرجى يرجى يرجى (3 يرجى) تغيير اسم الظهور للغة العربية يرجى الالتزام بالتوجيهات من خلال قراءة رابط التوجيهات في الموضوعات المثبتة بالمنتدى يرجى وضع الكود بين أقواس الكود ليظهر بشكل منضبط كما يتم في مشاركتي بعد قليل يرجى معرفة مصدر الكود - لأني أول مرة أشوف حاجة اسمها Worksheet_open مفيش حدث اسمه كدا قمت بإزالة الأجزاء الغير ضرورية بالكود والتي ليس لها فائدة والابقاء على ما يؤدي الهدف فقط جرب الكود التالي Private Sub Workbook_Open() With Range("A1", Cells(Rows.Count, "A").End(xlUp)) Range("B1").Resize(.Rows.Count).Value = .Value End With End Sub يوضع الكود في حدث المصنف أي Workbook لا تنسى أن تحدد أفضل إجابة في حالة أن تم حل المشكلة وأن تضغط على كلمة "أعجبني هذا "في حالة أعجبتك المشاركة وأعجبك الحل

إذاً النسخة التي يجب نسخها من إذن الصرف لن تكون من إذن الصرف القديم إذ أنه في حالتك يمكن إضافة كتب جديدة أو ما شابه ... بالتالي يجب أن تتم عملية إنشاء ورقة جديدة لإذن الصرف بالاعتماد على ورقة المخزن ؟؟؟؟!!!! هذا مجرد تفكير بصوت عالي . أعتقد الموضوع سيكون معقد بعض الشيء .. لذا أقترح الآتي .. أن تركز الآن على نقطة واحدة وهي كيفية إنشاء ورقة إذن صرف باسم (إذن صرف - 1) مثلاً بناءً على ورقة المخزن بحيث يتم تقسيم الكتب في المخزن إلى قسمين أحدهما في الأعمدة A - B - C والقسم الآخر في الأعمدة E - F - G على أن تكون بالتساوي في القسمين ويتم استثناء الكتب التي لها القيمة صفر في عمود المتبقي

قم بالبحث في المنتدى أعتقد أنه يوجد موضوع مشابه لطلبك

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

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

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

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

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

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

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

أخي وحبيبي أبو سليمان أنا مصمم إنك متاخدش السمكة .. لازم تتعلم تصطاد ويا أنا يا إنت الليلة في المنتدى هشرح وإنت طبق .. عرفت يبقا خير وبركة والليلة هتعدي على خير .. معرفتش يبقا ليلتي مش فايتة غير لما تطبقها إن شاء الله الأول خد الكود مشروح بالتفصيل الممل لكل سطر ... عشان تقدر تتعلم وتنفذ الكود على أي ملف تاني Private Sub Worksheet_Change(ByVal Target As Range) 'فمع كل إدخال يتم أخذ قيمة الخلية [G14] يقوم الكود بالتعامل مع الخلية '[G15] وجمعها مع القيمة الموجودة بالفعل في الخلية '[G14] بها القيمة 100 وتم كتابة القيمة 15 في الخلية [G15] أي أنه إذا كانت الخلية 'فيصبح الناتج 105 [G15] يقوم الكود بجمع قيمة الخلية الهدف إلى الخلية 'ثم يقوم الكود بمسح محتويات الخلية الهدف وتحديدها مرة أخرى استعداداً لإدخال جديد '-------------------------------------------------------------------------------- 'تعريف المتغيرات لخلية الهدف والخلية أسفل منها Dim M, N '[G14] هذا السطر يحجم التعامل مع خلية واحدة وهي الخلية 'أي أن تنفيذ الكود مرتبط بالتغير في هذه الخلية If Not Intersect(Target, Range("G14")) Is Nothing Then 'إلغاء خاصية تمكين الحدث لتنفيذ الكود بشكل أسرع Application.EnableEvents = False 'إذا حدث تغير في الخلية الهدف يتم تنفيذ الأسطر التالية With Target 'شرط للتحقق من أن البيان المدخل عبارة عن رقم وليس نص If IsNumeric(Target) Then 'المتغير يساوي قيمة الخلية الهدف M = .Value 'المتغير يساوي قيمة الخلية أسفل الخلية الهدف زائد قيمة الخلية الهدف N = .Offset(1, 0).Value + M '[N] الخلية أسفل الخلية الهدف تساوي المتغير المسمى .Offset(1, 0) = N End If 'مسح محتويات الخلية الهدف وتحديدها .Value = "": .Select End With 'إعادة خاصية تمكين الحدث Application.EnableEvents = True End If End Sub دا الكود ..حلو الكلام ؟؟؟ قووووول حلو طيب فين نضع الكود .. سؤال بسيط وإجابتة أبسط كليك يمين على اسم ورقة العمل المسماة "ورقة 1"كما في المرفق في المشاركة الأولى نقول تاني كليك يمين على ورقة العمل ورقة 1 وبعدين هيطلع قايمة (نتفرج عليها شوية ونركز فيها ) وندور على الأمر View Code ولو الأوفيس عربي مفيش مشكلة هتلاقي اسمه "عرض أو إظهار الكود" هيفتح معاك محرر الأكواد في المكان المناسب تماماً .. اللي هو حدث ورقة العمل أو الموديول الخاص بالورقة وليس مثل بقية الأكواد التي توضع في موديول منفصل ... المهم تلصق الكود اللي وضعته في المكان المناسب وروح للورقة وضع أرقام في الخلية G14 لتجربة الكود .. وعينك طبعاً على الخلية G15 عشان تشوف التغيرات

هل قمت بتغيير اسم المصنف الذي يتم جلب البيانات منه كما في الكود ... شوف اسم المصنف عندك وعدل في الكود بالاسم في السطر Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & "Data Base.xlsx") يعني شوف اسم المصنف ايه اللي إنت بتاخد منه البيانات وعدل هذا السطر بما يناسب اسم ملفك

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

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