اذهب الي المحتوي
أوفيسنا

عمرو عبد الحليم

02 الأعضاء
  • Posts

    51
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه عمرو عبد الحليم

  1. استاذ ياسر كل الشكر و التقدير اليك لقد افادنى كثيرا في عملى و اسف على التاخير في الشكر

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

    مره اخرى اشكرك استاذ ياسر لقد افادنى جدا في عملى

  2. نعم للاسف يا استاذ ياسر لا يوجد عمود ثابت يوجد به الكود اما بيتواجد في عمود b او c

    و  الاسم في عمود d دا بالنسبه للوارد و المنصرف اما بالنسبه لشيت جميع الاكواد فدا ممكن نضع بياناته في اى اعمده

  3. في الاكسيل المرسل هناك شيت قبل شيت كارت الصنف سوف اضيف فيه كل اكواد البضاعه باساميها ارجو من جماعة الخير المساعده وشكرا

     

    اعتقد ان كارت الصنف سيحتاج زر بكود vba بحيث بعد كتابه كود الصنف يتم عرض جميع بياناته  

    اسف مره اخرى على الاطاله و ارجو المساعده و شكرا

  4. السلام عليكم مرفق اليكم ملف اكيسل اريد منه في الشيت الاخير كارت صنف وللاسف لدى بعض المشكلات

    1 كود الصنف لا يكتب في عمود واحد فمن الممكن ان يكون في b او c سواء كميه وارده او منصرفه

    2 لا يوجد اكسيل واحد به كل الوارد او كل المنصرف وانما اكسيلات كثيره

    3 عدد الاصناف حوالى 5000 صنف (قد يصل في شيت واحد الي 300 صنف وارد او منصرف)

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

    اسف على الايطاله وارجو المساعده وشكرا

     

     

    كارت صنف.rar

  5. 9 دقائق مضت, زيزو العجوز said:

    السلام عليكم ورحمة الله

    انسخ هذا الكود والصقه فى موديول جديد وخصص له زر

    واحفظ الملف باصدار 2003  او اعلى

    
    Sub Ser_Data()
    Dim R As Long, S As Integer, x As Variant
    Range("I1:K" & Range("H" & Rows.Count).End(xlUp).Row).ClearContents
    For R = 1 To Range("H" & Rows.Count).End(xlUp).Row
    For S = 2 To 4
    x = WorksheetFunction.VLookup(Cells(R, "H"), _
    Range("B1:E" & Range("B" & Rows.Count).End(xlUp).Row), S, 0)
    Cells(R, S + 7) = x
    Next
    Next
    End Sub

     

    شكرا لك استاذ زيزو على الرد لكن الا يوجد كود لتكون بدون زر وشكرا

  6. في 3/14/2016 at 12:26, أبو محمد أشرف said:

    تفضل أخي عساه هذا هو المطلوب قمت بتوسعت مدى الأعمدة إلى 3000 وعملت مجموع العمود بيع في الخلية s1  ومنها تاخد  الرصيد النهائي c3 - s1

    وارجو إنك توضح هدفك وطلبك كاملا من البداية اقصد تبقى تحدد مدى الخلايا من الأول

    ترحيل أشرف 2.rar

    شكرا استاذ أبو  أشرف لقد ساعتني في عملي 

    انا لم احدد مدي الخلايا لاني كنت اريدها مفتوحه

     

    علي كل حال شكرا جزيلا لك

     

  7. شكرا لك استاذ ياسر ارفق لك اخر ملف بعد ان حاولت معه هناك 3 مشاكل

     

    الاولي في ورقة a لا يتم ترحيل لها في حالة الكتابة في ورقة البيع (في ورقة البيع انا كاتب في الصف 842 ولم يتم الترحيل )

    الثانيه في ورقه a الرصيد النهائي وهو ناتج طرح c3 ناقص العمود b

    الثالثه عند الاغلاق و اختيار حفظ تظهر رساله مدقق التوافق مش عارف اعمل معاها ايه 

     

    لكم جزيل الشكر علي المتابعه

    ترحيل.rar

×
×
  • اضف...

Important Information