معادلة لصق القيم دون المعادلات

[mohager1040]

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

أرجو المساعدة في إيجاد معادلة للصق قيم الخانات الصفراء في الملف المرفق في الخانة المجاورة دون نسخ المعادلة

و جزاكم الله خيراً

تم تعديل ديسمبر 10, 2011 بواسطه mohager1040

[الزير]

قم باختيار نسخ للخلايا التي تريد

ثم اذهب الى المكان الذي تريد اللصق فيه

كليك يمين ثم لصق خاص واختر قيم

ابووائل

[mohager1040]

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

أنا أريد فعل ذلك و لكن بالمعادلات أو الأكواد

[الزير]

سجل ميكرو بهذه الخطوات يصبح لديك كووود

اما بالمعادلا فبل يمكن على ما اعتقد

[mohager1040]

الإخوة الإعزاء جزاكم الله خيراً

لقد هداني الله سبحانه و تعالي إلي الحل

الحمد لله

Sub www()

Range("c1").Select

Selection.Copy

Range("d1").Select

Selection.PasteSpecial xlPasteValues

End Sub[/b]

 [/center]


[center][b]

حيث الخلية c1 هي الخلية الموجود بها المعادلة , و الخلية d1 هي الخلية المطلوب نسخ القيمة فقط إليها

تم تعديل ديسمبر 10, 2011 بواسطه mohager1040

[عبد الفتاح كيرة]

أحسنت

التجربة خيرطريقة للتعلم

و تأمل هذا الاختصار

Range("A1").Copy

Range("C1").PasteSpecial Paste:=xlPasteValues

	    Application.CutCopyMode = False

* لا يلزم تحديد خلية قبل نسخها

* لا يلزم تحديد خلية قبل اللصق إليها

* السطر الأخير للتخلص من حالة النسخ

تم تعديل ديسمبر 11, 2011 بواسطه kemas