نسخ معادلات

[الشيباني1]

اخواني الاعزاء تحية طيبه كيف يمكن نسخ معادله في الخليه ( B3) مثلا الى السطر (25000 ) بعيدا عن استخدام الماوس لذلك مع الامتنان

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

جرب هذا الكود

سيتم نقل المعادلة الى خلية تحدد انت صفها بنفس العمود (في البداية ضع الموشر على الخلية التي بها المعادلة التي تريد نقلها ثم فعل الكود)

Sub Abu_Ahmed_Copy()

   w = Selection.Column

    x = InputBox("إختر رقم الصف الذي تريد", "إختيار")

    Selection.Copy Cells(x, w)

    Application.CutCopyMode = False

End Sub

[الشيباني1]

استاذنا العزيز مع شكري وتقديري يظهر اني لم اوفق في ايصال المطلوب بالشكل الصحيح ما وددت الحصول عليه هو نسخ المعادله في جميع الصفوف وحتى الصف الذي يتم تحديده مع الامتنان

[طارق محمود]

السلام عليكم

أخي الحبيب

بعد إذن أخي الغالي / أبوأحمد

إتبع الخطوات التالية

(1) إذهب للخلية المطلوبة B25000 ممكن بسهولة عن طريق Ctrl-G ثم تكتب B25000

(2) منها ، إضغط Ctrl-Shift-Up ، و Up هنا تعني السهم لأعلي

(3) إضغط Ctrl-D

[الشيباني1]

رائع استاذنا الكبير جزاك الرحمن خير الجزاء