ابوسلماان قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 مساء الخير ،، احتاج الى كود برمجي لنسخ محتوى خلية الى خلية فارغة تحتها مباشرة .. أو بمعنى آخر ( أي خلية فارغة في العمود B مثلا .. احتاج الى نسخ البيانات التي اعلاها مباشرة لتصبح في الخلية الفارغة وهكذا ). مرفق لكم ملف لتوضيح ذلك. Copy.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 جرب هذا الماكرو Sub Copy_To_Next_Row() Dim my_sh As Worksheet Dim LastRow As Integer Set my_sh = Sheets("test") If ActiveSheet.Name <> "test" Then Exit Sub LastRow = Cells(Rows.Count, 1).End(3).Row For i = 2 To LastRow +7 Step 3 If Not IsEmpty(Cells(i, 2)) Then Cells(i + 2, 2) = Cells(i + 1, 2) End If Next End Sub 1 رابط هذا التعليق شارك More sharing options...
ابوسلماان قام بنشر يناير 18, 2017 الكاتب مشاركة قام بنشر يناير 18, 2017 تشكرات يا باشا ،، اشتغل الكود بشكل صحيح .. ما عدا الخلية الفارغة التي في الصف الرابع .. لكن مش مشكلة ننسخها يدوي .. تحية وتقدير لك باش مهندس .. رابط هذا التعليق شارك More sharing options...
ابوسلماان قام بنشر يناير 20, 2017 الكاتب مشاركة قام بنشر يناير 20, 2017 في 1/18/2017 at 18:12, سليم حاصبيا said: جرب هذا الماكرو Sub Copy_To_Next_Row() Dim my_sh As Worksheet Dim LastRow As Integer Set my_sh = Sheets("test") If ActiveSheet.Name <> "test" Then Exit Sub LastRow = Cells(Rows.Count, 1).End(3).Row For i = 2 To LastRow +7 Step 3 If Not IsEmpty(Cells(i, 2)) Then Cells(i + 2, 2) = Cells(i + 1, 2) End If Next End Sub الاستاذ العزيز .. سليم هل بالامكان شرح الكود .. حتى استطيع ا لاستفادة منه لاحقا . وشكرا رابط هذا التعليق شارك 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.