Modificar código para ocultar columnas en excel

Para este caso la macro sería así.

Instrucciones para worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:K19")) Is Nothing Then
k = Range("K1").Column
For j = 1 To k
If Cells(20, j) = 0 Then
Columns(j).EntireColumn.Hidden = True
Else
Columns(j).EntireColumn.Hidden = False
End If
Next
End If
End Sub

Saludos.Dam
Si es lo que necesitas.

Que tal Dam, antes que nada gracias por tu pronta respuesta.

Te comento que lo intente con el código que me das aquí:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:K19")) Is Nothing Then
k = Range("K1").Column
For j = 1 To k
If Cells(20, j) = 0 Then
Columns(j).EntireColumn.Hidden = True
Else
Columns(j).EntireColumn.Hidden = False
End If
Next
End If
End Sub

y también con el que me pusiste en el otro:

Private Sub Workbook_Open()
'oculta columnas
'por.dam
Sheets("Hoja1").Select
k = Range("K1").Column
For j = 1 To k
If Cells(20, j) = 0 Then
Columns(j).EntireColumn.Hidden = True
Else
Columns(j).EntireColumn.Hidden = False
End If
Next
End Sub

Pero tengo un problema con los 2, con el primero, al momento de dar cualquier valor en cualquier columna de la A a la K me las oculta todas, desde la A a la K todas las oculta sin dejar ninguna visible, y con el segundo es lo mismo, pero la diferencia es que al primero le puedo cambiar un solo valor y al moverme de celda inmediatamente se activa el macro, y en el 2do apenas me muevo de celda sin hacer otro movimiento y se ejecuta la macro, es decir no me deja cambiar ningún valor ya que se ejecuta de inmediato, no se si esto se deba o tenga que ver a que uso office 2010?.

Muchas gracias por tu tiempo, y no se si quieres que cierre mi otra pregunta ya que se trata de lo mismo?, gracias.

Orlando Bizuet,

Hermano mil disculpas, probé de nuevo el macro y esta perfecto, lo que pasa es que a la primera que lo hice no le di ningún valor en la fila 20 que es donde me detecta valores para ocultar, solo una ultima consulta, veo que si la celda no tiene ningún valor (es decir que este en blanca la celda) me la oculta, se puede modificar eso?, es decir que me olculte específicamente solo las columnas que tenga solo CERO.

Muchas gracias y cierro ya la otra pregunta ya que con este macro me funciono a la perfección.

Ocupa la siguiente macro, es para cuando estás tratando las celdas del rango A1 a K19, si el resultado del tratamiento en la fila 20 es igual 0, en automático te la oculta, si es blanco no hace nada.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:K19")) Is Nothing Then
k = Range("K1").Column
For j = 1 To k
If Cells(20, j) = "" Then Exit Sub
If Cells(20, j) = 0 Then
Columns(j).EntireColumn.Hidden = True
Else
Columns(j).EntireColumn.Hidden = False
End If
Next
End If
End Sub

Prueba y me comentas

Saludos. Dam

Si es lo que necesitas.

ya lo probé pero con la nueva modificación que le agregaste:

If Cells(20, j) = "" Then Exit Sub

no hace nada, ya no me oculta nada, pero bueno de igual forma ya con el primero que me diste me sirvió, en los espacios en blanco solo le di un espacio, lo bueno es que eran solo como 5 pero si hay forma de hacerlo sin el espacio estaría perfecto.

Gracias por tu tiempo Dam!.