yasse.w.2010 قام بنشر مايو 16, 2022 مشاركة قام بنشر مايو 16, 2022 الاساتذه الكرام ..السلام عليكم و رحمة الله وبركاته..ارجو المساعده في كود الترحيل حيث انه عند الترحيل من اليوميه الى ورقه 1 لا يرحل المبالغ في دفتر الاستاذ كما يجب بل يرحلها خطأ كما هو موضخ في الملف ..شاكر لكم كدا ...شكرا اوفسينا ترحيل.xlsm رابط هذا التعليق شارك More sharing options...
AliBadawy قام بنشر مايو 16, 2022 مشاركة قام بنشر مايو 16, 2022 اتمني يكون الكود ده ساعد حضرتك 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 2 رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر مايو 16, 2022 الكاتب مشاركة قام بنشر مايو 16, 2022 الف شكر استذنا الكريم وارجو من حضرتك لو امكن ان يكون الترحيل بالتنسيق وشاكر لك جدا رابط هذا التعليق شارك More sharing options...
أفضل إجابة AliBadawy قام بنشر مايو 16, 2022 أفضل إجابة مشاركة قام بنشر مايو 16, 2022 'غير xlPasteValuesAndNumberFormats 'مكان xlPasteValues 'وضيف الكود ده لو حابب تاخد الوان الخلايا والحدود Sheets("sheet1").Range("a9").PasteSpecial xlPasteFormats كدا هينسخ القيم والتنسيق مع بعض 2 رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر مايو 16, 2022 الكاتب مشاركة قام بنشر مايو 16, 2022 الف شكر لحضرتك الف شكر منتدي اوفسينا الف شكر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها