Macro para renombrar hojas
Hola expertos!
Necesito vuestra ayuda con una macro`para renombrar hojas con el nombre de la hoja anterior más 1, es decir si la 1ª hoja es Adjud.1, la siguiente sera Adjud.2. También esta la opción de renombrar con Adjud. Más el valor de la celda R3 de la hoja activa, es decir si R3=25 el nombre de la hoja será Adjud. 25. La primera opción me seria de más utilidad.
Saludos y gracias de antemano
Necesito vuestra ayuda con una macro`para renombrar hojas con el nombre de la hoja anterior más 1, es decir si la 1ª hoja es Adjud.1, la siguiente sera Adjud.2. También esta la opción de renombrar con Adjud. Más el valor de la celda R3 de la hoja activa, es decir si R3=25 el nombre de la hoja será Adjud. 25. La primera opción me seria de más utilidad.
Saludos y gracias de antemano
1 Respuesta
Respuesta de smartito
1
En un modulo escribe lo siguiente:
Sub NombreHoja()
'
' NombreHoja Macro
' Renombra las hojas de un libro sumandole 1 a la primera hoja.
'
' Acceso directo: Ctrl+Mayús+N
'
xHoja = Sheets(1).Name
For i = 0 To Len(Sheets(1).Name)
xCaracter = Mid(Sheets(1).Name, i + 1, 1)
If IsNumeric(xCaracter) Then
xPosNum = i + 1
Exit For
End If
Next
xNumHoja = Val(Mid(Sheets(1).Name, xPosNum))
For i = 1 To Sheets.Count
Sheets(i).Name = Mid(Sheets(i).Name, 1, xPosNum - 1) & Str(xNumHoja + i)
Next
End Sub
Sub NombreHoja()
'
' NombreHoja Macro
' Renombra las hojas de un libro sumandole 1 a la primera hoja.
'
' Acceso directo: Ctrl+Mayús+N
'
xHoja = Sheets(1).Name
For i = 0 To Len(Sheets(1).Name)
xCaracter = Mid(Sheets(1).Name, i + 1, 1)
If IsNumeric(xCaracter) Then
xPosNum = i + 1
Exit For
End If
Next
xNumHoja = Val(Mid(Sheets(1).Name, xPosNum))
For i = 1 To Sheets.Count
Sheets(i).Name = Mid(Sheets(i).Name, 1, xPosNum - 1) & Str(xNumHoja + i)
Next
End Sub
