E5=5 ise B SUTÜNUNU GÖSTER DEĞİLSE GİZLE

[nolcun]

E5=5 ise B SUTÜNUNU GÃ?STER DEÐÝLSE GÝZLE

E5=5 ise B SUTÜNUNU GÃ?STER DEÐİLSE GİZLE. AMA NASIL?
EKLİ DOSYAYI İNCELEYİNİZ... TEÞEKKÜRLER

 

[sergions]

Merhaba,

Uygulamanıza bir Module yerleştirin ve aşağıdaki kodları bu Module'e yerleştirin.

Sub Goster()
If Range("E5").Value = 5 Then
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = True
Else
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = False
End If
End Sub

Kolay Gelsin

 

[nolcun]

sergions kardeşim maalesef çalışmadı...
Çalışma kitabı olarak gönderebilir misin? teşekkürler...

 

[excelman]

If Range("E5").Value = 5 Then

Sizin örneğinize göre "E5" yazan yeri "E1" olarak değiştiriniz.

 

[Levent Menteşoğlu]

Formüllü bir çözüm olarak B2 hücresine aşağıdaki formülü yazıp aşağıya doğru sürükleyerek çoğaltın.

=EÐER(E1<>5;"";1)

Makrolu çözüm olarakta aşağıdaki kodu deneyin. Kod sayfanın kod sayfasına yazılacaktır.

[vb:1:9dc0ee8393]Private Sub Worksheet_Change(ByVal Target As Range)
Columns(2).EntireColumn.Hidden = False
If [e1] <> 5 Then Columns(2).EntireColumn.Hidden = True
End Sub
[/vb:1:9dc0ee8393]

 

[nolcun]

sayın leventm hocam;
ilk vergidiğiniz makro işime yaradı ama E1 5 ise gizliyor, değilse gösteriyor.
Benim istediğim tam tersi, e1 5 ise göstersin, değilse gizlesin...
teşekkürler...

 

[nolcun]

sayın leventm hocam;
sergions'un yazdığığ makro işime yaradı ama E1 5 ise gizliyor, değilse gösteriyor.
Benim istediğim tam tersi, e1 5 ise göstersin, değilse gizlesin...
teşekkürler...

 

[Levent Menteşoğlu]

Bu durumda False ve True lerin yerlerini değiştirmeniz yeterlidir.

 

[nolcun]

Sayın leventm hocam;
çok teşekkür ederim. Buna bağlı bir soru daha: Yazdığım makroyu nasıl gizleceğim? teşekkürler...

 

[Levent Menteşoğlu]

Þifreleyebilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=2353&highlight=vba+%FEifre