طارق_طلعت

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

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

بعد التحية برجاء التكرم بالمساعدة فى ايجاد معادلة لتحديد اخر قيمة فى العمود B بشرط ان تكون القيمة المقابلة لها فى العمود A موجبة بمعنى اذا كانت القيمة المقابلة سالبة تقوم بالتحديد القيمة السابقة بشرط ايضا ان تكون القيمة المقابلة موجبة مرفق ملف للتوضيح و شكرا جزيلا معادلة اخر رقم فى عمود.xlsx

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

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

استاذ محمد هشام ..شكرا جزيلا على المساعدة ..بتجربة الكود بينسخ المعادلات فى الصف اللى اسفل الصف المضاف و المشكلة التانية ان الملف الاصلى اللى عندى فيه اكتر من 1500 شيت فصعب جدا تنفيذ الكود بهذة الطريقة و تعريف اسم كل الشيتات \اخل الكود انا عاوز طريقة تنفذ المطلوب مع الترحيل لكل شيت ضمن تفس حلقة FOR و NEXT الخاصة بالترحيل ..مرة اخرى شكرا جزيلا على المساعدة

السيد الفاضل عبد الفتاح الملف بة كود يقوم بترحيل البيانات من الشيت الأول (الترحيل) الى الشيتات الأخرى طبقا لآسم الشيت و المطلوب ان يتم ترحيل البيانات لكل شيت داخل صف جديد يبدأ من بعد اخر خلية بها بيانات بالعمود A و مرفق ملف بة النتيجة المطلوبة (الصفوف باللون الآصفر) ..انا الحمد للة عرفت اضيف الصف و ارحل فية البيانات لكن الجزء اللى مش عارف اعملة هو سحب المعادلات الموجودة بأخر عمودين الى السطر الجديد (او عمل COPY و PASTE) لآخر خليتين فى العمود الحسابات.xlsm

شكرا جزيلا استاذ محمد هو دة بالضبط اللى انا محتاجة ..تحياتى

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,السادة الزملاء ..ارجو المساعدة بعمل كود بسيط يقوم بالأتى عندما اقوم بتحديد نطاق معين بورقة العمل مثل (A12:B20) مثلا ثم تشغيل الكود فيقوم بتحديد الصف الموازى لهذا النطاق (C12:C20) و شكرا جزيلا لمساعدتكم مرفق ملف يوضح المطلوب فى الشيت الاول النطاق الذى تم تحديدة و فى الشيت الثانى الصف المطلوب تحديدة بمعرفة الكود طبعا تم عمل اثنين شيت لتوضيح المطلوب لكن المطلوب تحديد الصف فى نفس الشيت..اسف المطلوب تحديد عمود موازى و ليس صف تـــــم إعادة رفع الملف بإمتداد يقبل إضافة الأكواد XLSM تحديد صف موازى لنطاق.xlsm

السيد الفاضل استاذ عبد الفتاح انا جربت الكود و يعمل بشكل ممتاز و يفى بالغرض تماما شكرا جزيلا على المساعدة جعلة اللة فى ميزان حسناتك

شكرا على الرد يمكن تقسيمهم الى عدة مراحل كل مرحلة 20 ملف مثلا

السادة الأفاضل ارجو المساعدة فى تنفيذ كود يقوم بترحيل بيانات من الملفات المفتوحة الى ملف "بيانات مجمعة" كالأتى:- 1-يتم ترحيل البيانات من جميع الملفات المفتوحة من شيت "Worksheet" بكل ملف الى ملف "بيانات مجمعة" شيت "بيانات"من بداية البيانات فى اول سطر الى نهايتها فى اخر سطر 2- يتم ترك سطر بين كل بيان و البيان الأخر 3- يتم سحب البيانات من جميع الشيتات المفتوحة بنفس الطريقة 4- عدد الملفات المفتوحة قد يتجاوز ال 100 ملف 5- اسماء الشيتات المفتوحة غير محددة و قد تتغير فى كل مرة مرفق امثلة للملفات و ملف "بيانات مجمعة" المطلوب الترحيل الية و بة البيانات بعد الترحيل بالطريقة المطلوبة للأيضاح و شكرا جزيلا لتعاونكم 2021-06-20 (1).xlsx 2021-06-20 (3).xlsx 2021-06-20.xlsx بيانات مجمعة.xlsx

ارجوا من الساده الافاضل المساعده

السادة الزملاء الأعزاء بعد التحية الكود المرفق هو كود للعلامة القدير الأستاذ ياسر ابو البراء و هو يقوم بترحيل البيانات من ملف الى ملف اخر بنفس الفولدر و الكود ممتاز و يعمل بشكل جيد منذ خمس سنوات و فى بعض الأحيان يتم اكتشاف خطأ فى قيد قديم و يتطلب الأمر الغاء القيد و المطلوب ان يتم عمل كود اخر يقوم بألغاء القيد من الشيتات التى تم القيد بها و ذلك بمعلومية رقم القيد و اظهار النتيجة طبقا للملف المرفق (النتيجة المطلوبة) كما مرفق فولدر به الملفين الأصليين و ملف اخر بة النتيجة المطلوبة و شكرا لحسن تعاونكم Sub TransferDataToClosedWB() Dim WB As Workbook, SH As Worksheet Dim Cell As Range Dim strWB As String Dim LR_A As Long, LR_B As Long LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row < 13, 13, Cells(Rows.Count, 1).End(xlUp).Row) strWB = ThisWorkbook.Path & "\" & "حسابات تجهيز.xlsm" Application.ScreenUpdating = False If Application.WorksheetFunction.CountA(Range("A13:A" & LR_A)) < 1 Then MsgBox "لا يوجد بيانات لترحيلها", vbInformation: Exit Sub On Error Resume Next If FileInUse(strWB) Then Set WB = Workbooks("حسابات تجهيز.xlsm") Else Set WB = Workbooks.Open(Filename:=strWB) End If For Each Cell In ThisWorkbook.Sheets("ترحيل").Range("A13:A" & LR_A) For Each SH In WB.Sheets If SH.Name = Cell.Value Then With SH LR_B = IIf(.Cells(Rows.Count, 4).End(xlUp).Row < 16, 16, .Cells(Rows.Count, 1).End(xlUp).Row + 1) Cell.Offset(, 2).Resize(, 5).Copy .Range("A" & LR_B).PasteSpecial xlPasteValues End With End If Next SH Next Cell WB.Sheets(1).Activate ThisWorkbook.Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Public Function FileInUse(sFileName) As Boolean On Error Resume Next Open sFileName For Binary Access Read Lock Read As #1 Close #1 FileInUse = IIf(Err.Number > 0, True, False) On Error GoTo 0 End Function test 2.zip

.شكرا جزيلا على المساعده

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

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

السادة الخبراء الأفاضل ارجوا المساعدة فى تنفيذ كود خاص ببرنامج حسابات قمت بتصميمة مرفق ملف مبسط من البرنامج لتوضيح الكود المطلوب المطلوب تنفيذ الأتى فى شيت الترحيل اذا كانت الخلية C4 المظللة بالأحمر فارغة يقوم بالأتى يذهب الى الشيتات المسماة بأسم الأكواد المكتوبة فى العمود A بداية من الخلية A12 و حتى نهاية العمود فى كل شيت من الشيتات المختارة يقوم بالبحث فى العمود B على الخلية التى تحتوى غلى رقم الأذن المذكور فى شيت الترحيل فى الخلية B6 و يقوم بتفريغ قيم الخلايا الموجودة بذلك الصف من الخلية A حتى الخلية H ثم يقوم بترتيب جميع البيانات بالجدول بمعلومية التاريخ الموجود بالعمود A فى حالة اذا كانت الخلية C4 المظللة بالأحمر مكتوب بها كلمة "عكس" فيقوم بتنفيذ نفس العمليات السابقة و لكن بدلا من تفريغ قيمة الخلايا يقوم بعكس القيمة فى الخلية D و F فى نفس الصف فأذا كانت قيمتها موجبة يجعلها سالبة و اذا كانت قيمتها سالبة يجعلها موجبة (اى يقوم بضرب القيمة *-1) مغ العلم انة يمكن ان يكون هناك اكثر من صف بنفس رقم الأذن فيقوم بتنفيذ الكود على كل الصفوف التى تحتوى غلى رقم الأذن المطلوب ارجوا ان تكون الفكرة واضحة و شكرا جزيلا للمساعدة كود الغاء قيد.xlsx

شكرا جزيل استاذ طارق هو دى المطلوب بالضبط

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

السادة الأفاضل برجاء التكرم بمساعدتى لعمل كود للملف المرفق يقوم بالأتى الدخول على كل شيت و عمل Copy لأخر صف فى الشيت (من A حتى H كما هو ملون باللون الأصفر) ثم عمل paste لأول خلية بالشيت (A16 حتى H16) ثم تفريغ البيانات المنسوخة فى الصف الأخير تنفيذ هذة المهمة فى جميع شيتات الملف و التى تزيد عن 1000 شيت فى الملف الأصلى - اى نقل الصف الأخير بكل شيت الى الصف الأول مع العلم ان الصف الأخير يختلف فى كل شيت عن الأخر و شكرا جزيلا للمساعدة اصناف.xls

ارجوا تقديم المساعده المعهوده من خبراء المنتدى

السادة الأفاضل بحثت كثيرا فى كيفية عمل جدول ديناميكى او مطاطى يتمدد كلما زادت البيانات حتى وجدت هذا الموضوع الرائع و لكنى حاولت ان اطبق الكود الموجود فى اول مشاركة بملف (جدول ديناميكى) و لكنى فشلت و لذلك ارجوا المساعدة على تطبيق الكود على الملف المرفق بالشروط التالية :- 1- ان يتم تطبيق الكود على جميع الشيتات بالملف و التى يصل عددها الى اكثر من الف شيت على ان يبدء من الشيت الثامن المسمى (1-1) و لا يطبق على الشيتات السبعة الأولى 2- ان يتم اضافة سطر جديد مشابة لأخر صف فى الجدول كلما تم اضافة بيان فى اخر خلية فى الصف قبل صف المجموع فى العمود A 3- الحفاظ على المعادلة الموجودة فى اخر عمود و المسمى بالرصيد فى الصفوف التى يتم اضافتها و شكرا جزيلا للمساعدة جدول ديناميكى طارق.xlsx

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

الاخوه الأفاضل خبراء المنتدى هل لا يوجد اجابه لسؤالى حيث احتاج هذا الكود للضروره لأستكمال برنامج حسابات يحتاج هذا الكود و شكرا لمساعدتكم المعهوده دائما