ابو الآء قام بنشر أغسطس 17, 2011 قام بنشر أغسطس 17, 2011 بسم الله الرحمن الرحيم كل عام وانت جميعا بالف خير تقبل الله منا ومنكم صالح الاعمال الرجاء المساعده فى حفظ نسخة من الشيت بمحتوى خليه محدده داخل نفس ملف الاكسيل بارك الله فيكم جميعا المركز المالى للمدرسة.rar
عبدالله المجرب قام بنشر أغسطس 17, 2011 قام بنشر أغسطس 17, 2011 (معدل) اخي ابو الاء تفضل المرفق تمت اضافة كودين في الملف ان شاء الله هذا ما اردت ابواحمد Sub officna() On Error Resume Next Set ws = Sheets("الشيت الاساسى ") ws.Range("A7:P46").Copy xx = ws.Range("J6").Value Worksheets.Add().Name = xx Range("A7").Select ActiveSheet.Paste Range("A7").Select Sheets(xx).Move After:=ws Sheets(xx).Select Application.CutCopyMode = False officna1 End Sub Sub officna1() Application.ScreenUpdating = False Set ws = Sheets("الشيت الاساسى ") ws.Select For i = 11 To 36 For s = 3 To 6 For w = 9 To 12 Cells(i, s).ClearContents Cells(i, w).ClearContents Next w Next s Next i Application.ScreenUpdating = True End Sub المركز المالى للمدرسة.rar تم تعديل أغسطس 17, 2011 بواسطه عبدالله المجرب
ابو الآء قام بنشر أغسطس 17, 2011 الكاتب قام بنشر أغسطس 17, 2011 اخى واستاذى الحبيب ابو احمد بارك الله فيك هذاهوا بالضبط ما كنت ابحث عنه واسف للاثقال عليك هل يمكن ان الاحتفاظ بنفس تنسيق المصدر لانه هذا الملف يمكن الرجوع اليه وطباعته فى اى وقت من قبل اشخاص ليس لهم خبره بالاكسيل مع مسح الخليه المحضضة للتاريخ مع الشيت الاساسي
عبدالله المجرب قام بنشر أغسطس 17, 2011 قام بنشر أغسطس 17, 2011 هل يمكن ان الاحتفاظ بنفس تنسيق المصدر لانه هذا الملف يمكن الرجوع اليه وطباعته فى اى وقت من قبل اشخاص ليس لهم خبره بالاكسيل اخي استبدل هذا الجزاء من الكود xx = ws.Range("J6").Value بهذا الجزاء xx = Format(ws.Range("J6").Value, "dd-mm-yyyy") وعدل تنسيق خلية المصدر الى تاريخ مع مسح الخليه المحضضة للتاريخ مع الشيت الاساسي وضح اكثر؟؟؟؟
ابو الآء قام بنشر أغسطس 17, 2011 الكاتب قام بنشر أغسطس 17, 2011 استاذى الحبيب اول رمضان كريم وكل سنه وانت طيب ======================================= لم استطع ايصال طلبى اليك بصوره صحيحه الطلب الاول ان يكون تنسيق السيت الجديد بنفس تنسيق الشيت الاساسي ( تنسيق الشيت للطباعه ) الطلب الثانى ان يكون ضمن مجال الحذف فى الشيت الاساسي الخليه ( J6 )
عبدالله المجرب قام بنشر أغسطس 17, 2011 قام بنشر أغسطس 17, 2011 اخي ابو الاء جرب المرفق المركز المالى للمدرسة1.rar
ياسر الحافظ قام بنشر أغسطس 17, 2011 قام بنشر أغسطس 17, 2011 اخي ابو الاء جرب المرفق الاخ الاستاذ ابو احمد " عبد الله المجرب " جزاك الله كل الخير .... وفقك الله ابو الحارث
ابو الآء قام بنشر أغسطس 17, 2011 الكاتب قام بنشر أغسطس 17, 2011 اخى الحبيب ابواحمد بارك الله فيك جميل جدااا ورائع تقبل الله منا ومنك صالح الاعمال اخى ياسر حافظ / الف شكر على اهتمامك بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.