İstenilen sütunlar

[account2]

Herkese Merhaba,
Benim excelde yapmak istediğim fakat bilmediğim bir sorum var.
Eklemiş olduğum listede aynı aya ait 3 sütun var
ocak ayına ait 1-(adj trl) 2-(adj sek) 3-(adj euro) gibi........bunlar aynı şekilde şubat, mart, nisan diye gidiyor.
ben dört aya ait sadece 4 sütünu (adj trl gibi) göster dediğimde bana ocak, şubat, mart ve nisan ayına olan ayların (adj trl) rakamlarını göstersin yada adj sek i istediğimde onları göstersin istiyorum.
Ekli listede daha iyi açıklama yapmışımdır umarım.

İlginize şimdiden teşekkür ederim.
Hepinize iyi günler dilerim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim HUC As Range
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For Each HUC In Range("C2:N2")
HUC.EntireColumn.Hidden = False
If HUC <> [A1] Then
HUC.EntireColumn.Hidden = True
End If
Next
End Sub

 

[account2]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim HUC As Range
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For Each HUC In Range("C2:N2")
HUC.EntireColumn.Hidden = False
If HUC <> [A1] Then
HUC.EntireColumn.Hidden = True
End If
Next
End Sub

Ziya Bey göstermiş olduğunuz ilgiye çok teşekkür ederim.
Uyarlamış olduğunuz makro işimi iyi derecede gördü.
İyi çalışmalar dilerim.

 

[N.Ziya Hiçdurmaz]

Bişey değil Sayın account2