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.]

1RESUELTO Se Congela mi macro el 11/03/16, 03:33 pm

Nenita


Muy buenos dias  

Esperando se encuentren bien 

alguien  me podria apoyar    tengo un problemita  

 resulta q mi macro cuando la ejecuto  con hasta 500 registros funciona correctamente  pero cuando  ya existen 900 000 registros  automaticamente excel me dice no responde y se congela 

me podiran apoyar  para revisar este detallito 

 mucho se los agradeceria 
(Anexo la Macro )


que pasen excelente dia

saludos
Archivos
11_03.zip
No tienes los permisos para descargar los archivos.
(1 KB)

2RESUELTO Re: Se Congela mi macro el 11/03/16, 11:00 pm

jhon1904


Hola nenita

mejor suba el archivo en excel asi te podremos ayudar

saludos

3RESUELTO Gracias el 14/03/16, 03:46 pm

Nenita


buenas Tardes nuevamente

Ok subo el archivo como lo solicitan  este solo tine un registro de 10  y l  macro fuciona correctamente  pero si llegaramos a poner 800 000 registros     ya no funciona

 adjunto  el archivo mil gracias
Archivos
envio.xlsm
No tienes los permisos para descargar los archivos.
(19 KB)

4RESUELTO Re: Se Congela mi macro el 14/03/16, 10:01 pm

jhon1904


Hola nenita 


La macro funciona correctamente, aunque se va demorar ya que es una gran cantidad de datos, ensaya haber con este código y me dices



Código:


Sub B_copiar_datos_de__Duplicadas()
  Dim colorido As Byte
 
Application.ScreenUpdating = False

' selecciona el rango AI2 de la hoja
 Range("AI2").Select
    ' indica cual es la ultima fila de la hoja
    Selection.End(xlDown).Select
    UltimaFilaB = ActiveCell.Row
   
        For I = 2 To UltimaFilaB
            ' busca coincidencias
          a = Application.Match(Hoja1.Range("k" & I), Hoja1.Range("ai:ai"), 0)
          If Application.IsNumber(a) = True Then
            ' pega valores corresponiente y asigna color
            Range(Cells(I, 44), Cells(I, 64)).Value = Range(Cells(I, 1), Cells(I, 21)).Value
            colorido = Int(Rnd * 55) + 1
            Hoja1.Range("K" & I).Interior.ColorIndex = colorido
            Hoja1.Range("ai" & I).Interior.ColorIndex = off
             
             
          End If
        Next I
End Sub






saludos

5RESUELTO Gracias el 15/03/16, 03:43 pm

Nenita


hola buenas tardes...
 
ok Mil  Gracias  la verdades q me finciono mejor  teagradezco mucho tu ayuda  
como es q sabes tanto  muchas felicidades....

Saludos

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.