ترحيل العمود G بملف الترحيل من الى العمودG بملف الترحيل الى وهو مغلق

[omhamzh]

السلام عليكم ورحمة الله

احتاج الى كود لترحيل المبالغ التى فى العمود g بالملف المسمى الترحيل من الى العمود g بالملف المسمى الترحيل الى

بس يكون الملف المسمى الترحيل الى مغلق يتم الترحيل اليه وهو مغلق

بارك الله فيكم

ترحيل الى.xlsx ترحيل من.xlsm

[حسين مامون]

فك الضغط وخزن المجلد في اي فولدر 

documen.rar

[omhamzh]

بارك الله فيك حقا حفظك الله حضرتك فعلا======رائع

 استاذ حسين مامون

بس بالتجربة اجد الكود يرحل الارقام ورا بعض ما احتاجه هو عملية نقل للارقم كما هى فى نفس اماكنها وليس ترحيل اسفل بعض كل ما اضغط على زر الترحيل يرحل اسفل القديم

انا عايزة ارحل العمود كما هو 

اعتذر لك احتاج هذا التغير مع الشكر

بارك الله فيك

[حسين مامون]

جزاك الله خيرا

غير هذا السطر 

         ws.Range("g2:g" & lr1).Copy wb.Worksheets(1).Range("g" & lr2)

بهذا

         ws.Range("g2:g" & lr1).Copy wb.Worksheets(1).Range("g2")

 

[omhamzh]

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

رينا يرضى عنك يارب

كل الدعوات الطيبة لحضرتك