Excel - Comparar Columnas

   
Vista:

Comparar Columnas

Publicado por javier newmelvin@hotmail.com (2 intervenciones) el 29/06/2016 17:40:28
Biuenos dias les mando saludos a todos....


Esperando pueda alguien apoyarme..

envio un archivo con una macro que

compara los datos dela columna A con AV

estos cuando encuentra que son iguales copia la fila desde la columna B hasta la columna AK
y la pega todo ese rango apartir de la columna AY enfrente del dato repetido dela columna AV

Pueden ejecutar la macro para que vean lo que explico de como funciona


Mi solicitud esta en que si alguien me pueda ayudar a hacer algún arreglo a la macro para que funcione de manera mas rapida lo mas posible

ya que ejecutar tengo que ejecutar esta macro en tres hojas de datos y cada hoja con 800 mil registros

Por favor he leido en tutoriales que se pueden cambiar los "for" o no se alguna modificacion para que se mas rapida pues me tarda dias en terminar cuando son muchos registros
Seguramente alguien me puede ayudar

Muchas Gracias este es el código y envio el archivo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub CopiarDatosIguales()
Dim b As Long, a As Range
 
 
Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
For b = 2 To Range("AV2").End(xlDown).Row
   Set a = Columns("A").Find(What:=Range("AV" & b).Value, LookAt:=xlWhole)
   If Not a Is Nothing Then
      If b Mod 500 = 0 Then Application.StatusBar = "Fila: " & b
      Range(Range("AY" & b), Range("CH" & b)).Value = _
      Range(Range("B" & a.Row), Range("AK" & a.Row)).Value
      Range("A" & a.Row).Interior.ColorIndex = Int(Rnd * 55) + 1
      Range("AV" & b).Interior.ColorIndex = False
   End If
Next
Application.CutCopyMode = False
Application.StatusBar = "Listo"
 
MsgBox "Proceso completado"
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Comparar Columnas

Publicado por javier (2 intervenciones) el 30/06/2016 19:46:28
Alguien me podria ayudar con esto deverdad gracias

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar