otomatik sutun gizleme

[lacinok]

Ardaşlar,

A sutununun tamamında 1 rakamı yazdığımda c,d,f,o,aa sutunları gizlenecek
A sutununun tamamında 2 rakamı yazdığımda b,d,t,z,ab sutunları gizlenecek.

Anlatabildim mi bilmiyorumm...,

Yardımlarınız için şimdiden teşekkür ederim..

 

[N.Ziya Hiçdurmaz]

yanıt

Sub gizle()
Dim sat As Integer
Application.ScreenUpdating = False
Cells.EntireColumn.Hidden = False
For sat = 1 To Cells(6536, "a").End(xlUp).Row
    If Cells(sat, "a") = 1 Then Range("c:c,d:d,f:f,aa:aa").EntireColumn.Hidden = True
    If Cells(sat, "a") = 2 Then Range("b:b,t:t,z:z,ab:ab").EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

 

[lacinok]

Bİraz daha iyi anlatmaya çalıştım...

A1 HÜCRESİNE 1 YAZDIKTAN SONRA HÜCREDEN ÇIKTIĞIMDA c,d,f,o,aa SÜTÜNLARINI GİZLEYECEK

A2 HÜCRESİNE 2 YAZDIKTAN SONRA HÜCREDEN ÇIKTIĞIMDA b,d,t,z,ab SÜTÜNLARINI GİZLEYECEK

Tüm A sütünü boyunca 1 VE 2 YAZDIĞIMDA AYNI İŞLEMLERİ YAPACAK...

Deneme59 dosyasında benzer bir örnek var.

Teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim sat As Integer
Cells.EntireColumn.Hidden = False
If Target = 1 Then
Cells.EntireColumn.Hidden = False
Range("c:c,d:d,f:f,O:O,aa:aa").EntireColumn.Hidden = True
End If
If Target = 2 Then
Cells.EntireColumn.Hidden = False
Range("B:B,d:d,T:T,Z:Z,AB:AB").EntireColumn.Hidden = True
End If
Application.ScreenUpdating = False
For sat = 1 To Cells(6536, "a").End(xlUp).Row
    If Cells(sat, "a") = 1 Then
    Cells.EntireColumn.Hidden = False
    Range("c:c,d:d,f:f,O:O,aa:aa").EntireColumn.Hidden = True
    End If
    If Cells(sat, "a") = 2 Then
    Cells.EntireColumn.Hidden = False
    Range("B:B,d:d,T:T,Z:Z,AB:AB").EntireColumn.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub