ياسر أحمد الشيخ قام بنشر ديسمبر 17, 2012 مشاركة قام بنشر ديسمبر 17, 2012 السلام عليكم ورحمه الله وبركاته عندى شيت به تنسيقات كثيره جدا عندما أقوم بنسخه لملف آخر تتغير الألوان والخطوط تصبخ غير مقروءة كيف انسخ هذا الشيت (بكل تنسيقاته) إلى ملف آخر باستخدام الكود الملف الآخر باسم مثلا Book1 أرجو الافادة System.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 17, 2012 مشاركة قام بنشر ديسمبر 17, 2012 السلام عليكم جرب هذا الكود Sub A_Copy() Dim W As Workbook Set W = Workbooks.Add(xlWorksheet) ThisWorkbook.Sheets(1).Copy W.Sheets(1) End Sub رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر ديسمبر 18, 2012 الكاتب مشاركة قام بنشر ديسمبر 18, 2012 السلام عليكم شكرا أخى على الرد ولكن هذا الحل لم يجدى نفعا جرب أخى على الملف وأرفقلى الملف بالحل مرة أخرى لاحظ أخى اننى اريد نسخ الشيت بكل تنسيقاته الشرطية شكرا رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر ديسمبر 19, 2012 الكاتب مشاركة قام بنشر ديسمبر 19, 2012 للرفع أرجو الاهتمام أيها الأخوة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 19, 2012 مشاركة قام بنشر ديسمبر 19, 2012 (معدل) جربت الكود نسخ كل شيء التنسيقات الشرطية موجوده في الملف الجديد ؟ تم تعديل ديسمبر 19, 2012 بواسطه عباد رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر ديسمبر 22, 2012 الكاتب مشاركة قام بنشر ديسمبر 22, 2012 شكرا أخى للاهتمام ولكن تبقى المشكلة لاحظ أخى الصفوف 11،12،13 و 21،22،23 وهكذا النصوص غير مرئية بها ما الحل أخى الكريم رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 22, 2012 مشاركة قام بنشر ديسمبر 22, 2012 السلام عليكم بعد استخدام الكود انسخ هذا الكود في الملف الجديد وشغله إن شاء الله تزبط معك الألوان Public Sub Ali_Form() Dim R As Range, Rn As Range Dim Ct As FormatCondition With ActiveSheet Set R = .Range("A1:J102").SpecialCells(xlCellTypeAllFormatConditions) With Application .ScreenUpdating = False: .EnableEvents = False For Each Rn In R For C = 1 To Rn.FormatConditions.Count Set Ct = Rn.FormatConditions(C) If Ct.Interior.ColorIndex Then Ct.Interior.Color = 14474738 End If Next Next .ScreenUpdating = True: .EnableEvents = True End With End With End Sub رابط هذا التعليق شارك More sharing options...
احمد حبيبه قام بنشر ديسمبر 29, 2012 مشاركة قام بنشر ديسمبر 29, 2012 أستاذى أبو نصار لى سؤال بسيط لو عندى شيت مكون من 100 صفحة عمل واريد نسخ جميع الصفحات بتنسيقاتهم ومعادلاتهم واكوادهم لشيت جديد فهل هذا ممكن ولو ممكن ممكن تزودنى بهذا الكود الهام جدا وطريقة إستخدامه رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 29, 2012 مشاركة قام بنشر ديسمبر 29, 2012 السلام عليكم جرب هذا الكود Public Sub Ali_Copy() Dim Sh As Worksheet Dim W1 As Workbook Set W1 = ThisWorkbook Dim W As Workbook Set W = Workbooks.Add(xlWorksheet) With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual W.Sheets(1).Name = "Test" .DisplayAlerts = False For Each Sh In W1.Sheets Sh.Copy After:=W.Sheets(W.Sheets.Count) Next Sh W.Sheets(1).Delete .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .DisplayAlerts = True End With End Sub رابط هذا التعليق شارك More sharing options...
احمد حبيبه قام بنشر يناير 14, 2013 مشاركة قام بنشر يناير 14, 2013 عزيزى أبو نصار الكود رائع ما شاء الله عليك ولكن لى طلب بسيط وهو تعديل الكود ليتم نسخ الشيت الى شيت أخر اختارة انا بمعنى اننى عندى شيت اسمه الكنترول اريد نسخ بعض اوراقة اوكلها لشيت اخر يسمى الكنترول 2 فكيف يتم ذلك رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر يناير 15, 2013 مشاركة قام بنشر يناير 15, 2013 ما شاء الله أستاذ ابو نصار روائع الله يحميك رابط هذا التعليق شارك More sharing options...
إبراهيم محمد قام بنشر يناير 16, 2013 مشاركة قام بنشر يناير 16, 2013 ما شاء الله عليك يا استاذ عباد دائما نرى عبقريتك فى كل الاكواد زادك الله علما و نورا رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يناير 30, 2013 مشاركة قام بنشر يناير 30, 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.