Tarekchahine قام بنشر ديسمبر 31, 2021 مشاركة قام بنشر ديسمبر 31, 2021 السلام عليكم و رحمه الله ارجو مساعده في تعديل علي كود ترحيل المطلوب عمل حمايه الي صفحات اكسيل 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 رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر يناير 2, 2022 الكاتب مشاركة قام بنشر يناير 2, 2022 السلام عليكم و رحمه الله ان شاء الله سنه خير علي العالم كله يارب الو سمحتم ممكن المساعد في تعديل علي كود الترحيل عفوا عشان نزلت الموضوع اكثر من مره رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 4, 2022 مشاركة قام بنشر يناير 4, 2022 اخي Tarekchahine محرر الاكواد محمي اين Password: محرر الاكواد رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر يناير 4, 2022 الكاتب مشاركة قام بنشر يناير 4, 2022 السلام عليكم اخي باسورد 1942 رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 5, 2022 مشاركة قام بنشر يناير 5, 2022 وعليكم السلام احي Tarekchahine تفضل 1942.xlsm اخبرني بالنتيجة رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر يناير 5, 2022 الكاتب مشاركة قام بنشر يناير 5, 2022 (معدل) السلام عليكم استاذ يوسف شكرا علي المجهود تاعك ربي يبارك فيك وجعله في ميزان حسناتك المطلوب عند ترحيل البيانات الفاتوره الي شيت مبيعات او المشتريات او مرتجع المبيعات و المشتريات يكون في كود حمايه علي صفحات لي منع تغير معلومات فاتوره tarek chahine.xlsm تم تعديل يناير 5, 2022 بواسطه Tarekchahine رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر يناير 7, 2022 الكاتب مشاركة قام بنشر يناير 7, 2022 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.