Jump to content

Cambiar nombres de las hojas de un libro de excel


Recommended Posts

Es para cambiar el nombre de la hoja por el valor que tengas en una celda en este caso es A1:

Range("A1").Select

cadena = (ActiveCell.FormulaR1C1)

Sheets("Hoja1").Select

Sheets("Hoja1").Name = cadena

end sub

mas pequeña

Sub NombreHoja()

ActiveSheet.Name = Range("A1").Value

End Sub

Esta macro cambia el nombre en base a una lista generada en la hoja 1 en un total de 100 hojas y empezaria a partir de la hoja 2 tomando los datos del rango a1

Sub CambiarNombre()

For i = 1 To 100

Sheets(i).Name = Sheets(2).Range("A1").Offset(i, 0).Value

Next i

End Sub

Si no mira por aca

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-renombrar-hojas-al-mismo-tiempo-7121/

Saludos

Link to comment
Share on other sites

  • 3 years later...

No entiendo, a mi no me funciona (desde la hoja 3 en mi caso):

Sub CambiarNombre()

For i = 1 To 100

Sheets(i).Name = Sheets(3).Range("A1").Offset(i, 0).Value

Next i

End Sub

 

Por cierto, los enlaces ya no funcionan. Será por la migración:  https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-renombrar-hojas-al-mismo-tiempo-7121/

clientes.rar

Link to comment
Share on other sites

  • Silvia locked this topic

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy