تعديل كود يضم متغير واحد مسنود الي قيمتين

[ماجدجلال]

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

اخواني الاعزاء

ارجو المساعدة في تعديل الكود الموجود في الملف المرفق

حيث ان الكود يحتوي علي متغير واحد فقط من نوع Range تم اسنادة الي نطاقين بواسطة الدالة If و set

المشكلة ان الكود يعمل بطريقة صحيحة في حالة واحدة فقط من حالات الدالة if

ارجو المساعدة ولكم جزيل الشكر

570.zip

[عبدالله باقشير]

السلام عليكم

تفضل:

Sub Macro1()

Dim dd As Range

If Range("E1") = 1 Then

    Set dd = Range("A5:A10")

Else

    Set dd = Range("B5:B10")

End If

''''''''''''''''''''''

dd.Copy

Range("C5").PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

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

استعمل هذا

Sub Macro1()

Dim dd As Range

If Range("E1") = 1 Then

Set dd = Range("A5:A10")

Else

Set dd = Range("B5:B10")

End If

dd.Copy

Range("C5").PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

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

المعذرة اخي عبد الله

بعد ارسال المشاركة وجدتك قد سبقتني اليها

[عبدالله باقشير]

المعذرة اخي عبد الله

بعد ارسال المشاركة وجدتك قد سبقتني اليها

زيادة في الخير