Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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