Hola caballeros y damas tengo este code: Sub qpa() 'By MaM Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False Dim rMet, rAni, Contar As Integer Dim anid, anii, anif, anih, metd, meti, metf, meth As Long Dim anim, metm As String Worksheets("met").Select Range("u:u").Clear rMet = 2 rAni = 2 Contar = 0 Do While Cells(rMet, 1) <> "" metd = Cells(rMet, 6) metm = Cells(rMet, 8) meti = Cells(rMet, 15) metf = Cells(rMet, 16) meth = Cells(rMet, 17) Do While Sheets("ani").Cells(rAni, 1) <> "" And Contar = 0 anid = Sheets("ani").Cells(rAni, 4) anim = Sheets("ani").Cells(rAni, 5) anii = Sheets("ani").Cells(rAni, 6) anif = Sheets("ani").Cells(rAni, 7) anih = Sheets("ani").Cells(rAni, 8) If metd = anid And metm = anim And meth = anih And meti >= anii And metf <= anif Then Sheets("met").Cells(rMet, 21) = "x" Sheets("ani").Cells(rAni, 9) = "x" Contar = 1 Else rAni = rAni + 1 End If Loop Contar = 0 rAni = 2 rMet = rMet + 1 Loop MsgBox "fin" Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True ActiveSheet.DisplayPageBreaks = True Application.CutCopyMode = False End Sub Lo que hace es que busca coincidencias entre dos hojas segun unas "condiciones", el codigo me funciona perfecto el problema es el tiempo que toma el ejecutarlo ya que en una hoja tengo mas de 50000 y la otra mas o menos lo mismo, la pregunta es si existe algun modo de mejorarlo, si no es asi me podrian sugerir algun otro metodo habia pensado en coincidir y IF entre los dos rangos pero no se como hacerlo.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Mejorar codigo de comparación de datos entre hojas

Autor del tema Mayhem9266
Fecha de inicio 16 Dic 2016

Mayhem9266

New member

16 Dic 2016

Hola caballeros y damas tengo este code:

Código:

<i>
</i>Sub qpa()
'By MaM
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

algun codigo para mejorar libro

Respuestas: 0

20 Nov 2017

jhon6666

Pregunta

Mejorar codigo de macro VLOOKUP

Respuestas: 1

23 Feb 2017

jorgefgs

Pregunta

Quiero Mejorar Este CODIGO MSGBOX

Respuestas: 3

3 Nov 2016

joseroberto19

Pregunta

Mejorar codigo de un TEXTBOX

Respuestas: 1

18 Mar 2014

juanantoniomillar

Pregunta

Ayuda para mejorar codigo fuente de Macros

Respuestas: 10

2 Feb 2013

mjrofra

Pregunta

Ayuda para mejorar codigo de una macro

Respuestas: 2

4 Nov 2012

Shecano

Pregunta

colocar datos debajo de la ultima celda llena mejorar codigo

Respuestas: 2

27 Jul 2011

spardante

Pregunta

Espero se pueda mejorar este codigo...

Respuestas: 5

25 Ago 2006

jarturo

Resuelto

Como mejorar Macro que actualiza Datos en 2 hojas del mismo Libro

Respuestas: 9

26 Sep 2024

jcvelez

Resuelto

mejorar macros en evento Change

Respuestas: 5

22 Abr 2024

howling

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba