ترحيل بيانات الي شيت orders

[أحمد محمد اسماعيل عامر]

السلام عليكم

أريد كود ترحيل للبيانات من شيت إلى شيت آخر بنفس الترتيب في شيت ال orders

 

 

وجزاكم الله خيرا

Dynamic Orders.xlsm

[lionheart]

Try

Sub Test()
    Dim ws As Worksheet, sh As Worksheet, tbl As ListObject, lr As Long, i As Long
    Application.ScreenUpdating = False
        With ThisWorkbook
            Set ws = .Worksheets("Items"): Set sh = .Worksheets("Orders")
        End With
        Set tbl = sh.ListObjects(1)
        lr = tbl.Range.Rows.Count + tbl.Range.Row - 1
        Do While sh.Cells(lr, "C").Value = Empty
            lr = lr - 1
        Loop
        lr = lr + 1
        Dim a(1 To 16), e
        For Each e In Split("H15,F4,F6,H6,F9,H9,J9,F13,H13,J13,F15,J15,F18,H18,J18,F20", ",")
            i = i + 1
            a(i) = ws.Range(e).Value
        Next e
        sh.Range("C" & lr).Resize(, 16).Value = a
    Application.ScreenUpdating = True
    MsgBox "Done", 64
End Sub

 

[أحمد محمد اسماعيل عامر]

أحييك أخي الكريم على الكود

بس فيه مشكلة أبغى إنه يرحل كل طلب جديد في صف جديد ويضعه في آخر صف مع ترقيم للمسلسل تلقائي1. 

2.  عند الوقوف على أي صف دبل كليك أريده أن يحمل البيانات في الشيت الأول للتعديل عليها والحفظ مرة أخرى في نفس الصف وأن ينتقل تلقائي إلى الشيت للتعديل عليه

3. عند حذف أي صف يقوم بإعادة الترقيم التلقائي من جديد

4. الحفظ لمرة واحدة للطلب الواحد

5. أحتاج زر لفتح وأستعراض عرض السعر

6. عند الضغط على إلغاء يقوم بإلغاء الطلب وعدم الحفظ لأني عملته وماضبط

7. إضافة زر لطباعة مدى الجدول في شيت orders

تم العديل ووضع الكود وهو شغال الأن 100%

وجزاكم الله خيرا الجزاء

 

Dynamic Orders.xlsm

تم تعديل يونيو 1, 2023 بواسطه أحمد محمد اسماعيل عامر

[lionheart]

I am confused. What's the problem exactly

Try to be specific

[أحمد محمد اسماعيل عامر]

المشكلة عايز أعمله أوتوماتيكي واربطه ب pivot table 

 

أنا بدبر حالي بال pivot table

 

بس الحين أحتاج التعديلات الأخيرة دي بعد إذنك

[lionheart]

I don't know what do you want exactly. Focus on just one problem

[أحمد محمد اسماعيل عامر]

تمام لقد فهمت حضرتك 

أريد كود لعمل الاتي

1. ترقيم تلقائي في الجدول يبدأ من رقم واحد وعند حذف أي صف يقوم بإعادة الترقيم تلقائي

 

2. عند الضغط على زر حفظ يقوم بترحيل البيانات إلى الجدول ومسح الخانات المدخلة للإدخال الجديد

3. عند الضغط على أي صف في الجدول بالماوس يقوم بترحيل البيانات للشيت الاول للتعديل عليها 

 

4. أحتاج زر لإستعراض وفتح ملفات عرض السعر

وإذا وقف أمامي شء تاني أنا برفع لحضرتك

 

وممنون جدا لإهتمام حضرتك

 

وموفق ان شاء الله

[lionheart]

11 ساعات مضت, أحمد محمد اسماعيل عامر said:

السلام عليكم

أريد كود ترحيل للبيانات من شيت إلى شيت آخر بنفس الترتيب في شيت ال orders

The topic is just for one problem and I think this is solved

If you need more help, please post a new topic with only one request in the new topic

The forum is not for making all the work for you

 

[أحمد محمد اسماعيل عامر]

OK Sir