Makro kodlama

[recepkull]

Arkadaşlar kodlamayı yapamadım galiba. Yapmak istediğimi kısaca anlatayım

ActiveSheet.Shapes.Range(Array("Rectangle 27")).Select

Yukardaki kodda şekil 27 nin seçileceğini görüyoruz. Ben burada şeklin numarasını A1 hücresine girilen değere göre belirlenmesini istedim ve aşağıdaki gibi bir kod yazdım.
Ancak galiba beceremedim bu satır hata veriyor. Bunu konuda yardımlarınız bekliyorum.

ActiveSheet.Shapes.Range(Array("Rectangle [A1]")).Select

 

[YUSUF44]

“Rectangle “&[A1]

Şeklinde deneyin.

 

[recepkull]

Teşekkür ederim hocam