Koşula göre sütun gizleme yardım

[muzos80]

Merhaba E2:E4 kadar olan yerde örnek "d1,d2,d3 " yazmaktadır bu değerleri. e8:e1500 kadar satırlarda d1 yazıldığında g sütunu gizlesin d2 yazdığında diğeri açılacak h sütunu gizlenecek d3 yazdığında g ve h sütunu gizlenecek makro konusunda yardımcı olabilir misiniz

 

[ÖmerFaruk]

Aşağıdaki kodu sayfanız kod sayfasına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E8:E1500")) Is Nothing Then Exit Sub
    Select Case Target.Value
        Case Range("E4").Value
            Columns("G").Hidden = True
            Columns("H").Hidden = False
        Case Range("E5").Value
            Columns("G").Hidden = False
            Columns("H").Hidden = True
        Case Range("E6").Value
            Columns("G:H").Hidden = True
    End Select
End Sub

 

[muzos80]

Çok teşekkür ederim işime yaradı

 

[muzos80]

bir bilgiye daha ihtiyacım var örnek Ana Sayfanın I28 de bulunan dil seçeneği var İngilizce seçildiğinde data sayfasında B36 da bulunan İngilizce b37 de bulunan Türkçe ismi sayfa ismini otomatik olarak değiştirsin

 

[ÖmerFaruk]

excel sayfasının ismini diyorsan...bu formülle olmaz.
Yanlış anlıyorsam tekrar daha anlaşılır bir şekilde izah edin.

 

[muzos80]

Evet tam olarak yapmak istediğim o idi sayfa1 sayfa2 isimlerini belirlediğim hücreden formül yada makro ile değiştirmek idi olmuyor ise yapacak bir şey yok teşekkür ederim

 

[GursoyC]

Formülle olmaz; makroyla olur.

 

[muzos80]

makro olarak da işime yarar varsa

ANA SAYFA olarak tanımladığım sayfayı I28 de bulunan dil seçeneği var İngilizce seçildiğinde data sayfasında B36 da bulunan İngilizce b37 de bulunan Türkçe ismi sayfa ismini otomatik olarak değiştirsin

 

[GursoyC]

Örnek eklerseniz daha kolay cevap alabilirsiniz.

 

[muzos80]

Yapmak istediğim Sayfa2 nin sayfa ismi ANA SAYFA ve kendi sayfasındaki w3 den ismini alıp değiştirmesi aynı şekilde sayfa1 ismi ARŞİV bunu da sayfa2 nin w4 deki ismini alıp değiştirmesi aşağıdaki kodu kullanıyorum sama sadece ana sayfanın adı değişiyor diğer sayfanın adı değişmiyor

Sub Sayfaisimdeğitirme()
ActiveSheet.Name = Range("W3")

End Sub

 

[ÖmerFaruk]

Sorunuzu Türkçe yazım kurallarına, noktala işaretlerine, büyük harfe küçük harfe özen göstererek sorabilirseniz sanırım daha kolay anlaşılacak.

 

[muzos80]

Pardon, küçük harflerle yazdım büyük harf olanlar sayfa isimleri benim excel dosyamda da büyük harfle olduğundan bu şekilde yazmıştım

 

[muzos80]

Tamamdır sayfa ismi yazmam yeterli imiş deneme yaparak öğrendim teşekkürler

Sub Sayfaisimdeğitirme1()
Sayfa1.Name = Sayfa1.Range("W3")

End Sub