quizás exageré con 3 o 4 min, pero tarda más de 1 min seguro.
Lo que hacen mis macros es buscar si el valor del campo existe en el segundo fichero abierto, recorriéndolo fila por fila del primero al segundo.
te pongo el codigo
Código:
For i = 2 To numRows(1) ' Filas del primer archivo
For j = 2 To numRows(2) ' Filas del segundo archivo
'MsgBox Worksheets(2).Range("C" & i).Value
'windows(myBook(i)).
If (Workbooks(2).Worksheets(1).Range(varCellOriginalColumn & i).Value = Workbooks(3).Worksheets(1).Range(varCellDestinyColumn & j).Value) Then
encontrada = True
pos = j
Exit For
End If
Next j
If encontrada Then
Windows(myBook(2)).Activate
Workbooks(3).Sheets(1).Select
valueSearch = Range(varCellDestinyCopy & pos).Value
'drawColorRow (pos)
Selection.Copy
Windows(myBook(1)).Activate
Workbooks(2).Sheets(1).Select
Range(varCellInsertColumn & i).Value = valueSearch
'drawColorRow (i)
'ActiveSheet.Paste
Else
Windows(myBook(1)).Activate
Rows(i & ":" & i).Select
Range("N" & i).Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next i
el Application.ScreenUpdating = False ya lo tengo, pero para el form no me sirve
