مشكله فى الترحيل

[أحمد الزيادى]

عند الترحيل من ملف الى ملف اخر يتم الترحيل ولكن يتم ترك 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

[هانى محمد]

عليك برفع الملف نفسه

لانك لم تقم برفع الكود كما بتعليمات المنتدى فلابد من تتبع هذه الصور لمعرفة كيفية وضع الكود بطريقة صحيحة فى المشاركة

 

 

[أحمد الزيادى]

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

 

[أحمد الزيادى]

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

تم تعديل ديسمبر 10, 2018 بواسطه أحمد الزيادى