Jump to content

Macros para reemplazar formulas anidadas INDICE y COINCIDIR


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

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy