محمد ابراهيم 78 قام بنشر أكتوبر 31, 2017 مشاركة قام بنشر أكتوبر 31, 2017 السلام عليكم الاساتذة الاعزاء ارجوا تصحيح الكود يظهر لي خطاء في تحيد القيم (المظلل باللون الاحمر) كيفية تحيد العمل لنسخة : Sub Mohammed() For i = 12 To 96 Sheets("1").Activate If Range("d" & i) <> "" ThenRange ("D" & i): Range("g" & i).Copy Sheets("2").Activate Range("e" & [e100000].End(xlUp).Row + 1).Select Selection.PasteSpecial xlPasteValues x = Range("b" & Rows.Count).End(xlUp).Row Sheets("2).Range("b" & x + 1) = Sheets("1").[g9].Value y = Range("c" & Rows.Count).End(xlUp).Row Sheets("2).Range("c" & x + 1) = Sheets("1").[e8].Value Z = Range("d" & Rows.Count).End(xlUp).Row Sheets("2").Range("d" & x + 1) = Sheets("1").[e10].Value End If Next i End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 31, 2017 مشاركة قام بنشر أكتوبر 31, 2017 منذ ساعه, محمد ابراهيم 78 said: السلام عليكم الاساتذة الاعزاء ارجوا تصحيح الكود يظهر لي خطاء في تحيد القيم (المظلل باللون الاحمر) كيفية تحيد العمل لنسخة : Sub Mohammed() For i = 12 To 96 Sheets("1").Activate If Range("d" & i) <> "" ThenRange ("D" & i): Range("g" & i).Copy Sheets("2").Activate Range("e" & [e100000].End(xlUp).Row + 1).Select Selection.PasteSpecial xlPasteValues x = Range("b" & Rows.Count).End(xlUp).Row Sheets("2).Range("b" & x + 1) = Sheets("1").[g9].Value y = Range("c" & Rows.Count).End(xlUp).Row Sheets("2).Range("c" & x + 1) = Sheets("1").[e8].Value Z = Range("d" & Rows.Count).End(xlUp).Row Sheets("2").Range("d" & x + 1) = Sheets("1").[e10].Value End If Next i End Sub ارفع الملف نفسه لمعرفة الخطأ رابط هذا التعليق شارك More sharing options...
محمد ابراهيم 78 قام بنشر أكتوبر 31, 2017 الكاتب مشاركة قام بنشر أكتوبر 31, 2017 منذ ساعه, سليم حاصبيا said: ارفع الملف نفسه لمعرفة الخطأ السلام عليكم هذا المرفق وشكراً على الاجابة تصحيح كود.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أكتوبر 31, 2017 مشاركة قام بنشر أكتوبر 31, 2017 السلام عليكم ورحمة الله تم التصحيح في الملف المرفق.... بن علية تصحيح كود.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 31, 2017 مشاركة قام بنشر أكتوبر 31, 2017 بعد اذن اخي بن علية هذا الكود Sub translate_data() Dim My_Rg As Range Dim r% Set My_Rg = Sheets(1).Range("c11").CurrentRegion r = My_Rg.Rows.Count Set My_Rg = My_Rg.Offset(4, 0).Resize(r - 4) Sheets(2).Range("a2").Resize(r - 4, 1).Value = My_Rg.Columns(1).Value Sheets(2).Range("e2").Resize(r - 4, 4).Value = My_Rg.Columns(2).Resize(r - 4, 4).Value End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان