مساعدة في ترحيل بيانات من عمود الى عمود آخر

[حراثي تواتي]

من فضلك لا تقوم برفع الملف مضغوط طالما حجمه صغير وذلك تجنباً لعدم اهدار وقت الأساتذة

تواتي5.xlsm

[Ali Mohamed Ali]

تفضل يمكنك فقط استخدام هذا الكود ...وانا لا ارى اى اهمية او وجود اصلاً لهذا الفورم

Sub OneCell()
    Sheets("Sheet1").Range("B4:B100").Value = Sheets("Sheet1").Range("A4:A100").Value
End Sub

 

تواتي6.xlsm

[حراثي تواتي]

شكرا اخي