نجوم المشاركات

عفوا .. مهلا .. إنه عامنا الجديد ..2012 لما تستقبلوه هكذا وهو ضيف جديد لم يذق حرارة الصحبة .. التمسوا لأخيكم ألف عذر وعذر..لأنه لم يعاشرنا بعد .. منتدانا منتدى الأخوة والتقدير وانكار الذات واحتواء الشارد.. دفء الأسرة .. تحية لبيتنا الذى يحوينا ويحتوينا ألا تلاحظون أن اخى 2012 ذكر بعض الزملاء بالخير بأسلوب منمق منسق .. فالرجل يمتلك حس رفيع ..الطريق طويل أخى الفاضل ** لما لا تفصح عن اسمك حتى نتواصل دون قناع . تحياتى لنا جميعـــــا

لعله هكذا رغم انك الكود كبير Sub ali_Copy() On Error Resume Next Application.ScreenUpdating = False Application.EnableEvents = False Dim Rng1 As Range Dim Tgt As Range Dim so As Range Set Rng1 = Worksheets("سعر البيع").Range("c6:c1005") Set Tgt = Sheet17.Range("c6") Set so = Sheet16.Range("c6") Tgt.Offset(0).Resize(Rng1.Cells.Count).Value = Rng1.Value so.Offset(0).Resize(Rng1.Cells.Count).Value = Rng1.Value End Sub