مساعدة لكود ينسخ وينقل تلقائي من عمود الى اخر

[محمد ابو البـراء]

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

اريد كود يقوم بنسخ ونقل  تلقائي لجميع البيانات الموجود في العمود b في الورقة الاولي

الى العمود c2 الورقة الثانية

 

[عبدالله المجرب]

يمكنك تسجيل ماكرو بهذه الخطوات 

[محمد ابو البـراء]

يمكنك تسجيل ماكرو بهذه الخطوات 

اولا : مرحبا بالاستاذ الكبير استاذ عبد الله

اسال الله ان تكون بخير

ثانيا : لم افهم ماذا تقصد

ولكن طلبي هو بدلا من اكتب  بالمعادلات مثلا a1 للورقة الاولى =  b1 في الورقة الثانية

انا اريد هذا بكود

ولا يكون هذا الكود  ميكرو الترحيل بالضغط بعد كتابة البيانات ولكن اريد ان يكون هذا تلقائي في حدث الصفحة

تم تعديل ديسمبر 29, 2013 بواسطه محمد ابو البـراء

[عبدالله المجرب]

ضع هذا الكود في حدث الورقة الثانية 

مع العلم ان اسم الورقة الأولى هو ورقة1

Private Sub Worksheet_Activate()
 Sheets("ورقة1").Range("B1:B100").Copy [C2]
End Sub

[محمد ابو البـراء]

 

ضع هذا الكود في حدث الورقة الثانية 

مع العلم ان اسم الورقة الأولى هو ورقة1

Private Sub Worksheet_Activate()
 Sheets("ورقة1").Range("B1:B100").Copy [C2]
End Sub

بارك الله فيك أخي الكريم عبد الله

1 ) الكود يعمل بنجاح ولكن به بعض البطء حيث انه لا يقوم بتنفيذ العملية الا اذا انتقلت الى صفحة اخرى ثم قمت بالرجوع

2 ) اريد ان يكون النقل من العمود b في "ورقة 1" الى العمود c في"ورقة2"

[أبو حنــــين]

السلام عليكم

ضع هذا الكود في الورقة 1 التي تكتب فيها

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Range("B:B").Copy Sheets("ورقة2").[C:C]
Application.ScreenUpdating = True

End Sub

[ريان أحمد]

أستاذي حنين

 

هل من جديد على مساعدتي في هذا الموضوع

 

http://www.officena.net/ib/index.php?showtopic=50116&hl=

[محمد ابو البـراء]

بارك الله فيك استاذ ابو حنين

الكود يعمل بنجاح