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

جرب الملف التالي .. جمع مواد متفرقة.rar

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

هذا صحيح ، ولكن يجب أن يكون منطقي .. جرب وشوف حسب الكود اللي عندك

عموما جرب الملف التالي Print Specific Sheets.rar

هل أسماء أوراق العمل عبارة عن 4 أرقام دائماً؟ وهل الرقم في الخلية K1 رقم واحد أم أكثر من رقم ؟؟ هل سيكون رقم واحد مثل 2 أو 3 أو قد يكون 12 أو 24 أو 123 ؟؟

كود الاستبدال بعد التعديل Sub Replacement() Dim Rng As Range Dim LR As Long, LastRow As Long Dim X As Long, Cell As Range LR = Sheets("Conditions").Cells(Rows.Count, "A").End(xlUp).Row LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Sheets("Sheet1").Range("B2:B" & LastRow) 'هذا النطاق الذي سيتم العمل عليه Application.ScreenUpdating = False Application.Calculation = xlManual For X = 1 To LR Rng.Replace What:=Sheets("Conditions").Range("A" & X), Replacement:=Sheets("Conditions").Range("B" & X), _ Lookat:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:= _ False, ReplaceFormat:=False Next X For Each Cell In Rng Cell.Value = Application.WorksheetFunction.Trim(Cell) Next Cell Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub رغم أن التعديل بسيط .. في كلمة واحدة فقط Cells أصبحت Rng هذا هو كل التغيير كود مسح البيانات الغير مرغوب فيها Sub ClearSpeicific() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Range("A2:F" & Cells(Rows.Count, 1).End(xlUp).Row) If Cell.Value = "ــــ" Or Cell.Value = "ــــــ" Or Cell.Value = "*" Or Cell.Value = "/" Or Cell.Value = "لا يوجد" Then Cell.Value = "" Next Cell Application.ScreenUpdating = True End Sub ركز على هذا السطر If Cell.Value = "ــــ" Or Cell.Value = "ــــــ" Or Cell.Value = "*" Or Cell.Value = "/" Or Cell.Value = "لا يوجد" Then Cell.Value = "" حاول أن تفهمه وأضف إليه ما تريد مسحه من بيانات معناه : إذا كانت قيمة الخلية = كذا أو قيمة الخلية تساوي كذا أو أو أو .. ضيف شروط زي ما إنت عايز .. في الآخر بعد كلمة Then تصبح الخلية إذا تحقق أي من الشروط فارغة "" أرجو أن تكون قد استوعبت الأمر

جرب الكود التالي (من مكتبة الأكواد ..المشروع الكبير الذي توقف) يقوم الكود بتحويل امتداد الملف الحالي من XLSM إلى XLSX (أي ملف بدون أكواد). الكود مفيد في حالة أردت إعطاء نسخة من المصنف الذي تعمل عليه لشخص ما ، للتخلص من الأكواد ، لأنه يقوم بحفظ المصنف بصيغة XLSX ، وهذه الصيغة لا تحفظ الأكواد. Option Explicit Public Sub ConvertXLSMtoXLSX() 'عرف متغيرات تشير للملف الحالي Dim SourceFile As String: SourceFile = ThisWorkbook.FullName Dim SourceName As String: SourceName = ThisWorkbook.Name Dim SourcePath As String: SourcePath = ThisWorkbook.Path & "\" 'عرف ملف مؤقت من أجل التحويل Dim TempFile As String: TempFile = Replace(SourceFile, ".xlsm", "_TEMP.xlsm") Application.DisplayAlerts = False 'احفظ الملف أولاً ThisWorkbook.Save 'عرف متغير للوصول لملفات Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject") 'احذف الملف المؤقت إذا وجد On Error Resume Next fso.deletefile TempFile, True On Error GoTo 0 'اعمل نسخة من الملف الحالي fso.CopyFile SourceFile, TempFile, True 'افتح النسخة المؤقتة Dim TempWB As Workbook Set TempWB = Workbooks.Open(TempFile) 'احفظ باسم و حول امتداد الملف ActiveWorkbook.SaveAs Filename:=SourcePath & Left(SourceName, Len(SourceName) - 5) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'أغلق النسخة TempWB.Close Application.DisplayAlerts = True 'احذف النسخة المؤقتة On Error Resume Next fso.deletefile TempFile, True On Error GoTo 0 End Sub

الأخ الحبيب أبا الحسين أرفقت لك ملف بالمطلوب وإن كان المطلوب مختلف عن طلب السائل بالنسبة للمواقيت التي تريد أن يعمل فيها الكود تكون بنظام الـ 24 ساعة .. الساعة الآن مثلاً 7 إذاً عدل الكو ليكون الرقم 7 هو 19 ... في المرفق عملت الفترات الثلاثة التي يتم فيها تنفيذ الكود بينهما فرق دقيقة لمتابعة دقة عمل الكود ..يمكنك التعديل على الأوقات كما تشاء ومتنساش أخوك بدعوة بظهر الغيب Transfer Data At Specific Times.rar

الأخ notmnet تم تعديل بسيط جداً على الكود لتفادي حدوث الخطأ الذي حدث معك ، أثناء تواجدك بورقة العمل Sheet2 Transfer Data Every 10 Seconds.rar

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

أخي الفاضل على أي أساس يتم اختيار الصفحات التي طلبتها ؟؟ إذا كان الأساس هو احتواء اسم ورقة العمل على الرقم 2 ، فلاحظت أن هناك أوراق عمل أخرى تحمل الرقم 2 ، ولم تنوه إليها .. وضح بارك الله فيك

طلباتك صعبة عليا يا أبا الحسين ... هل تقصد بكلامك (كل ساعة لفترة 3 مرات ؟؟ أن يتم الترحيل 3 مرات فقط في الساعة .. إذاً قسم الساعة على 3 يعني 60 دقيقة على 3 يكون الناتج 20 ..خلي الوقت 20 دقيقة في الكود لم أفهم الجزء الأخير من كلامك .. حاول دائما أن يكون الكلام مفصل بشكل كبير ولو بمثال يكون أفضل (ولا أقصد بالمثال الملف المرفق ..مثال عملي !! داخل الملف ...كيف يريد للملف أن يعمل؟

أعتقد أن الطلب بهذا الشكل غير منطقي .. إذ أني لا أعرف على أي أساس تقوم بتوزيع الأدوار (دور أول .. خامس ..رابع .) هل التوزيع على أساس ثابت؟

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

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

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

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

جرب الملف المرفق دوال.rar

الأخ الحبيب مستر محمد إليك الملف التالي فيه عدد 2 موديول كل موديول منفصل . وقمت بإضافة شيت أي ورقة عمل باسم Conditions ضع في العمود الأول الكلمة المراد التخلص منها ، والعمود الثاني للكلمة الجديدة .. لأي عدد من الكلمات .. يعني مش هتضطر تكتب كود لكل نوع سيارة ... فقط اكتب كل الكلمات التي تريد استبدالها .. ولو الحل عجبك متنساش تضغط أفضل إجابة . تقبل تحياتي Replacement Multiple Instances.rar

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

هذه ليست معادلة .. هذه دالة معرفة أي أنها UDF دالة تم عملها ، والدالة ليست لي ، إنما هي من ضمن مكتبتي وأحببت أن أشارككم بها ... ادخل لمحرر الأكواد Alt + F11 للإطلاع عليها .. بس بلاش تسأل عن الشرح .. خليك في السمك الصغير بلاش صيد الحيتان دلوقتي ..ههههه

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

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

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

السلام عليكم ورحمة الله وبركاته أشعر أن المنتدى بحاجة إلى دورة تنشيطية .. تجدد الدم في عروقه ... المعظم تقريباً ، يطلب وفقط ، ولا أجد إلا القليل الذين يقدومون ما هو مفيد وجديد .. أقدم لكم اليوم دالة معرفة User Defined Function ، اسم الدالة SumBold ، وتقوم الدالة بجمع الخلايا التي لها تنسيق Bold أي عريض .. يعيب هذه الدالة أنه في حالة قررت أن تقوم بتغيير أحد الخلايا من Bold أو العكس ، فلابد لتحديث النتائج أن تضغط F9 حتى تظهر النتائج بشكل صحيح بعد التعديل .. أترككم مع الملف ، عله يكون ذو فائدة لكم تقبلوا تحياتي Sum Bold UDF Function.rar