محمد نوح قام بنشر فبراير 26, 2013 مشاركة قام بنشر فبراير 26, 2013 book.rar 1 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر فبراير 26, 2013 مشاركة قام بنشر فبراير 26, 2013 (معدل) السلام عليكم ضع هذا الكود في الزر كموند 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 بواسطه أبو حنين رابط هذا التعليق شارك More sharing options...
محمد نوح قام بنشر فبراير 26, 2013 الكاتب مشاركة قام بنشر فبراير 26, 2013 استاذنا الفاضل ابو حنين جزاك الله خيرا على الكود وتم تنفيذه على الملف وتحقق المرجو منه وارجو من الخوة الافاضل ان يقبلوا اعتذارى حيث اننى عند ارفاق طلبى قد كتبت هذه المقدمة (الاخوة الافاضل السلام عليكم ورحمة الله وبركاتة اتمنى من الله تعالي ان يكون جميع العاملين والمشاركين بالمنتدى باحسن صحة وافضل حال نظرا لما يقدمة المنتدى من معلومات لمستخدمى الاوفيس ) ولكنى فوجئت بعدم وجودها ووجود المشاركة بالملف المرفق فقط لذا ارجو ان يتقبل الجميع اعتذارى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.