المساعدة في كود برمجي لنسخ قيمة خلية الى مكان محدد

[ابوسلماان]

مساء الخير ،،

 

احتاج الى كود برمجي لنسخ محتوى خلية الى خلية فارغة تحتها مباشرة .. أو بمعنى آخر (  أي خلية فارغة في العمود  B مثلا ..  احتاج الى نسخ البيانات التي اعلاها مباشرة لتصبح في الخلية الفارغة وهكذا ).

 

مرفق لكم ملف لتوضيح ذلك.

Copy.rar

[سليم حاصبيا]

جرب هذا الماكرو

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/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

 

الاستاذ العزيز  ..  سليم

هل بالامكان شرح الكود .. حتى استطيع ا لاستفادة منه لاحقا .

 

وشكرا