تعديل علي كود ترحيل الفاتوره

[Tarekchahine]

السلام عليكم و رحمه الله ارجو مساعده في تعديل علي كود ترحيل 

المطلوب عمل حمايه الي صفحات اكسيل product sheet صفحه المبيعات و المشتريات و م.المبيعات و م.المشتريات من بعد ترحيل الفاتوره

كود 101 تاع صفخات 

Sub tarheel() For n = 20 To Sheets("فاتوره").Range("a19").End(xlDown).Row rw = Sheets(Sheets("فاتوره").Range("h2").Value).Range("b10000").End(xlUp).Row + 1 Sheets(Sheets("فاتوره").Range("h2").Value).Range("b" & rw).Value = Sheets("فاتوره").Range("i2").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("c" & rw).Value = Sheets("فاتوره").Range("h2").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("d" & rw).Value = Sheets("فاتوره").Range("h9").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("e" & rw).Value = Sheets("فاتوره").Range("b17").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("f" & rw).Value = Sheets("فاتوره").Range("b9").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("g" & rw).Value = Sheets("فاتوره").Range("b" & n).Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("h" & rw).Value = Sheets("فاتوره").Range("a" & n).Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("i" & rw).Value = Sheets("فاتوره").Range("c" & n).Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("j" & rw).Value = Sheets("فاتوره").Range("f" & n).Value Next n       Range("h2").ClearContents Range("i9").ClearContents Range("A20:c49").ClearContents Range("b9").ClearContents MsgBox "Ok"  Application.EnableEvents = True     Application.Calculation = xlAutomatic     Application.ScreenUpdating = True End Sub

انتبه من فضلك مشاركة مكررة .... تــم بالفعل حذف المشاركة الأخرى

tarek chahine.xlsm

[Tarekchahine]

السلام عليكم و رحمه الله ان شاء الله سنه خير علي العالم كله يارب

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

عفوا عشان نزلت الموضوع اكثر من مره 

[محمد يوسف ابو يوسف]

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

اين  Password: محرر الاكواد

[Tarekchahine]

السلام عليكم اخي باسورد 1942

[محمد يوسف ابو يوسف]

وعليكم السلام  

احي  Tarekchahine

تفضل 1942.xlsm

 

اخبرني بالنتيجة

[Tarekchahine]

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

المطلوب عند ترحيل البيانات الفاتوره الي شيت مبيعات او المشتريات او مرتجع المبيعات و المشتريات يكون في كود حمايه علي صفحات لي منع تغير معلومات فاتوره

tarek chahine.xlsm

تم تعديل يناير 5, 2022 بواسطه Tarekchahine

[Tarekchahine]

للرفع