Çözüldü Makro isteği

[klop01]

Arkadaşlar,
Bir grafik sorununu gidermek için aşağıda özellikleri verilen makrolara ihtiyacım oldu.

1. Makro (Aktif sayfa içinde: Sayfa 1)
ÖN BİLGİ: CheckBox1'de seçim yapıldığında A1 hücresine DOĞRU, CheckBox1'de seçim yapılmadığında A1 hücresine YANLIŞ yazılıyor.
Eğer A1=DOĞRU'ya önce B1 hücresini seç. Sonra C1 hücresini seç.
Eğer A1=YANLIŞ'a önce B2 hücresini seç. Sonra C1 hücresini seç.

2. MAKRO (Aktif sayfa içinde: Sayfa 1)
Bir butona atayabileceğim
Eğer A1=DOĞRU ise aktif sayfadaki Grafik 1’i göster
Eğer A1=DOĞRU ise aktif sayfadaki Grafik 2’yi göster

 

[turist]

Deneyin.

Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
[B1].Select: [C1].Select
Sheets("Sayfa1").ChartObjects("Chart 1").Visible = True
Sheets("Sayfa1").ChartObjects("Chart 2").Visible = False
Else: [B2].Select: [C1].Select
Sheets("Sayfa1").ChartObjects("Chart 2").Visible = True
Sheets("Sayfa1").ChartObjects("Chart 1").Visible = False
End If
End Sub

 

[klop01]

Sayın turist,
Teşekkür ederim kod için.
Cevabınızdan sonra soruyu sorarken yanlış düşündüğümü fark ettim.

Verdiğiniz kodu Sayfa1 içerisinde işlem yaptırmak şartı ile şu şekle nasıl çevirebilirim:
CheckBox1 = True ise Chart 1'i göster, Chart 2'yi gizle
CheckBox1 = False ise Chart 2 göster, Chart 1'i gizle
Bu kod Sayfa1'in kod sayfasına mı yazılıyor.


Ekteki belgede ŞU KISIM ÇALIŞIYOR.
Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
Sheets("Sayfa1").ChartObjects("Grafik 1").Visible = True
Sheets("Sayfa1").ChartObjects("Grafik 2").Visible = False
BURAYA AŞAĞIDAKİ ŞART NASIL EKLENİR
CheckBox1 = False ise Grafik 2'yi göster, Grafik 1'i gizle

 

[turist]

Kod Sayfa1 kod sayfasına yazılıyor.
Dosyanız eklidir.

 

[klop01]

Sağ olun.
Kod işlemi doğru bir şekilde yapıyor.

 

[turist]

Sağ olun.
Kod işlemi doğru bir şekilde yapıyor.

Siz de sağ olun.