ابو الآء قام بنشر أغسطس 17, 2011 مشاركة قام بنشر أغسطس 17, 2011 بسم الله الرحمن الرحيم كل عام وانت جميعا بالف خير تقبل الله منا ومنكم صالح الاعمال الرجاء المساعده فى حفظ نسخة من الشيت بمحتوى خليه محدده داخل نفس ملف الاكسيل بارك الله فيكم جميعا المركز المالى للمدرسة.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 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 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر أغسطس 17, 2011 الكاتب مشاركة قام بنشر أغسطس 17, 2011 اخى واستاذى الحبيب ابو احمد بارك الله فيك هذاهوا بالضبط ما كنت ابحث عنه واسف للاثقال عليك هل يمكن ان الاحتفاظ بنفس تنسيق المصدر لانه هذا الملف يمكن الرجوع اليه وطباعته فى اى وقت من قبل اشخاص ليس لهم خبره بالاكسيل مع مسح الخليه المحضضة للتاريخ مع الشيت الاساسي رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 17, 2011 مشاركة قام بنشر أغسطس 17, 2011 هل يمكن ان الاحتفاظ بنفس تنسيق المصدر لانه هذا الملف يمكن الرجوع اليه وطباعته فى اى وقت من قبل اشخاص ليس لهم خبره بالاكسيل اخي استبدل هذا الجزاء من الكود xx = ws.Range("J6").Value بهذا الجزاء xx = Format(ws.Range("J6").Value, "dd-mm-yyyy") وعدل تنسيق خلية المصدر الى تاريخ مع مسح الخليه المحضضة للتاريخ مع الشيت الاساسي وضح اكثر؟؟؟؟ رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر أغسطس 17, 2011 الكاتب مشاركة قام بنشر أغسطس 17, 2011 استاذى الحبيب اول رمضان كريم وكل سنه وانت طيب ======================================= لم استطع ايصال طلبى اليك بصوره صحيحه الطلب الاول ان يكون تنسيق السيت الجديد بنفس تنسيق الشيت الاساسي ( تنسيق الشيت للطباعه ) الطلب الثانى ان يكون ضمن مجال الحذف فى الشيت الاساسي الخليه ( J6 ) رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 17, 2011 مشاركة قام بنشر أغسطس 17, 2011 اخي ابو الاء جرب المرفق المركز المالى للمدرسة1.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 17, 2011 مشاركة قام بنشر أغسطس 17, 2011 اخي ابو الاء جرب المرفق الاخ الاستاذ ابو احمد " عبد الله المجرب " جزاك الله كل الخير .... وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر أغسطس 17, 2011 الكاتب مشاركة قام بنشر أغسطس 17, 2011 اخى الحبيب ابواحمد بارك الله فيك جميل جدااا ورائع تقبل الله منا ومنك صالح الاعمال اخى ياسر حافظ / الف شكر على اهتمامك بارك الله فيك رابط هذا التعليق شارك 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.