اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

استيراد البيانات السالبة والموجبة من ورقة اخرى


alraqi

الردود الموصى بها

الأخ الكريم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

رابط هذا التعليق
شارك

في ١٦‏/٩‏/٢٠١٦ at 02:12, alraqi said:

بعد التحية

اريد استيراد البيانات السالبة والموجبة من ورقة أخرى ، وتكون البيانات السالبة في عامود والموجبة في عامود مع رقم الطلب مع كل صف

 

مع خالص شكري وتقديري

STATEMENT.rar

أين تريد القيم الموجبة في أي عمود ؟ وأين تريد القيم السالبة؟

حاول دائماً إرفاق شكل النتائج المتوقعة أو ضرب مثال أو مثالين للتوضيح (ولا تتوقع دائماً أن الجميع يفهم طبيعة عملك أو ملفك)

تقبل تحياتي

رابط هذا التعليق
شارك

شكرا أستاذ ابو عبدالباري على هذا ومجهودد يشكر عليه بارك الله فيكم ، ولكن انا احتاج اذا معادلات مثل Vlookup الخ اذا ما عليك امر

 

 

11 دقائق مضت, ياسر خليل أبو البراء said:

أين تريد القيم الموجبة في أي عمود ؟ وأين تريد القيم السالبة؟

حاول دائماً إرفاق شكل النتائج المتوقعة أو ضرب مثال أو مثالين للتوضيح (ولا تتوقع دائماً أن الجميع يفهم طبيعة عملك أو ملفك)

تقبل تحياتي

أستاذي الفاضل ياسر أبو البرء شكرا جزيلا على المداخلة

اخذ البيانات من Data Statement من عامود order no  و order date و diff 

الى Statement  > order no  / date  اما من diff يأخذ السالب ويضعه في Credit والموجب في Debit 

امل ان يكون وفقت في الشرح والطلب

مع خالص شكري مقدما لكم

  • Like 1
رابط هذا التعليق
شارك

33 دقائق مضت, alraqi said:

شكرا أستاذ ابو عبدالباري على هذا ومجهودد يشكر عليه بارك الله فيكم ، ولكن انا احتاج اذا معادلات مثل Vlookup الخ اذا ما عليك امر

 

 

أستاذي الفاضل ياسر أبو البرء شكرا جزيلا على المداخلة

اخذ البيانات من Data Statement من عامود order no  و order date و diff 

الى Statement  > order no  / date  اما من diff يأخذ السالب ويضعه في Credit والموجب في Debit 

امل ان يكون وفقت في الشرح والطلب

مع خالص شكري مقدما لكم

الأخ الكريمalraqi

السلام عليكم

يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية

جرب الملف التالى  بالمعادلات

abo_abary_STATEMENT2.rar

رابط هذا التعليق
شارك

اخي الحبيب أبو عبدالباري

شكرا لك على المعادلات المرسلة وجزاكم الله خير على

هذه مرتبطة ب 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information