Reemplazar automáticamente macros asignadas a botones de formulario
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Reemplazar automáticamente macros asignadas a botones de formulario
por jeandro » 29 May 2006 19:10
Hola a todos. Tengo 10 libros (.xls) con muchas macros y muchos botones de formulario (80 botones cada uno de los libros). Cada uno de esos botones de la barra de herramientas “Formulariosâ€
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- jeandro
- Miembro Frecuente
- Registrado: 13 Nov 2004 16:30
Re: Reemplazar automáticamente macros asignadas a botones de formulario
por sailepaty » 30 May 2006 13:31
Hola Jeandro,
Me parece que algo como esto te puede servir. Es solo la base ya que tendras que darle algunos retoques para que se adapte completamente a tus necesidades.
Saludos
Me parece que algo como esto te puede servir. Es solo la base ya que tendras que darle algunos retoques para que se adapte completamente a tus necesidades.
- Código: Seleccionar todo
Sub Set_Macro_to_Forms()
Dim shtTabs As Object
Dim shpForms As Shape
Dim oldName As String
Dim newName As String
Application.ScreenUpdating = False
oldName = "Personal"
newName = "Personal_Nuevo"
For Each shtTabs In Sheets
shtTabs.Activate
For Each shpForms In ActiveSheet.Shapes
If shpForms.Type = 8 And InStr(1, shpForms.OnAction, oldName) <> 0 Then
shpForms.OnAction = Replace(shpForms.OnAction, oldName, newName)
End If
Next shpForms
Next shtTabs
End Sub
Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- sailepaty
- Miembro Frecuente
- Registrado: 27 Oct 2004 12:31
- Ubicación: Dallas, TX
Re: Reemplazar automáticamente macros asignadas a botones de formulario
por jeandro » 31 May 2006 15:20
Hola sailepaty
Funciona perfectamente después de algunos retoques.
Te lo agradezco mucho
mil gracias siempre.
Funciona perfectamente después de algunos retoques.
Te lo agradezco mucho
mil gracias siempre.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- jeandro
- Miembro Frecuente
- Registrado: 13 Nov 2004 16:30
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: Google [Bot] y 5 invitados
