Soru Şarta göre Kolon gizleme

[smallburak]

Merhabalar,
Sekme1'de D3'ten D25 hücresine kadar farklı dil isimleri bulunuyor (İngilizce, İspanyolca, Almanca, İtalyanca gibi).
Sekme2'de bu diller E3, F3, G3 ve H3 hücrelerinde yatay olarak sıralanmış.
Sekme1'de, görmek istemediğim dilleri, tüm satırı gizleyerek saklıyorum. Ben bunları Sekme1'de sakladığımda, Sekme2'de de o dile ait sütunun gizlenmesini istiyorum.
Eğer Sekme1'de gizli olan bir dil satırını gösterirsem, Sekme2'de de o dile ait sütunun açılmasını istiyorum.
Nasıl yapabilirim?
Şimdiden teşekkür eder, iyi seneler dilerim.

 

[Necdet]

Merhaba,
Aklıma ilk gelen çözümü vereyim.
Aşağıdaki kodları Sayfa2'nin kod bölümüne kopyalayıp deneyiniz.
Kodda göreceğiniz Sayfa1 VBA ekranında göreceğiniz Sayfa indisidir. Siz bunu kendinize göre düzenleyiniz.

Private Sub Worksheet_Activate()

Dim i As Integer
Application.ScreenUpdating = False
For i = 3 To 25
    If Sayfa1.Rows(i).Hidden = True Then
        Columns(i + 2).Hidden = True
    Else
        Columns(i + 2).Hidden = False
    End If
Next i
Application.ScreenUpdating = True

End Sub

 

[smallburak]

Merhaba,
Aklıma ilk gelen çözümü vereyim.
Aşağıdaki kodları Sayfa2'nin kod bölümüne kopyalayıp deneyiniz.
Kodda göreceğiniz Sayfa1 VBA ekranında göreceğiniz Sayfa indisidir. Siz bunu kendinize göre düzenleyiniz.

Private Sub Worksheet_Activate()

Dim i As Integer
Application.ScreenUpdating = False
For i = 3 To 25
    If Sayfa1.Rows(i).Hidden = True Then
        Columns(i + 2).Hidden = True
    Else
        Columns(i + 2).Hidden = False
    End If
Next i
Application.ScreenUpdating = True

End Sub

Cevap icin cok tesekkur ederim. Hic hareket olmadi. Acaba ben mi yanlis duzenleme yaptim?
Sayfa1 yerine Sheets("TO BE") yaptim. Geri kalan hepsini ayni biraktim.

 

[Necdet]

Sayfa2 dediğiniz sayfaya geçtiğinizde kod devreye girer.
Excelde Mehmet diye gördüğünüz sayfanın indisi Sayfa2, Ahmet ise Sayfa1
Ben kodları Sayfa2'nin kod bölümüne yazdım.
Sayfa1 de yaptığınız gizlemeyi Sayfa2 ye geçtiğinizde anca görürsünüz.

 

[smallburak]

Gec cevabim icin kusura bakmayin, notification gelmemis mesajinizi yeni gordum. Dediginiz gibi denedim ama yine calismadi :/