Saltar al contenido

Macros para reemplazar formulas anidadas INDICE y COINCIDIR


cathyuska

Recommended Posts

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.