مساعدة فى الترحيل

[محمد7788]

السلام عليكم ...المطلوب ترحيل الأرقام من العمود H في هذا الشيت بداية من الخلية H10الى اخر H39 وذلك الى شيت أرشيف التقارير العمود F 
وفى كل مرة بالضغط على زر ترحيل الى أرشيف يقوم بالترحيل الى العمود الفارغ الذى يليه 

انتبه من فضلك , فطالما ان طلبك لا يمكن عمله الا بالأكواد فكان عليك لزاما رفع الملف بإمتداد يقبل إضافة الأكواد ... تــــم اعادة رفع الملف بإمتداد XLSM

تقارير.xlsm

[محي الدين ابو البشر]

 ربما

تقارير.xlsm

[محمد7788]

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

 

[أ / محمد صالح]

بعد إذن أخي محي الدين

جرب تغيير الاجراء إلى هذا الكود

هذا باستعمال الاسم البرمجي للشيت ودالة cells

Sub test()
Dim a, col As Long
a = Range(Worksheet____37.Cells(10, 8), Worksheet____37.Cells(39, 8)).Value
col = Application.Match(Worksheet____37.Cells(9, 8), Worksheet____60.Range("a9:m9"), 0)
Worksheet____60.Cells(10, col).Resize(30) = a
MsgBox "Done by mr-mas.com"
End Sub

وهذا نفس الاجراء باسم الشيت والنطاق

Sub mrmas()
Dim a, col As Long
a = Sheets("طباعة حافظة التقارير").Range("h10:h39").Value
col = Application.Match(Sheets("طباعة حافظة التقارير").Range("h9"), Sheets("ارشيف التقارير").Range("a9:m9"), 0)
Sheets("ارشيف التقارير").Cells(10, col).Resize(30) = a
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق