Jump to content
Sign in to follow this  
Followers 0
falexramos

Ocultar columna en 0.

By falexramos, in Ideas y aportes

Recommended Posts

falexramos    3

falexramos
Posted

Oculta la columna si cumple el criterio, que la columna este en valor 0.

Sub Ocultar_columnas_0()

Dim x As Integer

Dim y As Integer


y = 0

Range("J5").Select

For x = 10 To 256

Cells(5, x).Select

If 

IsNull(ActiveCell.value) Or ActiveCell.value = "" Then

MsgBox ("Fin del 

Proceso, Se modificaron: " & y & " Columnas en Ceros")

Exit 

Sub

Else

Selection.End(xlDown).Select

If ActiveCell.value = 0 

Then

Selection.EntireColumn.Hidden = True

y = y + 1

End If

End 

If

Next x


End Sub[/CODE]

Es algo que quice compartir, espero le sirva alguien mas.

Share this post

Link to post
Share on other sites

Antoni    4,891

Antoni
Posted

Hola a todos:

Con el permiso de falexramos y aprovechando para contestar a rulesagain, he realizado mi propia versión de la macro.

Muestra/oculta de forma automática las columnas en función del rango usado, si contienen la totalidad de las celdas vacías y/o a cero.

También permite ignorar filas y columnas al principio del rango usado. 

Option Explicit


Sub OcultarMostrarColumnasMA(Optional ACero As Boolean = True, _

                             Optional Vacia As Boolean = True, _

                             Optional FilasIgnoradas As Long = 0, _

                             Optional ColumnasIgnoradas As Long = 0)



   'Definimos las variables

   Dim Filas, Columna, Columnas, FilaInicial

   Dim ColumnaInicial, FilasVacias, Celda, x, y


   'Determinamos rango de filas

   FilaInicial = ActiveSheet.UsedRange.Row + FilasIgnoradas

   Filas = ActiveSheet.UsedRange.Rows.Count - FilasIgnoradas


   'Determinamos rango de columnas

   ColumnaInicial = ActiveSheet.UsedRange.Column + ColumnasIgnoradas

   Columnas = ActiveSheet.UsedRange.Columns.Count - ColumnasIgnoradas


   'Recorremos las columnas del rango

   For Columna = ColumnaInicial To ColumnaInicial + Columnas - 1


      FilasVacias = 0


      'Contamos las celdas vacias en el rango activo de la columna

      For Each Celda In ActiveSheet.Range(Cells(FilaInicial, Columna), _

               Cells(FilaInicial + Filas - 1, Columna))

         If (Vacia = True And Celda.Value = Empty) Or _

            (ACero = True And Celda.Value = 0) Then

             FilasVacias = FilasVacias + 1

         End If

      Next


      'Mostramos/ocultamos la columna en función del número de celdas vacías

      If FilasVacias = Filas Then

         ActiveSheet.Columns(Columna).Hidden = True  'Ocultamos

      Else

         ActiveSheet.Columns(Columna).Hidden = False 'Mostramos

      End If


   Next


End Sub



Sub OcultarMostrarColumnas()

OcultarMostrarColumnasMA

End Sub



[/CODE]

La macro contiene 4 parámetros, todos ellos opcionales:

[b]ACero[/b] .Si hemos de tener en cuentas las celdas vacías, [b]asume True[/b]

[b]Vacia[/b] .Si hemos de tener en cuentas las celdas a cero(valor numérico), [b]asume True[/b]

[b]FilasIgnoradas [/b].Número de filas a ignorar al principio del rango usado, asume [b]cero(0)[/b]

[b]ColumnaIgnoradas [/b].Número de Columnas a ignorar al principio del rango usado, asume [b]cero(0)

Ejemplos de llamada:

[color=#008000]Todo el rango, se tienen en cuenta las celdas vacías y a cero [/color][/b]

[b]OcultarMostrarColumnasMA[/b]

[b][color=#008000]Todo el rango, se tienen en cuenta las celdas vacias[/color][/b]

[b]OcultarMostrarColumnasMA False, True[/b]

[color=#008000][b]Todo el rango, se tienen en cuenta las celdas a cero [/b][/color]

[b]OcultarMostrarColumnasMA True, False[/b]

[color=#008000][b]Ignoramos las filas 1-5, se tienen en cuenta las celdas vacías y a cero [/b][/color]

[b]OcultarMostrarColumnasMA True, True, 5[/b]

[color=#008000][b]Ignoramos las filas 1-5, y las columnas 1-3, se tienen en cuenta las celdas vacías y a cero [/b][/color]

[b]OcultarMostrarColumnasMA True, True, 5, 3

[/b]

Si se desea automatismo total, colocar la llamada a la macro en el evento Change de la hoja o del libro.

Saludos

Share this post

Link to post
Share on other sites

falexramos    3

falexramos
Posted

rulesagain prueba con esto haber si es lo que necesitas

Sub Ocultar_filas_0()

Dim x As Long

Dim y As Integer

Application.ScreenUpdating = False

y = 0

Range("J2").Select

For x = 1 To Rows.Count

Cells(x, 1).Select

If IsNull(ActiveCell.value) Or ActiveCell.value = "" Then

MsgBox ("Fin del Proceso, Se modificaron: " & y & " Filas en Ceros")

Exit Sub

Else

Selection.End(xlToRight).Select

If ActiveCell.value = 0 Then

Selection.EntireRow.Hidden = True

y = y + 1

End If

End If

Next x

Application.ScreenUpdating = True

End Sub[/CODE]

una modificacion que le hizo Adrian "Macro Antonio" y la mejoro.

Share this post

Link to post
Share on other sites

nonano    0

nonano
Posted
Hola a todos:

Con el permiso de falexramos y aprovechando para contestar a rulesagain, he realizado mi propia versión de la macro.

Muestra/oculta de forma automática las columnas en función del rango usado, si contienen la totalidad de las celdas vacías y/o a cero.

También permite ignorar filas y columnas al principio del rango usado. 

Option Explicit


Sub OcultarMostrarColumnasMA(Optional ACero As Boolean = True, _

                             Optional Vacia As Boolean = True, _

                             Optional FilasIgnoradas As Long = 0, _

                             Optional ColumnasIgnoradas As Long = 0)



   'Definimos las variables

   Dim Filas, Columna, Columnas, FilaInicial

   Dim ColumnaInicial, FilasVacias, Celda, x, y


   'Determinamos rango de filas

   FilaInicial = ActiveSheet.UsedRange.Row + FilasIgnoradas

   Filas = ActiveSheet.UsedRange.Rows.Count - FilasIgnoradas


   'Determinamos rango de columnas

   ColumnaInicial = ActiveSheet.UsedRange.Column + ColumnasIgnoradas

   Columnas = ActiveSheet.UsedRange.Columns.Count - ColumnasIgnoradas


   'Recorremos las columnas del rango

   For Columna = ColumnaInicial To ColumnaInicial + Columnas - 1


      FilasVacias = 0


      'Contamos las celdas vacias en el rango activo de la columna

      For Each Celda In ActiveSheet.Range(Cells(FilaInicial, Columna), _

               Cells(FilaInicial + Filas - 1, Columna))

         If (Vacia = True And Celda.Value = Empty) Or _

            (ACero = True And Celda.Value = 0) Then

             FilasVacias = FilasVacias + 1

         End If

      Next


      'Mostramos/ocultamos la columna en función del número de celdas vacías

      If FilasVacias = Filas Then

         ActiveSheet.Columns(Columna).Hidden = True  'Ocultamos

      Else

         ActiveSheet.Columns(Columna).Hidden = False 'Mostramos

      End If


   Next


End Sub



Sub OcultarMostrarColumnas()

OcultarMostrarColumnasMA

End Sub



[/CODE]

La macro contiene 4 parámetros, todos ellos opcionales:

[b]ACero[/b] .Si hemos de tener en cuentas las celdas vacías, [b]asume True[/b]

[b]Vacia[/b] .Si hemos de tener en cuentas las celdas a cero(valor numérico), [b]asume True[/b]

[b]FilasIgnoradas [/b].Número de filas a ignorar al principio del rango usado, asume [b]cero(0)[/b]

[b]ColumnaIgnoradas [/b].Número de Columnas a ignorar al principio del rango usado, asume [b]cero(0)

Ejemplos de llamada:

[color=#008000]Todo el rango, se tienen en cuenta las celdas vacías y a cero [/color][/b]

[b]OcultarMostrarColumnasMA[/b]

[b][color=#008000]Todo el rango, se tienen en cuenta las celdas vacias[/color][/b]

[b]OcultarMostrarColumnasMA False, True[/b]

[color=#008000][b]Todo el rango, se tienen en cuenta las celdas a cero [/b][/color]

[b]OcultarMostrarColumnasMA True, False[/b]

[color=#008000][b]Ignoramos las filas 1-5, se tienen en cuenta las celdas vacías y a cero [/b][/color]

[b]OcultarMostrarColumnasMA True, True, 5[/b]

[color=#008000][b]Ignoramos las filas 1-5, y las columnas 1-3, se tienen en cuenta las celdas vacías y a cero [/b][/color]

[b]OcultarMostrarColumnasMA True, True, 5, 3

[/b]

Si se desea automatismo total, colocar la llamada a la macro en el evento Change de la hoja o del libro.

Saludos

Macro antonio.. buenisima macro.. como hago para acortar columnas, entre la B y la AT...

gracias

Share this post

Link to post
Share on other sites

rogermv27    0

rogermv27
Posted

Hola Buenas tardes,

Como puedo hacer para esta macro de ocultar los valores en cero de la fila 13 del rango de columnas del 33 al 65
la macro cumple su cometido pero si quiero volver a mostrar todo incluido los valores en cero como seria ?
Agradeceré mucho si me apoyan, grcs

Sub Ocultar_Columna_y_mostrar()
Sheets("Hoja1").Select
For Col = 33 To 65
If Cells(13, Col) = 0 Then
Columns(Col).EntireColumn.Hidden = True
Else
Columns(Col).EntireColumn.Hidden = False
End If
Next
End Sub

Share this post

Link to post
Share on other sites

rogermv27    0

rogermv27
Posted
En 13/4/2013 at 2:40 , Antoni dijo:

Sube un archivo y explica exactamente que es lo que deseas hacer.

 

En 11/4/2013 at 13:37 , Antoni dijo:

Hola nonano:

Esta macro oculta/muestra el rango "B:AT".

  


Sub OcultarMostrar()


   Range("B:AT").EntireColumn.Hidden = Not Range("B:AT").EntireColumn.Hidden


End Sub


[/CODE]

 

Saludos

 

Hace 17 minutos , rogermv27 dijo:

Hola Buenas tardes,

Como puedo hacer para esta macro de ocultar los valores en cero de la fila 13 del rango de columnas del 33 al 65
la macro cumple su cometido pero si quiero volver a mostrar todo incluido los valores en cero como seria ?
Agradeceré mucho si me apoyan, grcs

Sub Ocultar_Columna_y_mostrar()
Sheets("Hoja1").Select
For Col = 33 To 65
If Cells(13, Col) = 0 Then
Columns(Col).EntireColumn.Hidden = True
Else
Columns(Col).EntireColumn.Hidden = False
End If
Next
End Sub

Realice estos cambios y si funciono a lo que quiero, si esta bien la macro me corrigen por favor, muchas gracias por su tiempo

Sub Ocultar_Columna_y_mostrar()
Sheets("Hoja1").Select
For Col = 33 To 78
If Cells(13, Col) = 0 Then
Columns(Col).EntireColumn.Hidden = Not Columns(Col).EntireColumn.Hidden
Else
Columns(Col).EntireColumn.Hidden = False
End If
Next
End Sub
 

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  
Followers 0
Go To Topic Listing


  • Posts

    • nickmartinez
      Error al cargar Ribbon en excel

      By nickmartinez · Posted

      Saludos Abrahan estos son los errores al abrir el archivo,me dices si te va de algo o aun asi necesitas el codigo xml que uso para cargar la ribbon aunque como te comente me funciona muy bien en las maquinas donde no hice ninguna desinstalacion,lo que indica que el codigo xml no es el problema en si,por eso creo que se esta dndo una incompatibilidad por haber tenido antes office 2010,que opinas mi amigo
    • asteron
      Hacer un buscador con filtro avanzado

      By asteron · Posted

      buenas tardes antes que nada agradecer por el tiempo que se toman en apoyarnos con nuestras dudas bueno mi consulta es la siguiente tengo una tabla y quisiera que al momento de escribir los datos en la celdas de arriba (algo como un buscador me filtre la información que estoy buscando) les dejo un ejemplo para que se pueda entender mejor espero puedan ayudarme muchas gracias. ejemplo.xlsx
    • John Jairo V
      Ayuda para utilizar la función "SI"

      By John Jairo V · Posted

      ¡Hola a ambos! @joselica:  Quizá lo que te muestro en el adjunto te pone en perspectiva para lo que estás pidiendo.  En lo que adjunto, debes tener en cuenta que los cambios debes hacerlos en el rango manual (a la derecha), para que éste se vea reflejado en la parte izquierda. De igual forma, ten en cuenta la columna "orden", la cual determina el orden en ese día con respecto a los turnos.  ¡Comentas! ¡Bendiciones! Turnos.xlsx
    • happy-christian
      Buscar y remplazar con 2 condicionantes macro

      By happy-christian · Posted

      Hola, les explico la problemática que tengo con una pequeña macro, esta Macro la ocupo para buscar y remplazar, me funciona muy bien con una condicionante, pero estoy intentando colocar 2 condicionantes y ahí es donde estoy atorado. Set h1 = Sheets("BD SALIDAS") Set b = h1.Range("A:A").Find(REMISION) If Not b Is Nothing Then End If Set d = h1.Range("C:C").Find(LOTE) If Not d Is Nothing Then h1.Cells(d.Row, "F") = (SALIDASLT) End If lo que busco es que la Macro encuentre el LOTE y que coincida con la REMISIÓN para poder sustituir el dato del TEXTBOX a la celda. agradezco mucho su ayuda.
    • Ruben_sk8
      Encontrar y concatenar celdas embace a una referencia formato número y fecha

      By Ruben_sk8 · Posted

      Buenas tardes. Por favor necesito su ayuda para poder resolver lo siguiente: Necesitamos que busque la referencia de la Hoja UNO Celda F3 en otra hoja dos y concatenen todas las lineas D2_C2_G2 ambace a la referencia de la hoja uno Quedaría así. Gracias. Prueba..xlsx

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy

  I accept