Forums Últimos mensajes - Powered by IBM
 

Codigo de un Boton de comando

29/01/2005 - 04:59 por Age | Informe spam
¿Donde grabo este codigo para aplicarlo en un boton de comando?, ¿en la
hoja?, ¿En un modulo? ¿O donde?


Sub EsconderFilas()

Application.ScreenUpdating = False
Dim Rango As Range, a As Range

Set Rango = ActiveSheet.Range("a6:a400")
For Each a In Rango
If IsNumeric(a) Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next

End Sub
 

Leer las respuestas

#1 Sergio A Campos H
29/01/2005 - 08:17 | Informe spam
Que tal.

Lo puedes aplicar tanto en 'ThisWorkBook' como macro:
1. Alt + F11 y pegas en código en el módulo para después asignarlo a un
botón de formulario como macro.

También puedes asignar el código a un botón de cuadro de controles
1. Menú > Ver > Barra de herramientas > Cuadro de controles, insertas
Botón de comando y 'ves código' (clik derecho).


<!>
A sus órdenes.
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Age" escribió en el mensaje
news:
¿Donde grabo este codigo para aplicarlo en un boton de comando?, ¿en la
hoja?, ¿En un modulo? ¿O donde?


Sub EsconderFilas()

Application.ScreenUpdating = False
Dim Rango As Range, a As Range

Set Rango = ActiveSheet.Range("a6:a400")
For Each a In Rango
If IsNumeric(a) Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next

End Sub

Preguntas similares