Hola Héctor.. y demás gente!
Hace unos días me respondiste a la duda de como crear botones
dinámicamente en una hoja excel. Lo que contabas es totalmente válido,
pero no del todo aplicable a mi caso... Me explico:
La idea es crear botones en una hoja en posiciones dinamicas y con
diferentes funcionalidades... Tal y como indicabas, me creo un boton de
formulario y le asigno una posicion y una macro a ejecutar tal y como se
puede ver en el código q me pasaste:
Private Sub AgregarBoton( _
ByVal Hoja As Worksheet, _
ByVal Ubicacion As String, _
ByVal Título As String, _
ByVal Macro As String)
Dim Izquierda As Single, Arriba As Single, Ancho As Single, Alto As
Single
With Hoja
Izquierda = .Range(Ubicacion).Left
Arriba = .Range(Ubicacion).Top
Ancho = .Range(Ubicacion).Width
Alto = .Range(Ubicacion).Height
With .Buttons.Add(Izquierda, Arriba, Ancho, Alto)
.Caption = Título
.OnAction = Macro
End With
End With
End Sub
Ejecutando este procedimiento todo ok... pero como le puedo pasar
parametrod a la macro???? La idea es ahorrar en macros y no tener
1macro/boton dado que voy a tener del orden de 120 botones, pero la
funcionalidad solo varia de pintar en una u otra hoja. Ejemplo:
Tengo que construir una tabla con dos filas y dos columnas en "hoja1":
Dia 1 | BOTON1
Dia 2 | BOTON2
y quiero que usando la misma macro para los dos botones,
- Si pincho en BOTON1, le paso el parametro 1 a la macro, y pinto en la
celda A1 de la "hoja2": DIA 1.
- Si pincho en BOTON1, le paso el parametro 1 a la macro, y pinto en la
celda A1 de la "hoja3": DIA 2.
Y por ultimo una curiosidad... cual es la diferencia entre usar un boton
de Formulario y un Control ToolBox?????????
Un saludo de una informatica recien llegada al mundo del EXCEL ;-) y
gracias por adelantado.
Gema Bernardo.
Leer las respuestas