şartlı sutun gizleme

[mirzabey23]

Hayırlı günler.
a1 hücresi 4 ise; J-K-L-M sütunları gizlensin, a1 hücresi 1 ise; F-G-H-I sütunları gizlensin..
Bu formüle ihtiyacım var.yardım edermisiniz (makro olmasın)

 

[ÖmerFaruk]

Formülle sütunları gizleyemezsiniz.

 

[mirzabey23]

Formülle sütunları gizleyemezsiniz.

ömer kardeşim, ne ile gizleme imkanı var, hiç yokmu, yoksa formül dışında makro gibi programlarla oluyormu

 

[ÖmerFaruk]

Aşağıdaki kodu boş bir modüle ekleyip istediğiniz anda tetikleyebilirsiniz.

Sub SutunGizle()
Select Case Range("A1")
    Case 4
    Columns("J:M").Hidden = True
    Columns("F:I").Hidden = False
    Case 1
    Columns("J:M").Hidden = False
    Columns("F:I").Hidden = True
End Select
End Sub

 

[mirzabey23]

Aşağıdaki kodu boş bir modüle ekleyip istediğiniz anda tetikleyebilirsiniz.

Sub SutunGizle()
Select Case Range("A1")
    Case 4
    Columns("J:M").Hidden = True
    Columns("F:I").Hidden = False
    Case 1
    Columns("J:M").Hidden = False
    Columns("F:I").Hidden = True
End Select
End Sub

ALLAH razı olsun ömer kardeşim..Hayırlı günler dilerim