طارق_طلعت

الأستاذ الفاضل ابراهيم الحداد شاكر جدا لحضرتك المعادلة اشتغلت تمام كنت عاوز اتقل على حضرتك و نعدل فى المعادلة لأيجاد القيمة المقابلة لأخر رقم موجب شامل الصفر (اكبر من او تساوى صفر) يعنى فى الملف المرفق تكون النتيجة 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

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