Saludos!
Algien me podria ayudar estoy creando un archivo y necesito eliminar las columnas con numeros negativos y en cero
Borrar columna si en una de las celdas es cero o numero negativo
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
4 mensajes
• Página 1 de 1
Borrar columna si en una de las celdas es cero o numero negativo
por queko » 25 Jul 2006 15:34
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- queko
- Miembro Frecuente
- Registrado: 26 Feb 2005 02:36
Re: Borrar columna si en una de las celdas es cero o numero negativo
por DOOCH » 25 Jul 2006 20:22
Hola
Pues si te sirve este código ocultará las columnas.
varia el rango según te convenga.
Saludos
Pues si te sirve este código ocultará las columnas.
varia el rango según te convenga.
- Código: Seleccionar todo
Sub hidecol()
Dim rango As Range
For Each rango In ActiveSheet.Range[color=red]("A1:D1")[/color]
If rango.Value <= 0 Then
col = rango.Column
Columns(col).Select
Selection.EntireColumn.Hidden = True
End If
Next rango
End Sub
Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
DOOCH - Miembro Frecuente
- Registrado: 08 Jun 2005 21:35
Re: Borrar columna si en una de las celdas es cero o numero negativo
por DOOCH » 25 Jul 2006 20:23
Hola
Pues si te sirve este código ocultará las columnas.
varia el rango según te convenga.
Saludos
Pues si te sirve este código ocultará las columnas.
varia el rango según te convenga.
- Código: Seleccionar todo
Sub hidecol()
Dim rango As Range
For Each rango In ActiveSheet.Range[color=red]("A1:D1")[/color]
If rango.Value <= 0 Then
col = rango.Column
Columns(col).Select
Selection.EntireColumn.Hidden = True
End If
Next rango
End Sub
Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
DOOCH - Miembro Frecuente
- Registrado: 08 Jun 2005 21:35
por galileogali » 25 Jul 2006 20:37
Lo mismo pero un poco menor en lineas de codigo y mas veloz cuando haya mucha tela por cortar...
Sub hidecol()
Dim rango As Range
For Each rango In ActiveSheet.Range("A1:D1")
If rango.Value <= 0 Then
rango.EntireColumn.Hidden = True
End If
Next rango
End Sub
GALI
Sub hidecol()
Dim rango As Range
For Each rango In ActiveSheet.Range("A1:D1")
If rango.Value <= 0 Then
rango.EntireColumn.Hidden = True
End If
Next rango
End Sub
GALI
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- galileogali
- Moderator
- Registrado: 07 Ene 2005 22:46
- Ubicación: QUIROGA (ba), ARGENTINA
Compartir en:
4 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 6 invitados
