Sayfa Gizlemek

[crackerdent]

Arkadaşlar
Ã?rneğin Sayfa1 A1 deki değer 1.1 den küçük olduğunda
Sayfa2 nin görünmemesini 1.1 den büyükse görünmesini istiyorum. Nasıl yapabilirim?
Selamlar...

 

[veyselemre]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [a1] > 1.1 Then Sheets("sayfa2").Visible = True
If [a1] <= 1.1 Then Sheets("sayfa2").Visible = False

End Sub

 

[crackerdent]

Sayın veyselemre çok teşekkür ederim. Son bişey daha sormak istiyorum: Peki ilgili hücrenin değeri değiştiğinde diyelim ki sayfa3 ü de silmek istiyorum. Bunu nasıl yapabilirim?

 

[veyselemre]

If [a1] > 1.1 Then Sheets("sayfa3").Delete

 

[crackerdent]

Sayın veyselemre kusura bakmayın sanırım ben yanlış anlattım.
A1 in büyük veya küçük olmasına göre değil de A1 deki değerin değişmesine bağlı olarak olayın meydana gelmesini istiyorum.

 

[danersin]

Tehlikeli bir kullanım ama Worksheet_SelectionChange e aşağıdaki satırı eklerseniz
a1 hücresi her değiştiğinde 2. sayfayı siler.

If Target = Cells(1, 1) Then Sheets(2).Delete

 

[crackerdent]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = Cells(18, 27) Then Sheets(4).Delete
End Sub

şeklinde uyguladım ama aktif sayfada kutu her hareket ettiğinde sayfayı silmek istiyor ben sadece ilgili hücre değişince sayfanın silinmesini istiyorum.

 

[danersin]

Pardon haklısınız, Worksheet_Change altına yazmanız gerekiyor.

 

[crackerdent]

sanırım hata cells(1,1) yerine cells(18,27) yazdığım için
peki R27 hücresini nasıl belirtebilirim

 

[danersin]

range("r27") ve cells(18,27) aynı şey. Bir önceki mesajımı gördünüzmü.

 

[crackerdent]

evet gördüm teşekkürler.
ben mi hata yapıyorum. var olan bi değerin üzerine başka bi değer yazınca bişey olmuyo ama var olan değeri silince işlem yapıyo ben herikisinde de işlem yapsın istiyorum. Kafam karıştı valla.

 

[danersin]

:? Bu kod a1 de her enter'a basıldığında , yada a1 de formül varsa formül sonucu değiştiğinde 2. sayfayı silmek isteyecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 1) Then Sheets(2).Delete
End Sub

 

[crackerdent]

Sayın danersin ilginiz için çok teşekkür ederim ben biraz daha kurcalayayım. Sanırım bu şekilde de olsa meseleyi halledebilecem. Kolay gelsin.