|
Mi Estimado el porque de la explicacion de la Funcion Extraer, te la debuelbo pero en codigo Visual Basic para Aplicacion en office no pretendo insultar tus baliosos Conocimientos
Sub Extrae()
Nombre = ActiveWorkbook.Name
espacio = Mid(Nombre, InStr(Nombre, " ") + 1, InStr(Nombre, ".x") - InStr(Nombre, " ") - 1)
Range("A1").Value = espacio
End Sub
Por si Alguien te pide esa ayuda ,Gracias
|
