ترحيل بيانات الإيصال إلى صفحة اليومية واستدعاء الإيصال عند الطلب

[خالد هلال]

اهلا ومرحبا بكم

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

مرفق اليكم نموذج

نموذج.zip

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

أخي الكريم خالد هلال

إليك الملف التالي عله يفي بالغرض

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet
    Dim LR As Long
    Set WS = Sheets("الإيصال"): Set SH = Sheets("اليومية")
    LR = SH.Cells(Rows.Count, 6).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
        With SH
            .Range("A" & LR) = LR - 4
            .Range("B" & LR) = WS.Range("G3")
            .Range("C" & LR) = WS.Range("G2")
            .Range("D" & LR) = WS.Range("B4")
            .Range("E" & LR) = WS.Range("B5")
            .Range("F" & LR) = (WS.Range("B6") - Int(WS.Range("B6"))) * 100
            .Range("G" & LR) = Int(WS.Range("B6"))
            .Range("H" & LR) = WS.Range("D5")
            .Range("I" & LR) = WS.Range("B7")
            
            WS.Range("G3") = WS.Range("G3") + 1
        End With
        MsgBox "تم الترحيل بنجاح", vbInformation
    Application.ScreenUpdating = True
End Sub

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي كما لا تنسى أن تضغط أعجبني هذا إذا أعجبتك المشاركة وأدت الغرض

تقبل تحياتي

Tarhil YasserKhalil.rar

[ابو نبأ]

بارك الله فيكم - جزيت خيرا

[خالد هلال]

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

اولا مشكوراٌ على هذا العمل الرائع والأستجابة لطلبى

هل يمكن استدعاء الأيصال من كشف اليومية عند طلبه