Complemento excel

Como puedo crear un menu para un complemento
Respuesta
1
Prueba lo siguiente:
Ver->Barra de Herramientas->Personalizar
Seleccionas la pestaña Comandos y Seleccionas el último de la lista "Categorías" que se llama "Nuevo Menu", luego te mantienes en Personalizar para añadirle botones o macros.
Según he podido ver, los complementos se encuentran repartidos por los menús (p.e. Solver en Herramientas o Administrador de Informes en Ver). Lo que puedes hacer es mover esos complementos al nuevo menú o asignarle botones con macros.
Espero haber entendido bien la pregunta.
Un saludo,
Javi
PD No olvides valorar la respuesta

1 respuesta más de otro experto

Respuesta
1
No se si entendí tu pregunta, pero mira esta macro te ayuda a crear un menú:
==========
Sub menu()
Dim cControl As CommandBarControl
Dim pos As Integer
'Opcion general del menu
pos = CommandBars(1).Controls.Count + 1
Set cControl = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=pos)
cControl.Caption = "Mi Menú"
cControl.Enabled = True
'---------------------------------------------------
'Opcion general de definir
Set cControl = CommandBars("Cuadro emergente personalizado 1").Controls.Add(Type:=msoControlPopup, Before:=1)
cControl.Caption = "Primera Opción"
'---------------------------------------------------
'Definir elaborado
Set cControl = CommandBars("Cuadro emergente personalizado 2").Controls.Add(Type:=msoControlButton, ID:=2949, Before:=1)
cControl.Caption = "Primera Opción Secundaria"
cControl.OnAction = "macroX"
cControl.Enabled = True
If booErr Then
cControl.Enabled = False
Else
cControl.Enabled = True
End If
End Sub
===========
Revisa si es esto lo que necesitas, sino, no dudes en preguntar otra vez.
Como le puedo hacer para que un menu personalizado solo me aparezca en el libro que realmente voy a ocupar y no cada vez que abro excel
Puedes tener un procedimiento que se ejecute cuando cierras el libro y elimine la barra que creaste al abrirlo, algo como esto:
==============
Sub eliminarMenu()
Dim I As Integer
Dim booEncontrado As Boolean
On Error Resume Next
For I = 1 To CommandBars(1).Controls.Count
If LCase$(CommandBars(1).Controls(I).Caption) = "Mi Menú" Then
Exit For
End If
Next I
If LCase$(CommandBars(1).Controls(I).Caption) = "Mi Menú" Then
CommandBars(1).Controls(I).Delete
End If
End Sub
==============

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
2 respuestas

¿Como crear un evento al cambiar el valor de una celda con nombre? VBA en Excel

A tod@s! Tengo una celda que se llama "AnalogicaImput". Tengo esta instruccion If Target.Address = "$L$3" Then funciona con la posicion de la celda Como puedo hacer If Target.Name= "AnalogicaImput" Then para ejecutar un evento
1 respuesta

Atascado en la función sumar. Si

En una hoja de calculo tengo en las columnas H, I, J una celda en blanco por columna, en la columna QUE tengo una celda con un numero como referencia 1000 y una celda donde ha de apareceme el resultado siguiente para el cual necesito la fórmula que...
2 respuestas

Cuando ingresos los datos con código no los coloca donde deseo colocar los datos.

Código que extrae información de varios archivos de Excel desde una carpeta pero al colocar los datos los coloca varias filas mas abajo. Debe iniciar a colocar los datos en C6. La información la tiene que colocar dentro de una tabla que tiene...
2 respuestas

Fórmula que separe la fecha por dígitos de uno en cada columna

Necesito una fórmula o macro que separe la fecha en dígitos de uno en cada columna, Ej: 27/03/2025 (col-A(2), col-B(7), col-C(0), col-D(3), col-E(2), col-F(0), col-G(2), col-H(5) Agradecido de antemanos
2 respuestas

Como agregar más hojas a un libro de excel

Dante puede apoyar con la siguiente macro, tengo un archivo de excel en el cual tengo un formato donde hay una macro que cuando se activa un check box muestra ciertas filas y cuando se desactiva las oculta, así mismo bloquea ciertas celdas y también...
1 respuesta

¿Importar datos desde varios libros de Excel ADO?

A tod@s! Desde un botón con su evento aparece un desplegable y elijo los libros que quiero importar la info. Incluso puedo elegir varios a la vez (esto lo tengo hecho) En cada libro seleccionado tendrá una tabla en una hoja llamada "DATA". La tabla...
1 respuesta

¿Cómo se copia una fórmula moviendo solo valores intermedios?

Tengo la siguiente fórmula: ='2025-300'!C$1 Deseo arrastrar la fórmula hacia abajo o copiarla de forma que solo cambie el 300 en el correlativo siguiente: ='2025-301'!C$1 ='2025-302'!C$1 Y asi sucescivamente.
1 respuesta