Değişken atama

[excellcan]

Forumda emeği geçen herkese merhaba.

"NOT TASARIM" sayfasında oluşturmuş olduğum commandbuttona bir x değişkeni atayarak "ÖDEME TASARIMI" sayfasında "GÖSTERGE1" alanını seçmek istedim . Değişken atamadan kodun doğrusu aşağıdaki gibi.
Doğrusu :Application.Goto Sheets("ÖDEME TASARIMI").Range("GÖSTERGE1")
Kod yazımından tasarruf için ben bunu bir değişkene atamak istedim ve şöyle bir kod yazdım : x = Sheets("ÖDEME TASARIMI").Range("GÖSTERGE1")
Application.Goto x Ama run time 1004 hatası verdi. Bu tarz bir uygulama için değişken atanabilir mi ? Atanabiliyorsa benim hatam nerde ? İlgilenen arkadaşlara şimdiden teşekkürler.

 

[revelte]

Değişkene aktarma şu şekilde yapılmalıdır.

    Dim x As Range
    Set x = Sheets("ÖDEME TASARIMI").Range("GÖSTERGE1")
    Application.Goto x

Sizin yaptığınız gibi çalışmamasının sebebi şudur.
Range bir sınıftır. Bir sınıfın referansını başka bir sınıfa atamak için set kullanmak gerekir. Sizin yaptığınız gibi yapıldığında x e aldığınız değer Range sınıfı değil Range sınıfının Default Property'i olan Value Propertys'i dir