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

جرب تحذف هذا الجزء من الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If End Sub

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

اطلع على هذه الحلقة من حلقات افتح الباب لمعرفة كيفية تسجيل الماكرو من هنا

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

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

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

أخي ناصر كن أكثر تحديداً .. بعد استدعاء البيانات من Sheet1 إلى Sheet2 أنت تقوم بمسح البيانات الأصلية في Sheet1 أم مسح النتائج في Sheet2 ..؟ شيء آخر مهم بالنسبة للعناوين جرب تغير العناوين بحيث تكون العناوين مختلفة في كلا الورقتين يعني العنوان في الملف المرفق باسم "الرقم" خلي العناوين في الأعمدة مختلفة في الورقتين بمعنى آخر : خلي العناوين مثلا "الرقم 1" ، " الرقم 2" ، "الرقم 3" وهكذا ونفس العناوين تكون متطابقة في الورقتين معاً .. ثم نفذ الكود مرة أخرى وجرب

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

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

أستاذي ومعلمي وأخي الحبيب جمال عوداً حميداً .. لقد افتقدناك كثيراً والله تقبل وافر حبي واحترامي

إخواني الكرام كنت أعاني كثيراً مع هذا النوع من المشاكل مع أوفيس 2007 .. وانتهت تقريباً المشاكل بتنصيب أوفيس 2013 .. نحاول نجدد لأن دلوقتي النسخة أوفيس 2016 الرسمية موجودة وفيه ناس بدأت تشتغل عليها نحاول بقدر الإمكان نحدث الأوفيس لتلافي مشاكل النسخ القديمة تقبلوا تحياتي

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

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

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك العفاريت يا جن يا جن .. وضعت لك في حدث المصنف كود يقوم بإظهار أوراق العمل المخفية عند فتح المصنف Private Sub Workbook_Open() Dim SH As Worksheet For Each SH In Worksheets SH.Visible = True Next SH End Sub شوف الملف المرفق الكتب.rar

الملف المرفق في مشاركة الأخ عبد العزيز يعمل بشكل جيد قد تكون المشكلة لديك في الأوفيس (ActiveX Control) جرب تعيد تنصيب الأوفيس أو غير النسخة نفسها لنسخة أحدث

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

بارك الله فيك أخي الكريم وائل تركت لك تعليق على اليوتيوب .. مطالباً إياك بسماع صوتك .. لا تحرمنا من سماع صوتك تقبل وافر تقديري واحترامي

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

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

أخي الكريم أناناس (ممكن نغير الفاكهة نخليها رمان عشان بعز الرمان حبتين) إليك الكود التالي عله يفي بالغرض (وإن كنت أرى أن كود الأخ أبو عيد حفظه الله يعمل بشكل جيد ) ، ولكن من باب إثراء الموضوع جرب الكود Sub MAIN() 'تعريف المتغيرات Dim I As Long 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False '[H2] وتنتهي بالقيمة الموجودة في الخلية [H1] حلقة تكرارية تبدأ من القيمة الموجودة في الخلية For I = Range("H1") To Range("H2") '[I] تساوي قيمة المتغير [F1] الخلية Range("F1") = I 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet '[DATA] ونطاق البحث ورقة البيانات [F1] تساوي قيمة دالة البحث عن القيمة الموجودة في الخلية [C1] الخلية 'يتم البحث في ورقة البيانات في العمود الثاني .Range("C1").Value = Application.WorksheetFunction.VLookup(.Range("F1").Value, Sheets("DATA").Range("A2:C19"), 2, 0) '[DATA] ونطاق البحث ورقة البيانات [F1] تساوي قيمة دالة البحث عن القيمة الموجودة في الخلية [C1] الخلية 'يتم البحث في ورقة البيانات في العمود الثالث .Range("C2").Value = Application.WorksheetFunction.VLookup(.Range("F1").Value, Sheets("DATA").Range("A2:C19"), 3, 0) 'إلغاء الفلترة في ورقة العمل النشطة .AutoFilterMode = False '[C1] بشرط القيمة في الخلية [E] فلترة البيانات على الحقل الرابع أي العمود .Range("B5:F5").AutoFilter Field:=4, Criteria1:=.Range("C1").Value '[C2] بشرط القيمة في الخلية [F] فلترة البيانات على الحقل الخامس أي العمود .Range("B5:F5").AutoFilter Field:=5, Criteria1:=.Range("C2").Value '[F1] إذا كانت قيمة المتغير أصغر من القيمة الموجودة بالخلية If I <= .Range("F1") Then 'إعادة الحسابات في ورقة العمل النشطة كنوع من التحديث للبيانات .Calculate '[PrintOut] بكلمة [PrintPreview] معاينة ورقة العمل وتتم الطباعة باستبدال كلمة ActiveWindow.SelectedSheets.PrintPreview End If 'إلغاء الفلترة في ورقة العمل النشطة .AutoFilterMode = False End With 'الانتقال لقيمة المتغير التالية Next I 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub تقبل تحياتي

جرب هذا الكود Sub Test() Dim Col As New Collection, Arr, I As Long, J As Long On Error Resume Next Arr = Sheet1.Range("A7").CurrentRegion.Value For I = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Col.Add Key:=Arr(1, J) & Chr(2) & Arr(I, 1), Item:=Arr(I, J) Next J Next I With Sheet2.Range("A7").CurrentRegion Arr = .Value For I = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Arr(I, J) = Col(Arr(1, J) & Chr(2) & Arr(I, 1)) Next J Next I .Value = Arr End With End Sub

أخي الحبيب التاج أما آن لك أن تغير اسم الظهور للغة العربية إليك الكود التالي عله يكون المطلوب Sub Test() Dim WS As Worksheet, SH As Worksheet Dim Cel As Range Dim lRow As Long Set WS = Sheets("أداة بناء الخطط"): Set SH = Sheets("ورقة1") Application.ScreenUpdating = False For Each Cel In WS.Range("H3:H43") If Cel.Value >= 0.9 Then lRow = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1 SH.Cells(lRow, "B").Value = Cel.Offset(, 1) ElseIf Cel.Value <= 0.5 Then lRow = SH.Cells(Rows.Count, "H").End(xlUp).Row + 1 SH.Cells(lRow, "H").Value = Cel.Offset(, 1) End If Next Cel Application.ScreenUpdating = True End Sub ALTAG.rar

أخي الكريم أبو حنين المشكلة في أن المصنف نفسه يبدو أنه محمي للتأكد من كلامي قم بالذهاب إلى التبويب Review ثم انقر على الأمر Protect Workbook ستجد أن عنوان النافذة التي تظهر هي Unprotect Workbook أي أن المصنف محمي مسبقاً أو ربما تكون أن المصنف تم عمل مشاركة له Sahring جرب كلمات السر التي استخدمتها من قبل لحماية المصنف

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

هل الملف محمي ؟؟؟ يرجى رفع الملف للإطلاع عليه .. تقبل تحياتي