UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Mi macro se congela el 18/04/16, 02:15 pm

Nenita


Buenas Tardes 
Les envio mucho saludos a cada uno de ustedes 
les envio mi macro que funciona a la perfeccion cuando este tiene pocos registros no se 10 000 por ejemplo
pero cuando ya son 800 000 registros se tarda mucho y digo se tarda mucho porque lleva tres dias qeu dice ejecutando y aun no termina
y lo pero es q no se si terminara 
espero puedana appyarme alguien 

Código:
Sub CopiarDatosIguales()[size=12][/size]
Dim b As Long, a As Range[size=12][/size]
[size=12][/size]
[size=12][/size]
Application.ScreenUpdating = False[size=12][/size]
For b = 2 To Range("AV2").End(xlDown).Row[size=12][/size]
   Set a = Columns("A").Find(What:=Range("AV" & b).Value, LookAt:=xlWhole)[size=12][/size]
   If Not a Is Nothing Then[size=12][/size]
      If b Mod 500 = 0 Then Application.StatusBar = "Fila: " & b[size=12][/size]
      Range(Range("AY" & b), Range("CH" & b)).Value = _[size=12][/size]
      Range(Range("B" & a.Row), Range("AK" & a.Row)).Value[size=12][/size]
      Range("A" & a.Row).Interior.ColorIndex = Int(Rnd * 55) + 1[size=12][/size]
      Range("AV" & b).Interior.ColorIndex = False[size=12][/size]
   End If[size=12][/size]
Next[size=12][/size]
Application.CutCopyMode = False[size=12][/size]
Application.StatusBar = "Listo"[size=12][/size]
[size=12][/size]
MsgBox "Proceso completado"[size=12][/size]
End Sub

2 Re: Mi macro se congela el 18/04/16, 05:17 pm

Igtelo


Hola otra vez Nenita.

Llevas varias o muchas preguntas y ya "debes" saber que el archivo es obligatorio.

Cierro tu tema.

Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.