Modul Makroyu Tüm Sayfalarda Çalıştırma

[Akinkaya35]

Merhaba herkese,
Sola bir menü oluşturdum bu menüde gözükmesini istemediğim başlıkları gizlemek sonrasında ise açmak için bir kod yazdım kod çalıştı fakat sadece ilk sayfada çalışıyor diğer sayfalara kopyaladığımda hata alıyorum.
Kod şu şekilde

Sub On_button()
Worksheets(1).Shapes("button").Select

With Selection
.ShapeRange.IncrementRotation 90
ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoTrue
End With

Worksheets(1).Shapes("button").OnAction = "off_button"
Range("A14").Select


End Sub

Sub Off_button()
Worksheets(1).Shapes("button").Select

With Selection
.ShapeRange.IncrementRotation -90
ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoFalse
End With

Worksheets(1).Shapes("button").OnAction = "on_button"
Range("A14").Select

Yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

Her sayfada button var mı?

Worksheets(1) yerine ActiveSheet kullanın.
Sonucu da paylaşırsanız sevinirim.

Tabi en doğru çözüm örnek dosyayı görmekten geçer.

 

[Akinkaya35]

Merhaba,

Her sayfada button var mı?

Worksheets(1) yerine ActiveSheet kullanın.
Sonucu da paylaşırsanız sevinirim.

Tabi en doğru çözüm örnek dosyayı görmekten geçer.

Hayır hocam 2 sayfa hariç tüm sayfalarda menü ve buton var.

 

[Akinkaya35]

Merhaba,

Her sayfada button var mı?

Worksheets(1) yerine ActiveSheet kullanın.
Sonucu da paylaşırsanız sevinirim.

Tabi en doğru çözüm örnek dosyayı görmekten geçer.

Bu kez buton çalıştı fakat textboxları gizleyip/gösterdiğim kod çalışmıyor.

ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoFalse

 

[Necdet]

Yukarıda verdiğim öneriyi denediniz mi?
hariç olan sayfaları kontrol edip diğer sayfalarda çalıştırın.

 

[Necdet]

Bu durumda textbox ların adları her sayfada aynı mı diye soracam

 

[Akinkaya35]

Bu durumda textbox ların adları her sayfada aynı mı diye soracam

Ona baktım hocam şimdi grupladığım için grup adı aynı fakat alt katmanındaki isimleri değişmiş bunu değiştirmenin bir yolu var mıdır?

Düzeltme :
Objeleri tekrar grupladığım için çalışmadı sanıyorum.
Şuanda çalıştı kod çok teşekkür ediyorum.

 

[Necdet]

Hiç denemedim, bilmiyorum.

Bence çalışan sayfadan koplayıp yapıştırın, öyle deneyin.

 

[Akinkaya35]

Hiç denemedim, bilmiyorum.

Bence çalışan sayfadan koplayıp yapıştırın, öyle deneyin.

Çalıştı Hocam tekrar gruplamıştım o yüzden çalışmamış şuan problem yok.
Çok teşekkür ederim.