|
Hola, para guardar el Libro TAN con el valor de la celda K2 del propio libro TAN, creamos otra variable que no hace falta declararla, haremos esto, justo delante de esta linea de código eliminamos esto que sigue y ponemos lo que te indico mas adelante:
ActiveWorkbook.SaveAs Filename:="C:\Datos\" & carpeta & "\TAN.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Ponemos esto:
NombLib = Range("K2").Value
ActiveWorkbook.SaveAs Filename:="C:\Datos\" & carpeta & "\" + NombLib + ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Vale, ahora vamos con el tema de copiar los nuevos datos al Libro ANA, pues bien si te fijas lo que te explique que hace el codigo lo entenderas facilmente.
Estas son las lineas de codigo que he extraido de la macro que te puse mas arriba:
'Activamos el libro ANA
Windows("ANA.xls").Activate
'Nos situamos en la primera celda de B
Range("B1").Select
'Bajamos hasta la última fila adyacente, que contenga datos
Selection.End(xlDown).Select
'Pasamos a la siguiente línea, que será una línea en blanco
ActiveCell.Offset(1, 0).Select
'Pegamos los nuevos datos desde TAN2
ActiveSheet.Paste
End Sub
Es verdad que no tenía correctas las celdas pero pense que tu leerías el codigo con mis explicaciones y corregirías los errores en celdas, pero en fín ahora te lo he corregido yo, Como cada vez que escribas datos en el Libro ANA, llenaremos una fila, a la macro no le importa cual es la ultima fila con datos ya que el codigo se situa en la primera celda de la columna B en B1 recorre las filas hacia abajo hasta que encuentra la ultima celda con datos, y despues se va a la siguiente que estará en blanco y ahí pegará los nuevos datos desde TAN, como esto lo hará siempre que ejecutes la macro pues siempre se situará en la fila primera fila en blanco que encuentre.
Otras lineas de codigo que tienes que modificar es todas las que aparezca la palabra TAN porque ahora lo estamos tomando de la celda K2 así que tendrás que cambiarla por la variable por ej. en la linea
Kill "C:\Datos\Intermedio\TAN.xls"
Deberas de cambiarla por la variable osea así:
Kill"C:Datos\Intermedio\" + NombLib + ".xls"
La macro evidentemente, la debes de poner en el Libro ANA ya que si sigues el codigo, hay un punto en que guardamos, cerramos y eliminamos el libro TAN entonces si estuviera la macro en él no abría forma de seguir leyendo el codigo, ya estaría eliminado y la macro se pararía, como hay que seguir leyendo codigo para volver a abrir otro Libro Tan2 y volver a copiar datos para pegarlos en el Libro ANA la macro siempre estará en ANA que al final es el que tiene todos los datos pegados de los otros libros solo te quedará una hoja impresa.
Ya me contaras
>Un saludo
>Julio
|
