Insertar parte del titulo del Archivo en 2 celdas

Sí, puedo ayudarte. Puedes utilizar la función LEFT en lugar de MED para extraer el primer y segundo elemento del título del archivo. A continuación se muestra el código actualizado que incluye la inserción del título del archivo en dos celdas diferentes del nuevo libro:

Sub exportando()

' Copia la selección actual

LibroA. Activate

Range("B19").Select

Selection. Copy

VbnetCopy code

' Pega los valores en la nueva hoja de trabajo

ActiveSheet. Copy

Set wb = ActiveWorkbook

' Extrae los primeros dos elementos del título del archivo

Dim titulo As String

titulo = wb.Sheets(1).Name

Dim primerElemento As String

primerElemento = Left(titulo, 2)

Dim segundoElemento As String

segundoElemento = Left(Right(titulo, 4), 2)

' Inserta los elementos del título en dos celdas diferentes

wb.Sheets(1).Range("F13").Value = primerElemento

wb.Sheets(1).Range("H13").Value = segundoElemento

' Guarda el libro con el título de la hoja copiada

miDire = "C:\carpeta\"

nbreFilt = wb.Sheets(1).Name

wb.SaveAs miDire & nbreFilt & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEnabled

wb.Close Set wb = Nothing

' Limpia el contenido de la selección original

Range("B19:D43").ClearContents

Range("B19").Select

librox.Activate

End Sub

Este código inserta el primer elemento del título en la celda F13 y el segundo elemento en la celda H13 del nuevo libro.

Tendrás que cambiar "C:\carpeta" a la ruta de la carpeta en la que deseas guardar el archivo.

Fíjate que olvidé la hoja en lala última instrucción:

 libroA.Sheets(1).[F13] = anio: libroA.Sheets(1).[N13] = divi

Ya sabemos que es la primer pestaña, si cambiás el orden deberás indicarle el nombre o su nuevo número.

Sdos!