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

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

أخي الكريم يرجى إرفاق ملف مع إلقاء مزيد من الضوء ..لتجد المساعدة من إخوانك

أخي الكريم سليم الكود الخاص بك يقوم بتعبئة الصف بنفس الرقم 50 أو 100 حسب القيمة المدخلة 1 أو 2 .. ولكن لاحظت في النتائج المرفقة من قبل أخونا أبو راكان أنه يريد أن تكون النتاج كما طبقت ما عدا الخلية التي يكتب فيها القيمة 1 أو 2 جرب الكودين لتتأكد من المطلوب تقبل وافر تقديري واحترامي

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

هل الموضوع مكرر أم أنني بدأت في مرحلة التهييس والزهايمر؟ أخي الحبيب مختار ..ألست قد قمت بتقديم الحل في موضوع آخر ؟!!!

You're welcome أهلا بك في المنتدى يا صاحب المشاركة الأولى والكلمة الأولى .. ونرجو ألا تتوقف مشاركاتك عند الكلمة الأولي ..كما يرحى تغيير اسم الظهور للغة العربية (حسام المحاسب) تقبل تحياتي

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

أخي الحبيب جلال الجمال مرورك بالموضوع شرف الموضوع ..تقبل وافر تقديري واحترامي

أخي الكريم أبو راكان جرب الكود التالي في حدث ورقة العمل كليك يمين على اسم ورقة العمل ثم اختر View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("B1:I15")) Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False If Target = 1 Then Range(Cells(Target.Row, "B"), Cells(Target.Row, "I")) = 50 Target = 1 ElseIf Target = 2 Then Range(Cells(Target.Row, "B"), Cells(Target.Row, "I")) = 100 Target = 2 End If Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub عند حفظ المصنف يجب الحفظ بامتداد xlsm للحفاظ على الأكواد التي تم إدراجها لمزيد من التفاصيل يمكنك الإطلاع على موضوع "بداية الطريق لإنقاذ الغريق" لطائر البطريق ياسر خليل تقبل تحياتي

أخي الغالي مختار يوجد بالفعل خطأ في أثناء تنفيذ الكود مع الملفات التي بها صفين فقط من البيانات فقمت بتعديل الكود بحيث يزود كمان صف على الموجود كما قمت بإدراج الإحصاء في العمودين Y و Z بدلاً من العمودين M و N لأنني لاحظت أن بعض الملفات بها بيانات في هذين العمودين للأسف وأكرر للأسف تحدث مشاكل حين يكون المرفق غير معبر عن الملفات الأصلية .. لأننا اشتغلنا على مجموعة ملفات لها نفس المواصفات أما عند إرفاق ملفات جديدة لها مواصفات جديدة فكان لابد من التغيير ليتلائم الكود مع الوضع القائم عموماً إليك المرفق التالي فيه المصنف الرئيسي ومرفق ملفات CSV الأخير المسمى girl (قم بتغيير اسمه ..ولن يؤثر في شيء) Collect Data From Multiple CSV Workbooks Mokhtar YasserKhalil V4.rar

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

أخي الحبيب الغالي مختار بارك الله فيك .. قمت بتعديل بسيط على كودك حيث حذفت الجزء الخاص بتنسيق النطاقات المنسوخة إذا لا داعي لها حيث أنك في نهاية المطاف تقوم بحذف الأعمدة إليكم المرفق الأخير حيث تم الجمع بين جميع الأكواد Collect Data From Multiple CSV Workbooks YasserKhalilMokhtar V3.rar

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

جرب الكود التالي عله يفي بالغرض Sub CreateOpenFolderUsingDialog() Dim sPath As String sPath = GetFolder If Len(sPath) <> 0 Then sPath = sPath & "\" & Range("A1").Value If Dir(sPath, vbDirectory) = vbNullString Then MkDir sPath End If Shell "Explorer.exe" & " " & Chr(34) & sPath & Chr(34), vbNormalFocus End If End Sub Function GetFolder() As String Dim dlg As FileDialog Set dlg = Application.FileDialog(msoFileDialogFolderPicker) dlg.InitialFileName = "C:\" If dlg.Show = -1 Then GetFolder = dlg.SelectedItems(1) End If End Function

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

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

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

أخي الكريم ارفق الملف الذي به الكود ..

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

أخي الحبيب أبو نصار دائماً متميز ..وفي انتظار جديدك دائماً

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

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

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

الحمد لله الذي بنعمته تتم الصالحات بس بردو مقلتش محمد فؤاد ولا أحمد فؤاد ..طنشتني كالعادة يا سكر زيادة

أخي الحبيب ياسر العربي نستحمله عشان خاطرك إنت بس .. أخي الكريم ناصر المصري إليك السطر التالي كنموذج لتغيير عرض الأعمدة المثال على العمود الأول Columns("A:A").ColumnWidth = 11 أرجو أن يكون المطلوب يا ريت ترجع للتوجيهات في الموضوعات المثبتة في المنتدى لمعرفة مزيد من التفاصيل حول كيفية طرح موضوع بشكل مناسب (ولا تطارد أكثر من عصفور فتطير العصافير جميعها)