Vincular nombre de hoja a una celda

Tengo un libro de excel con varias hojas, a las cuales necesito cambiar el nombre con cierta asiduidad.
Dado que hay gran cantidad de hojas, me resultaría muy cómodo poner los nombres en la Hoja 1, por ejemplo en el rango a1:a50 y vincular los nombres de las hojas a los que aparecen en el rango, por ejemplo la Hoja2 la vinculo a la celda A2 de la Hoja1, de manera que si cambio el nombre en A2 la hoja2 cambie automáticamente y se denomine igual que la celda A2. ¿Es posible hacer esto con excel?.

1 respuesta

Respuesta
1
Si se puede, ¿qué conocimientos tienes de VBA?
El ejemplo que tu dices lo puedes hacer mediante el siguiente código colocado en la hoja "Hoja1"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Row >= 2 And Target.Row <= 500 Then
On Error Resume Next
Sheets(Target.Row).Name = Target.Row
End If
End If
End Sub
Ojo que esto considera la ubicación de las hojas dentro del libro; si andas moviendo las hojas tal vez NO obtengas el resultado esperado

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Modificar macro para que escriba en primera celda vacía

He utilizado esta macro hecha por Elsamatilde y funciona perfectamente, pero he intentado hacer que en vez de escribir en la hoja2 en la misma celda que en la hoja1 que lo haga en la primera celda vacía del rango seleccionado por la macro, siendo...
1 respuesta

Hacer referencia a un valor en una hoja distinta macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Necesito poner en una celda de otra hoja el valor de la celda activa en otra hoja diferente

En una hoja se busca el dato introducido con Target. Necesito copiar otra celda de la fila activa y pasar su valor a otra celda de otra hoja
1 respuesta

Valor de altura de filas en excel

Quisiera saber si existe alguna función o alguna macro que me permita obtener el valor de la altura de determinada fila en una celda de la misma de tal manera que pueda sumar dichos valores. Gracias
1 respuesta

¿Cómo hacer una consultav usando vba?

Estoy realizando una búsqueda o consulta de datos, usando la función CONSULTAV pero desde VBA. Los problemas que tengo es que en las celdas donde se me arroja el resultado de la búsqueda no se me permite escribir otro valor, lo cuál necesito. Además,...
1 respuesta

Minusculas a Mayusculas en Excel forma automática

Quisiera que me ayuden para que dentro de un rango se Celdas se active en forma automática una macro que pase las letras de minúsculas a MAYÚSCULAS, sin estar llamando a la macro cada vez que la necesito. En espera de sus respuestas...
2 respuestas