makro ile eğer şartına gizli sayfayı göstemek

[ahmet uğur gürle]

merhabalar;
şöyle bir şey mümkünmüdür. yapmamda yardım edebilirmisiniz.?
sayfa 1 de bir butonum var, bastığımda sayfa 4 deki c7 hücresinin değeri 1 ise sayfa 2 görünür olacak. eğer sayfa 4 deki c7 hücresinin değeri 2 ise sayfa 6 görünür olacak.
ancak c7 1 iken değişip 2 olduğunda sayfa 2 gizlenecek; yada tam tersi.
temizle butonuna bastığım zaman ise sayfalar gizlenip c7 değeri sıfırlanacak.
teşekkür edeim yardımlarınız için şimdiden

 

[Hakan ERDOST]

İstediklerinizi umarım doğru anlamışımdır.

Sub gizle()

If Sheets("Sayfa4").Range("C7") = 1 Then
Sheets("Sayfa2").Visible = True
ElseIf Sheets("Sayfa4").Range("C7") = 2 Then
Sheets("Sayfa6").Visible = True
Sheets("Sayfa2").Visible = False
End If
End Sub

Kodu bir modüle kopyalayıp Sayfa1 deki butonunuza atayın.

Sub temizle()
Sheets("Sayfa2").Visible = False
Sheets("Sayfa3").Visible = False
Sheets("Sayfa4").Visible = False
Sheets("Sayfa5").Visible = False
Sheets("Sayfa6").Visible = False
Sheets("Sayfa4").Range("C7") = ""
End Sub

Temizle Butonu

Sub goster()
Sheets("Sayfa2").Visible = True
Sheets("Sayfa3").Visible = True
Sheets("Sayfa4").Visible = True
Sheets("Sayfa5").Visible = True
Sheets("Sayfa6").Visible = True
End Sub

Muhtemelen bir de Göster Butonu gerekecektir.

 

[ahmet uğur gürle]

çok teşekkür ederim aynı sayfa içinde çalıştırmıştım. kodu incelermisiniz. daha kolay nasıl yapılabilir.
Sub Makro2()
'
' Makro2 Makro
'

'
Range("k4").Select
If Range("k4").Value = "1" Then
Sheets("Teklif Formu").Select
Sheets("sayfa1").Visible = False
Sheets("büyükbaş").Visible = True
Sheets("büyükbaş").Select
End If
Range("k4").Select
If Range("k4").Value = "2" Then
Sheets("Teklif Formu").Select
Sheets("sayfa1").Visible = True
Sheets("büyükbaş").Visible = False
Sheets("sayfa1").Select
End If
Range("k4").Select
If Range("k4").Value = "0" Then
Sheets("Teklif Formu").Select
Sheets("sayfa1").Visible = False
Sheets("büyükbaş").Visible = False
Sheets("teklif formu").Select
End If
End Sub