طلب مساعده من خبراء الاكسيل

[ابو محمد نصري]

كود نقل من صفحه bon de livraison الي الارشيف

BON.rar

[ياسر خليل أبو البراء]

أخي الكريم طارق

أولا لابد أن يكون عنوان الموضوع معبر عن الموضوع

ثانيا يرجى تحديد الطلب بشكل أدق ..

فهمت أنك تريد الترحيل ، ولكن يا ريت توضح كل بيان المراد ترحيله إلى أي عمود حيث لاحظت أن بعض الأعمدة مختلفة في عناوينها ..فلكي يتم العمل بشكل صحيح يرجى تحديد كل بيان مراد ترحيله بالضبط

[ابو محمد نصري]

اخي الكريم يوسف خليل 

انا معلوماتي في اكسيل ظعيف جدا ارسلت لكل تعديل الجديد

BON.rar

[ابو محمد نصري]

اخي الكريم  اريد كود ترحيل

اسم( B11) و التاريخ(B17) و الكميه والبيان و سعر(A20:E49) فقط
الي صفحه الارشيف

تم تعديل مارس 18, 2015 بواسطه tarekchahine

[ابو محمد نصري]

مساعده من خبراء الاكسيل

كود ترحيل من صفحة BON الى الارشيف

BONتعديل.rar

تم تعديل مارس 18, 2015 بواسطه tarekchahine

[ياسر خليل أبو البراء]

الأخ الفاضل طارق

إليك الكود التالي .

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet
    Dim LRWS As Long, LRSH As Long
    Dim X As Long, I As Long
    Set WS = Sheets("bon de livraison "): Set SH = Sheets("الارشف")
    LRWS = WS.Cells(50, 1).End(xlUp).Row
    X = Application.WorksheetFunction.CountA(WS.Range("A20:A" & LRWS))
    Application.ScreenUpdating = False
        For I = 1 To X
            LRSH = SH.Cells(Rows.Count, 2).End(xlUp).Row + 1
            SH.Cells(LRSH, 2).Value = WS.Range("B17")
            SH.Cells(LRSH, 3).Value = WS.Range("B11")
            SH.Cells(LRSH, 4).Value = WS.Cells(19 + I, 2).Value
            SH.Cells(LRSH, 5).Value = WS.Cells(19 + I, 1).Value
            SH.Cells(LRSH, 6).Value = WS.Cells(19 + I, 5).Value
        Next I
    MsgBox "تم الترحيل بحمد الله", vbInformation, "YasserKhalil"
    Application.ScreenUpdating = True
End Sub

وأيضاً إليك الملف المرفق فيه ما طلبت بإذن الله ..

 

Tarhil YasserKhalil.rar

[ابو محمد نصري]

احي الكريم يوسف ممكن شرح الكود ترحيل 

[ابو محمد نصري]

الله يعطيك العافيه الكود جميل جدا

[ياسر خليل أبو البراء]

يرجى من الأخوة المشرفين تغيير عنوان الموضوع

الأخ الفاضل طارق (اسمي على نفس وزنك .. ياسر )

اعذرني الليلة .. إن شاء الله غداً أقوم بشرح الكود لأني الليلة Out of order خارج نطاق الخدمة ..

تقبل تحياتي

[ياسر خليل أبو البراء]

هذا موضوع آخر مشابه للموضوع الذي أشرت إليه ...

لاحظوا إخواني تشابه الملفات في الموضوعات واختلاف أسماء الأعضاء !!!!!!!!!!!!!!

أي أن هناك أعضاء تدخل المنتدى بأسماء مختلفة وهو نفس الشخص ..

ولا أعلم الفائدة من ذلك ..ربما يتوهمون أنهم إذا دخلوا بأسماء مختلفة سيحصلون على ردود لموضوعاتهم !!!!!!!!!!

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

أرجو ممن يفعل ذلك أن يكف عن هذا الأمر ، فليس منه فائدة ...