Codigo de un Boton de comando

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

hola, Age !

ademas de lo que te indica Sergio... prueba con el siguiente codigo [mas 'delgado']
==Sub EsconderFilas()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Range("a6:a400")
Celda.EntireRow.Hidden = IsNumeric(Celda)
Next
End Sub
==si requieres 'invertir el ocultamiento'... modifica a ... = Not IsNumeric(Celda)
si tu rango pudiera ser [de]creciente... cambia a... In Range([a6], [a65536].End(xlUp))

saludos,
hector.

Hola Age,

Donde lo guardas depende de como lo llamas y q tipo de boton de comando
piensas utilizar.

1) Si vas a usar un boton ActiveX, entonces el macro lo puedes guardar en
culaquier modulo normal q NO sea de hoja, libro ni otro modulo de clase, o
bien en el modulo de la misma hoja en la q se encuentra el boton. Al crear
el boton haz clic derecho sobre el mismo y elige Ver Codigo (si no aparece
esta opcion, tendras q activar el modo de diseno pulsando el boton con
triangulo verde sobre la barra de controles ActiveX). Una vez abierto el
Editor VBA veras en una ventana algo como lo siguiente:


Private Sub CommandButton1_Click()

End Sub


Ahora solo tienes q anadir una lamada a tu macro:


Private Sub CommandButton1_Click()
EsconderFilas
End Sub


o bien copiar todo el codigo (salvo la primera y la ultima lineas) dentro
del procedimiento


Private Sub CommandButton1_Click()
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


2) En cambio, si usas un boton de formulario, entonces el macro lo puedes
guardar en cualquier modulo. Al crear el boton te preguntara si quires
asignarle algun macro y podras elgir tu macro (EsconderFilas) directamente.
Si ya habias creado el boton antes, simplemente haz clic derecho sobre el
boton y elige Asignar Macro - lo demas ya lo sabes.

Saludos,
KL

"Age" wrote in message
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