Barras de Herramientas

[Paco Ibáñez]

Estoy intentando personalizar una barra de herramientas con un boton que ejecute funciones.

Tengo 3 funciones definidas por el usuario usadas frecuentemente. Para mi no es mucho problema...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico ramirez marron]

AS INTENTADO CON COMPLEMENTOS, PARA TENERLA DISPONIBLE EN TODAS LAS HOJAS?

 

[ST]

ya probaste con una macro que use inputboxes para manejar los argumentos ?

 

[Adrian]

Hola, haber si esto te ayuda, es lo que interpreto de tu problema, depues llamar el formulario desde el código de tu barra.

 

[Paco Ibáñez]

Hola Federico, ST, Adrian.

Antes que nada agradezco su atención y sus respuestas, comento: las funciones definidas estan en el archivo personal.xls, por lo que las tengo disponibles en todos los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Laurent Longre
FUNCUSTOMIZE, la mejor respuesta
y sino
algo mas sencillo
https://www.ozgrid.com/VBA/Functions.htm#UDF1
sobre como agregar Ayuda
pero lo fundamental segun entiendo para vos esta en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ST]

Paco:

no dejes de colgar tu resultado en este sitio XD

 

[Paco Ibáñez]

RESUELTO!!!!

Espero que esta sencilla aportación sea util para alguien.

Como comenté anteriormente, las funciones ya existen y funcionan bien. Lo que hice fue sencillo, Agregue una macro con un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Podrias usar tambien en lugar de CHOOSE, algo como

ult_sem = Format(I, "00")

 

[Paco Ibáñez]

Excelente Galileogali, no cabe duda, cada vez se puede aprender mas de los maestros.!

Muchas gracias.

De igual forma, gracias a ST, Adrián y Federico...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, según vi en el ppt, te presento otra forma de insertar la función:

Sub PonerFuncion()
ActiveCell.FormulaLocal = "=MiFuncion(A" & ActiveCell.Row & ":BA" & ActiveCell.Row & ")"
End Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Otra alternativa:

Sub PonerFuncion()
Dim Col As String
Col = Mid(Replace(ActiveCell.Offset(0, -1).Address, "$", ""), 1, 1)
ActiveCell.FormulaLocal = "=MiFuncion(A" & ActiveCell.Row & ":" & Col...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Rectifico, esto si va ha funcionar:

Sub PonerFuncion()
Dim Col As String, i As Long
Col = Replace(ActiveCell.Offset(0, -1).Address, "$", "") 'quito el signo $
For i = 0 To 9 'quito los numeros...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí