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

[yasse.w.2010]

الاساتذه الكرام  ..السلام عليكم و رحمة الله وبركاته..ارجو المساعده في كود الترحيل حيث انه عند الترحيل من اليوميه الى ورقه 1

لا يرحل المبالغ في دفتر الاستاذ كما يجب بل يرحلها خطأ كما هو موضخ في الملف ..شاكر لكم كدا ...شكرا اوفسينا

ترحيل.xlsm

[AliBadawy]

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

       Dim LR As Integer
LR = Sheets("اليومية الامريكية").[m1000].End(xlUp).Row
Sheets("اليومية الامريكية").Range("a9:w" & LR).Copy
Sheets("sheet1").Range("a9").PasteSpecial xlPasteValues

MsgBox "تمت الاضافة بنجاح", vbInformation, "تم"

ترحيل.xlsm

[yasse.w.2010]

الف شكر استذنا الكريم

وارجو من حضرتك لو امكن ان يكون الترحيل بالتنسيق

وشاكر لك جدا

[AliBadawy]

 'غير
xlPasteValuesAndNumberFormats
 'مكان 
xlPasteValues
   
'وضيف الكود ده  لو حابب تاخد الوان الخلايا والحدود
   Sheets("sheet1").Range("a9").PasteSpecial xlPasteFormats

كدا هينسخ القيم والتنسيق مع بعض

[yasse.w.2010]

الف شكر لحضرتك 

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

الف شكر