Cambio dinamico de nombre de hoja de Calculo

06/11/2007 - 00:58 por Jose Luis Prieto | Informe spam
Buenas,
Por favor, alguien podría explicarme si es posible cambiar dinámicamente el
nombre de una hoja de Calculo de un libro, dependiendo del contenido de una
celda??

Ante todo, Mil gracias
 

Leer las respuestas

#1 Ivan
06/11/2007 - 04:38 | Informe spam
hola Jose Luis,

cambiar dinámicamente el
nombre de una hoja de Calculo de un libro, dependiendo del contenido de una
celda??



mira si te puede valer algo parecido a esto:

suponiendo que es la misma hoja a la que quieres cambiar el nombre que
la que contiene la celda en la que lo escribes (en el ejemplo 'A1' -
cambialo por la que sea-) pega esto en el modulo de esa hoja (click
secundario en la pestaña de esa hoja => ver codigo => lo pegas en la
hoja (del editor de VBA) que se te abre)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
On Error Resume Next
Name = Target
If Err.Number <> 0 Then MsgBox "El nombre introducido no es " & _
"un nombre valido de hoja": Target = Name: Target.Select
On Error GoTo 0
End If
End Sub

si quieres comentas
un saludo
Ivan

Preguntas similares