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

[محمد نوح]

book.rar

[أبو حنــــين]

السلام عليكم

ضع هذا الكود في الزر كموند 1

 

Private Sub CommandButton2_Click()
With Sheets("تقرير")
lr = .Cells(Rows.Count, "D").End(xlUp).Row + 1
.Cells(lr, "D").Value = lr - 4
.Cells(lr, "E").Value = Range("C7").Value
.Cells(lr, "I").Value = Range("L15").Value
.Cells(lr, "H").Value = Range("M4").Value
.Cells(lr, "G").Value = Range("A6").Value
.Cells(lr, "F").Value = Range("A2").Value
End With
End Sub

تم تعديل فبراير 26, 2013 بواسطه أبو حنين

[محمد نوح]

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

وارجو من الخوة الافاضل ان يقبلوا اعتذارى حيث اننى عند ارفاق طلبى قد كتبت هذه المقدمة (الاخوة الافاضل
السلام عليكم ورحمة الله وبركاتة اتمنى من الله تعالي ان يكون جميع
العاملين والمشاركين بالمنتدى باحسن صحة وافضل حال نظرا لما يقدمة المنتدى
من معلومات لمستخدمى الاوفيس ) ولكنى فوجئت بعدم وجودها ووجود المشاركة بالملف المرفق فقط لذا ارجو ان يتقبل الجميع اعتذارى