Macros para reemplazar formulas anidadas INDICE y COINCIDIR

[cathyuska]

Hola

Necesito una macros que reemplace las formulas índice y coincidir, porque después tengo que dejar solo el valor, y se demora mucho en pegar el valor, ya que es casi una hoja completa. Envío muestra. gracias

 

 

Trabajo.1.xlsb

[Antoni]

Cada vez que añadas/modifiques en la columna A, se copiarán los datos correspondientes de la hoja N1.

Trabajo.1.xlsb

[cathyuska]

Muchas gracias, me ha ayudado mucho ?

[TAVO1]

Muy práctico y preciso Maestro Antoni

[cathyuska]

Me ha ayudado mucho, pero existe alguna forma en que no tenga que digitar en la columna A, porque son mas de 45.000 celdas en la columna A que tendría que digitar y son 4 hojas. Si me pudiera ayudar.

[Antoni]

Activa la hoja que quieras y ejecuta esta macro:

Sub CambioMasivo(): On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Set Target = Range("A" & x)
   Range("B" & Target.Row & ":AW" & Target.Row) = ""
   With Sheets("N1")
      Set q = .Columns("A").Find(Target, , , xlWhole)
      If Not q Is Nothing Then
         .Range("B" & q.Row & ":AW" & q.Row).Copy Range("B" & Target.Row)
      End If
   End With
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[cathyuska]

GRACIAS!!!!!! me ha ayudado mucho, maestro.