نسخ خانات محددة من عمود لنظيرتها من عمود آخر

[omarabdelsalam]

السلام عليكم ،

 

فى المثال المرفق ، مطلوب نسخ الخانات التى بها كنابة فى العمود C إلى نظيرتها الفارغة فى العمود B. 

 

بمعنى نقل C3 إلى B3

و C5 إلى B5 هكذا. المشكلة إنه عند أخذ نسخ من C3&C5 فإن اللصق يذهب ل B3&B4 بدون مراعاة الخانات الفارغة فى المنتصف

و لكم جزيل الشكر مقدما 

 

 

example.xlsx

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

كود صغير يقوم بالامر

Sub CopyCtoB_IfBlank()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        If IsEmpty(Cells(i, "B")) And Not IsEmpty(Cells(i, "C")) Then
            Cells(i, "B").Value = Cells(i, "C").Value
        End If
    Next i
End Sub

 

تم تعديل يناير 26 بواسطه عبدالله بشير عبدالله

[omarabdelsalam]

ما هى طريقة عمل / كتابة الكود ؟

[عبدالله بشير عبدالله]

 

30 دقائق مضت, omarabdelsalam said:

ما هى طريقة عمل / كتابة الكود ؟

اليك الملف وبه الكود اضغط غلى الزر ليعمل الكود 

example.xlsb

[omarabdelsalam]

هل فى طريقة تانية او احتدت استعملها فى ملفات تانية  ؟