كيفية التنقل عبر الخلايا بعد اخذ كوبي

[تامر خليفة]

مرحبا للجميع

اريد ان اعرف كود عندما اضعط عليه يعمل كوبي للخليه النشطه ثم ينتقل التنشيط من تلقاء نفسه الي الخليه التي تليه في العامود مع الاحتفاظ بالكوبي

شكرا للجميع

[توكل]

أخي الكريم إليك هذا الكود البسيط

ActiveCell.Select
 Selection.Copy
 ActiveCell.Next(r + 1, C + 1).Select

[تامر خليفة]

الف شكر اخي الفاضل

لكني كنت اريد ان ينتقل التنشيط الي اسفل وليس الي اليسار

في انتظارك اخي الكريم

وشكرا جزيلا مره اخري بل الالف المرات

[تامر خليفة]

شكرا اخي الكريم لاني عرفت من حضرتك بدايه الطريق

بفضل الله ثم بفضل المعلومه التي تفضلت بها عرفت كيف اتنقل لاسفل

وهذا هو الكود لمن يريد

On Error GoTo TK
ActiveCell.Select
Selection.Copy

ActiveCell.Next(c + 2, r).Select
TK:
Exit Sub
End Sub

[توكل]

جزاك الله كل خير

[ابو اسامة العينبوسي]

السلام عليكم

اخ تامر تعلمت منك طريقة جديده للتنقل و اليك الطريقة المتعارف عليها:-

ActiveCell.Copy
ActiveCell.Offset(1, 0).Select

[تامر خليفة]

عفوا اخي ابو اسامه ولكني تعلمت الكود من اخينا الغريب فلهو ولك كل الشكر و التقدير