Explicat molt bé a http://www.todoexcel.com/foro-excel/macros/cambiar-nombre-hojas-segun-una-lista-t15384.html
En l'exemple el full actiu és Hoja4 i començarà a canviar des de la fulla 1 fins a la 3
A la fulla 1 li canviarà el nom pel que possi en Hoja4.A2
A la fulla 2 li canviarà el nom pel que possi en Hoja4.A3
A la fulla 3 li canviarà el nom pel que possi en Hoja4.A4
El resultat serà que Hoja1 es dirà Alfa, Hoja2 serà Beta i Hoja3 quedarà com a Gamma.
El codi que cal escriure dins un mòdul:
Sub CambiarNombre()
Dim i As Integer
For i = 1 To 3
Sheets(i).Name = Sheets("Hoja4").Range("A1").Offset(i, 0).Value
Next i
End Sub
Cap comentari:
Publica un comentari a l'entrada