dissabte, 11 d’agost de 2012

Canviar el nom de les fulles excel


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