Escribir en una celda Excel en nombre de la hoja
Estoy extrayendo datos de varios archivos de excel para tabularlos y pasarlos a tablas de Access, pero la auditoria de los datos para comprobar lo que he migrado a la base de datos se me hace muy difícil. Ya conseguí como identificar cada registro de excel con el nombre del archivo, pero cada archivo tiene 12 hojas y por ello necesito que en alguna celda de excel quede registrado el nombre de la hoja que contiene cada registro.
Respuesta de Nestor Castellar
1
Con este código puedemcolocar el nombre de la hoja en la celda a1 creando esta función
Public Function NombreHoja()
Range("A1").Value = ActiveSheet.Name
End Function
2 respuestas más de otros expertos
Respuesta de gafis ..
has probado con =CELDA("nombrearchivo")?
Respuesta de excelforo - Ismael Romero
Si solo quieres el nombre de la hoja, obviando el nombre del libro:
=EXTRAE(CELDA("nombrearchivo";A1);ENCONTRAR("]";CELDA("nombrearchivo";A1))+1;256)
OJO... esta UDF, aunque no se visible, cambiará en cada momento según tu hoja activa!!Es decir, si estás en la hoja2 activa trabajando, y tu función está introducida en hoja1, mostrará 'hoja2' !!Saludos - excelforo - Ismael Romero