Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Workbook_NewSheet

zelarra

Active member
Registrado
14 Abr 2016
Mensajes
362
Buenos días.

He creado un evento Workbook_NewSheet para que, al añadir una nueva hoja, me añada un código personalizado a esa nueva hoja.

El problema es que me da un error 9 en tiempo de...
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í
 

Adjuntos

Solución
Si lo que pretendes es colocarte en A1 cuando actives una hoja, no te compliques la vida, elimina el evento Workbook_NewSheet y añade este otro:
Código:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.Goto Range("A1"), True
End Sub
Si lo que pretendes es colocarte en A1 cuando actives una hoja, no te compliques la vida, elimina el evento Workbook_NewSheet y añade este otro:
Código:
Private Sub Workbook_SheetActivate(ByVal...
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í
 
Lo que quieres hacer no tiene sentido, pero allá tú:
Código:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveWorkbook.VBProject.VBComponents(Sheets.Count + 1).CodeModule.AddFromString _...
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í
 
Para mí sí lo tiene, porque lo que busco es no tener que añadirlo manualmente cada vez que añada una hoja.

Por cierto, para que funcione hay que poner Sheets.Count + 2.

Mil gracias.
 
Volver
Arriba