Foro Excel

JAMS1 · por **JAMS1** » 05 Abr 2006 18:31

Yo tengo una X cantidad de hojas en un libro, tengo la necesidad de cambiarle el nombre a todas y cada una de ellas, tengo un ciclo para que cambie automaticamente el nombre, el problema es ¿Como le hago para validar el nombre de la Hoja y saber si no se lo e asignado a otra con anterioridad :?:

KL · por KL » 05 Abr 2006 18:57

Hola JAMS1,

Prueba esto:

Código: Seleccionar todo: Function HojaExiste(Nombre As String) As Boolean On Error Resume Next Set sh = Sheets(Nombre) HojaExiste = Not sh Is Nothing End Function 'Ejemplo de uso. Sub test() MsgBox HojaExiste("Sheet2") End Sub

JAMS1 · por **JAMS1** » 05 Abr 2006 19:22

pero el on error se activa en cualquier caso de error...... yo necesito que solo sea en ese caso

KL · por KL » 05 Abr 2006 19:33

Hola de nuevo,

No se si entiendo cabalmente lo que quieres decir, pero prueba esto:

Código: Seleccionar todo: Function HojaExiste(Nombre As String) As Boolean On Error Resume Next Set sh = Sheets(Nombre) On Error GoTo 0 HojaExiste = Not sh Is Nothing End Function 'Ejemplo de uso. Sub test() MsgBox HojaExiste("Sheet2") End Sub

JAMS1 · por **JAMS1** » 05 Abr 2006 19:35

Gracias KL....... por segunda vez me has ayudado, estoy a la orden si en algo te puedo ayudar

Foro Excel

Renombrar Nombre de Hojas

Renombrar Nombre de Hojas

Re: Renombrar Nombre de Hojas

Re: Renombrar Nombre de Hojas

¿Quién está conectado?