Soru Başka sayfada ki hücreyi referans gösterme

[sirkülasyon]

If Intersect(Target, [A1]) Is Nothing Then Exit Sub

"[A1]" yerine Sheets("SÖZLEŞME").Range("A2") nasıl yapabilirim?

Teşekkür eder, saygılarımı sunarım

 

[Muzaffer Ali]

Merhaba.
Aslında aşağıdaki gibi olması lazım fakat sayfa aktif olmayınca hata veriyor.

If Intersect(Target, [SÖZLEŞME!A1]) Is Nothing Then Exit Sub

Onun yerine aşağıdaki gibi de yapabilirsiniz.

If Intersect(Target, [A1]) Is Nothing Or ActiveSheet.Name <> "SÖZLEŞME" Then Exit Sub

 

[çıtır]

Sayın sirkülasyon;
Neden böyle bir işleme gerek duydunuz? Bildiğim kadarı ile Change olayı başka sayfadan refarans kabul etmez.

 

[sirkülasyon]

Sayın Çıtır
Kayıt sayfasında A1 hücresine göre işlem yapıyordu. Kayıt A1 hücresinden değilde Sözleşme A1 hücresinden işlem yapması gerektiği söylendi onu da düzenleyemedik.

Sayın Dalgalıkur
Size de teşekkür eder, saygılarımı sunarım.

 

[çıtır]

Sayın sirkülasyon;
Kodları sözleşme sayfasına yazınız ve refarans olarak sayfa ismi vermenizde gerekmez.