Copiar datos concretos de un libro excel en otro vba
publicado
Buenos días,
Necesitaría copiar los datos de un libro excel en otro. Pensando hacerlo en macro VBA
Lo primero comprobar que el texto de los datos de origen corresponde a un determinado mes y año
En función del mes correspondiente completar el número de filas que corresponde (p. ej de la 8 a la 91 en enero).
Buscar todos los nombre de la fila del mes ubicados en una columna concreta, en el otro libro (que pueden estar colocados en diferente orden) y copiar el valor de 1 celda desplazada.
Mi problema es que no consigo hacer referencia al valor copiado con la función Cells.Find pero igual hay otras fórmulas más optimizadas o que funcionen mejor.
Os adjunto lo que he desarrollado en macro ¿podéis ayudarme?
Buenos días,
Necesitaría copiar los datos de un libro excel en otro. Pensando hacerlo en macro VBA
Lo primero comprobar que el texto de los datos de origen corresponde a un determinado mes y año
En función del mes correspondiente completar el número de filas que corresponde (p. ej de la 8 a la 91 en enero).
Buscar todos los nombre de la fila del mes ubicados en una columna concreta, en el otro libro (que pueden estar colocados en diferente orden) y copiar el valor de 1 celda desplazada.
Mi problema es que no consigo hacer referencia al valor copiado con la función Cells.Find pero igual hay otras fórmulas más optimizadas o que funcionen mejor.
Os adjunto lo que he desarrollado en macro ¿podéis ayudarme?
For i = 0 To 91
Plant = Cells(x, 1).Select
Cells.Find(What:=Plant, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(, 1).Select
Selection.Copy
Cells(x, "B").Select
ActiveSheet.Paste
kpi.zip