تعديل على كود الترحيل ليتجاوز عن بعض الخلايا التي تحتوي على معادلات

[محمد لؤي]

السلام عليكم : تقبل الله منكم صالح الاعمال - تعديل على كود الترحيل

سؤالي : تجميد خانة السعر وخانة المجموع وخانة التاريخ لاحتوائها على معادلات ويكون التنقل من الاسم الى المادة الى الكمية الى الملاحظات (يتجاوز خانة السعر والمجموع والتاريخ) وجعل التاريخ يدرج تلقائيا

سهلة ان شاء الله

 

 

تغديل كود ترحيل.rar

[عبدالسلام ابوالعوافي]

Sub sabah()
    Dim lr1 As Integer
    Dim lr2 As Integer
    lr1 = [b1000].End(xlUp).Row
    With Sheets("ورقة2")
        lr2 = .[b1000].End(xlUp).Row + 1
       .Range("b" & lr2) = Range("b" & lr1)
       .Range("c" & lr2) = Range("c" & lr1)
       .Range("e" & lr2) = Range("e" & lr1)
       .Range("h" & lr2) = Range("h" & lr1)
       .Range("g" & lr2) = Date
    End With
    ActiveSheet.Rows(lr1).ClearContents
    MsgBox ("تم ترحيل البيانات بنجاح")
End Sub

 

[محمد لؤي]

السلام عليكم

قصدي اعزكم الله

خانة السعر تحتوي على معادلة ، وكذلك خانة المجموع

فعند ادخال نوع المنتوج يظهر السعر تلقائياً لوجود معادلة وكذلك المجموع 

 

واريد وفقكم الله عند ادخال البيانات المؤشر يتجاوز الخانة التي تحتوي على المعادلة ، وعند الترحيل تبقى المعادلة

 

سهلة ان شاء الله - بارك الله فيكم

 

 

تغديل كود ترحيل123456.rar

[أبو حنــــين]

مرحبا

جرب اخي الملف

تعديل كود ترحيل123456.rar

[محمد لؤي]

السلام عليكم - حياك الله استاذ ابو حنين - خبير والله 

شكرا