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

En 8/12/2020 at 14:04 , lauraduque dijo:

En función del mes correspondiente completar el número de filas que corresponde (p. ej de la 8 a la 91 en enero).

Deberías explicar mejor tu problema porque soy incapaz de entenderlo. Doy por hecho que quieres copiar datos de "MaintenanceSpendTracking" a "kpi" ¿No?

Por otro lado me parece que tienes los datos separados por países ¿La macro también tiene que discriminar eso?

Otra cosa que no entiendo es lo de los números en el libro "MaintenanceSpendTracking" al lado de las ciudades ¿Qué representan, de dónde salen?

Hace 1 hora, Haplox dijo:

Deberías explicar mejor tu problema porque soy incapaz de entenderlo. Doy por hecho que quieres copiar datos de "MaintenanceSpendTracking" a "kpi" ¿No?

Por otro lado me parece que tienes los datos separados por países ¿La macro también tiene que discriminar eso?

Otra cosa que no entiendo es lo de los números en el libro "MaintenanceSpendTracking" al lado de las ciudades ¿Qué representan, de dónde salen?

Justo, quiero copiar datos de "MaintenanceSpendTracking" a "kpi" 

La macro tiene que discriminar cada país. Busco coger el número del libro "MaintenanceSpendTracking" de cada pais y pegarlo en "kpi" al lado del mismo país.

Es decir, que haga un recorrido en búsqueda de todos los países y se lleve el dato que le corresponde a ese país.

mil gracias por adelantado

• Abre el archivo kpi
• Añádele esta macro:

Sub CopyMaintenanceToKpi()
Dim KPI As Worksheet, MST As Worksheet, Plant As Range
Application.ScreenUpdating = False
Set KPI = Workbooks(1).Worksheets("Mechanical Integrity")
Set MST = Workbooks(2).Worksheets("Summary")
For x = 6 To MST.Range("B" & Rows.Count).End(xlUp).Row
   If Not MST.Range("B" & x) = "" Then
      Set Plant = KPI.Columns("A").Find(MST.Range("B" & x), , , xlWhole)
      If Not Plant Is Nothing Then Plant.Offset(0, 1) = MST.Range("C" & x)
   End If
Next
End Sub

• Abre el archivo Maintenace
• Ejecuta la macro

Hace 6 minutos , Antoni dijo:

• Abre el archivo kpi
• Añádele esta macro:

Sub CopyMaintenanceToKpi()
Dim KPI As Worksheet, MST As Worksheet, Plant As Range
Application.ScreenUpdating = False
Set KPI = Workbooks(1).Worksheets("Mechanical Integrity")
Set MST = Workbooks(2).Worksheets("Summary")
For x = 6 To MST.Range("B" & Rows.Count).End(xlUp).Row
   If Not MST.Range("B" & x) = "" Then
      Set Plant = KPI.Columns("A").Find(MST.Range("B" & x), , , xlWhole)
      If Not Plant Is Nothing Then Plant.Offset(0, 1) = MST.Range("C" & x)
   End If
Next
End Sub

• Abre el archivo Maintenace
• Ejecuta la macro

Funciona perfecto

Mil gracias !

Buenos días,

He redistribuido la forma de presentar los datos, más visual. Buscando lo mismo.

Objetivo buscar del excel1 los nombres de del país ubicados en columna A' en el excel2 dentro de la columna B'. (hay celdas en blanco entre los nombres de la columna A')

Al coincidir devolver el valor que le corresponda del excel2 columna C, y colocarlo en excel1 desplazado 15 filas hacia abajo (por ser ese kpi), y el número de columnas que le corresponda en función de si es ene-feb-mar-oct los datos del excel2 (habría que comprobarlo).

Dashboard_Kpi.xlsm

Maintenance_spend_tracking.xlsx

Gracias por adelantado

 

En 9/12/2020 at 20:50 , Antoni dijo:

• Abre el archivo kpi
• Añádele esta macro:

Sub CopyMaintenanceToKpi()
Dim KPI As Worksheet, MST As Worksheet, Plant As Range
Application.ScreenUpdating = False
Set KPI = Workbooks(1).Worksheets("Mechanical Integrity")
Set MST = Workbooks(2).Worksheets("Summary")
For x = 6 To MST.Range("B" & Rows.Count).End(xlUp).Row
   If Not MST.Range("B" & x) = "" Then
      Set Plant = KPI.Columns("A").Find(MST.Range("B" & x), , , xlWhole)
      If Not Plant Is Nothing Then Plant.Offset(0, 1) = MST.Range("C" & x)
   End If
Next
End Sub

• Abre el archivo Maintenace
• Ejecuta la macro