alraqi قام بنشر سبتمبر 16, 2016 قام بنشر سبتمبر 16, 2016 بعد التحية اريد استيراد البيانات السالبة والموجبة من ورقة أخرى ، وتكون البيانات السالبة في عامود والموجبة في عامود مع رقم الطلب مع كل صف مع خالص شكري وتقديري STATEMENT.rar
ابو عبدالبارى قام بنشر سبتمبر 16, 2016 قام بنشر سبتمبر 16, 2016 الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الكود التالى لعلة يفى بالغرض Sub mh_abdelbary() Dim R As Integer, M As Integer Sheets("statement").Range("a5:f1000").ClearContents M = 4 Application.ScreenUpdating = False last1 = Cells(Rows.Count, "b").End(xlUp).Row For R = 2 To last1 If Cells(R, 4) > 0 Then last = Sheets("statement").Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("A" & R).Range("b1:d1").Copy With Sheets("statement") .Range("B" & last).PasteSpecial xlPasteValues .Range("a" & last) = last - 4 End With Application.CutCopyMode = False Else last = Sheets("statement").Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("A" & R).Range("b1:c1").Copy Sheets("statement").Range("B" & last).PasteSpecial xlPasteValues Range("A" & R).Range("d1").Copy With Sheets("statement") .Range("e" & last).PasteSpecial xlPasteValues .Range("a" & last) = (last - 4) Application.CutCopyMode = False End With End If Next End Sub abo_abary_STATEMENT.rar
ياسر خليل أبو البراء قام بنشر سبتمبر 17, 2016 قام بنشر سبتمبر 17, 2016 في ١٦/٩/٢٠١٦ at 02:12, alraqi said: بعد التحية اريد استيراد البيانات السالبة والموجبة من ورقة أخرى ، وتكون البيانات السالبة في عامود والموجبة في عامود مع رقم الطلب مع كل صف مع خالص شكري وتقديري STATEMENT.rar أين تريد القيم الموجبة في أي عمود ؟ وأين تريد القيم السالبة؟ حاول دائماً إرفاق شكل النتائج المتوقعة أو ضرب مثال أو مثالين للتوضيح (ولا تتوقع دائماً أن الجميع يفهم طبيعة عملك أو ملفك) تقبل تحياتي
alraqi قام بنشر سبتمبر 17, 2016 الكاتب قام بنشر سبتمبر 17, 2016 شكرا أستاذ ابو عبدالباري على هذا ومجهودد يشكر عليه بارك الله فيكم ، ولكن انا احتاج اذا معادلات مثل Vlookup الخ اذا ما عليك امر 11 دقائق مضت, ياسر خليل أبو البراء said: أين تريد القيم الموجبة في أي عمود ؟ وأين تريد القيم السالبة؟ حاول دائماً إرفاق شكل النتائج المتوقعة أو ضرب مثال أو مثالين للتوضيح (ولا تتوقع دائماً أن الجميع يفهم طبيعة عملك أو ملفك) تقبل تحياتي أستاذي الفاضل ياسر أبو البرء شكرا جزيلا على المداخلة اخذ البيانات من Data Statement من عامود order no و order date و diff الى Statement > order no / date اما من diff يأخذ السالب ويضعه في Credit والموجب في Debit امل ان يكون وفقت في الشرح والطلب مع خالص شكري مقدما لكم 1
ابو عبدالبارى قام بنشر سبتمبر 17, 2016 قام بنشر سبتمبر 17, 2016 33 دقائق مضت, alraqi said: شكرا أستاذ ابو عبدالباري على هذا ومجهودد يشكر عليه بارك الله فيكم ، ولكن انا احتاج اذا معادلات مثل Vlookup الخ اذا ما عليك امر أستاذي الفاضل ياسر أبو البرء شكرا جزيلا على المداخلة اخذ البيانات من Data Statement من عامود order no و order date و diff الى Statement > order no / date اما من diff يأخذ السالب ويضعه في Credit والموجب في Debit امل ان يكون وفقت في الشرح والطلب مع خالص شكري مقدما لكم الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الملف التالى بالمعادلات abo_abary_STATEMENT2.rar
سليم حاصبيا قام بنشر سبتمبر 17, 2016 قام بنشر سبتمبر 17, 2016 ربما كان المطلوب(معادلات) STATEMENT salim.rar 1
alraqi قام بنشر سبتمبر 18, 2016 الكاتب قام بنشر سبتمبر 18, 2016 اخي الحبيب أبو عبدالباري شكرا لك على المعادلات المرسلة وجزاكم الله خير على هذه مرتبطة ب Vlookup مباشرة والعامود B مرتبط أداة الشرط if معن ذلك انه ينقل كل البيانات من sheet datat انا قصدي معادلة ( تعمل كشف الحساب ) وتستورد الحركات السالبة والموجبة من التقرير الى كشف الحساب حسب order no وتاريخ العملية والعمليات التي امامها 0 لا تنقلها الى كشف الحساب شكرا على جهودكم وبارك الله فيكم أستاذ الفاضل سليم حاصيبا المعادلات رائعة وممتازة ولكن تم جمع السالب والموجب في نفس الصف والذي اريده بارك الله فيك ان يظهر رقم الطلب تاريخ الطلب وبعد ذلك امام كل رقم طلب وتاريخ يظهر امامهما الرقم سالبا او موجبا ، ولا يجتمعان في صف واحد بارك الله فيك ، يعني زي كشف حسابا البنوك وشكرا مقدما لكما وجزكما الله خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.