أحمد الزيادى قام بنشر ديسمبر 9, 2018 مشاركة قام بنشر ديسمبر 9, 2018 عند الترحيل من ملف الى ملف اخر يتم الترحيل ولكن يتم ترك 5 خانات فارغه ويلصق البيانات ... وعند الترحيل مره اخرى يتم ترك 5 خانات ايضا ويتم لصق البيانات هذا هو الكود Sub ahmed() Application.ScreenUpdating = False Workbooks("íæãíÇÊ.xlsb").Activate Workbooks("íæãíÇÊ.xlsb").Sheets(1).Range("b7:m" & Cells(Rows.Count, "b").End(xlUp).Row).Copy Workbooks("oilz.xlsb").Activate Sheets("ÇáÍÑßå").Activate Dim LastR As Long LastR = Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Cells(Rows.Count, 2).End(xlUp).Row x = Range("a" & Rows.Count).End(xlUp).Row Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Range("b" & x + LastR).Select Selection.PasteSpecial xlPasteValues Workbooks("íæãíÇÊ.xlsb").Activate Application.ScreenUpdating = True Workbooks("íæãíÇÊ.xlsb").Activate [a1].Select MsgBox ("Êã ÇáÊÑÍíá ÈäÌÇÍ" & Chr(10)) End Sub رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر ديسمبر 9, 2018 مشاركة قام بنشر ديسمبر 9, 2018 عليك برفع الملف نفسه لانك لم تقم برفع الكود كما بتعليمات المنتدى فلابد من تتبع هذه الصور لمعرفة كيفية وضع الكود بطريقة صحيحة فى المشاركة 1 رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر ديسمبر 10, 2018 الكاتب مشاركة قام بنشر ديسمبر 10, 2018 Sub ahmed() Application.ScreenUpdating = False Workbooks("íæãíÇÊ.xlsb").Activate Workbooks("íæãíÇÊ.xlsb").Sheets(1).Range("b7:m" & Cells(Rows.Count, "b").End(xlUp).Row).Copy Workbooks("oilz.xlsb").Activate Sheets("ÇáÍÑßå").Activate Dim LastR As Long LastR = Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Cells(Rows.Count, 2).End(xlUp).Row x = Range("a" & Rows.Count).End(xlUp).Row Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Range("b" & x + LastR).Select Selection.PasteSpecial xlPasteValues Workbooks("íæãíÇÊ.xlsb").Activate Application.ScreenUpdating = True Workbooks("íæãíÇÊ.xlsb").Activate [a1].Select MsgBox ("Êã ÇáÊÑÍíá ÈäÌÇÍ" & Chr(10)) End Sub رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر ديسمبر 10, 2018 الكاتب مشاركة قام بنشر ديسمبر 10, 2018 (معدل) عاوز اعرف ليه الكود بيكتب بعد ٥ سطور فى كل مره برحل فيهم البيانات وشكرا ياجماعه تم تعديل ديسمبر 10, 2018 بواسطه أحمد الزيادى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان