ماهي الطريقة الصحيحة لكتابة الامر formulaR1C1

[DBA.Oracle]

d = معرفة باسم صفحة سوف تنشأ

        .Name = D

المهم اثناء الترحيل

   Sheets("Mydata").Cells(EndRow, 7).Value = TextBox12.Value

   Sheets("Mydata").Cells(EndRow, 12).Value = TextBox15.Value

   Sheets("Mydata").Cells(EndRow, 13).Value = TextBox16.Value

   Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = D & " !R[17]C[13]"

اريد ان يضع فى الخانة معادلة تربط الخلية مع خلية معينة فى الصفحة المنشأة فما الطريقة الصحيحة لكتابة الامر انا جربت استخدام الطريقة دى واعطت خطأ

   Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = D & " !R[17]C[13]"

برجاء المساعدة فى هذا الكود

تم تعديل أبريل 1, 2010 بواسطه DBA.Oracle

[DBA.Oracle]

وجدت الطريقة الصحيحة لكتابة الامر هي

   Sheets("MyData").Cells(EndRow, 8).FormulaR1C1 = "=Sheet3!RC"

لكن المشكلة الان انى اريد استبدال اسم الشيت بدل من Sheet3

يصبح باسم الصفحة الجديدة التي ستنشأ قبل الترحيل

والمعرفة باسم D

فما الحل ؟

[DBA.Oracle]

للرفع

[احمدزمان]

السلام عليكم

اخي الكريم

اتمنى ان يكون هذا المطلوب

[color="#660066"]Sheets[/color][color="#666600"]([/color][color="#008800"]"MyData"[/color][color="#666600"]).[/color][color="#660066"]Cells[/color][color="#666600"]([/color][color="#660066"]EndRow[/color][color="#666600"],[/color] [color="#006666"]8[/color][color="#666600"]).[/color][color="#660066"]FormulaR1C1[/color] [color="#666600"]=[/color] [color="#008800"]"=Sheet3!RC"[/color]

[احمدزمان]

استبدل

sheets("MyData")

ب

sheets(D)

[DBA.Oracle]

   Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = "=Sheets(D)!R[17]C[13]"

   Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = "=Sheets(D).range("j8")"

الطريقتين لا يفعلو شيء الطريقة الوحيدة اللى قربت منها

Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = d & "!R[17]C[13]"

تقوم بوضع المعادلة فى الخانة ولكن بدون حرف = فلا تعمل المعادلة فأضطر انا لكتابة = قبل المعادلة

ولكن هل من طريقة تجعل المعادلة تكتب بشكل مضبوط كلها ولا احتاج للتعديل فيها يدويا فى كل مرة

[احمدزمان]

استبدل

sheets("MyData")

ب

sheets(D)

[DBA.Oracle]

اكتشفت الطريقة الحمد لله

الطريقة هى

   Sheets("Mydata").Cells(EndRow, 10).Value = "=" & D & "!j7"

شكرا للاستاذ / احمد زمان لمحاولة المساعدة