Macro de ejecución muy lenta

[jeandro]

Hola; gracias a todos de antemano.
He hecho una trabajosa macro que me funciona de forma muy lenta. Se trata de eliminar todas la filas cuya celda correspondiente de la columna H tenga un valor =...

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í

 

[KL]

Sub test()
    Dim lngRow As Long
    Dim lngRowLast As Long
    Dim strColumn As String
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual...

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í

 

[jeandro]

Gracias KL.
Una primera cuestión me gustarí­a plantearte por si tuviera solución. ¿Es posible dejar sin revisar la celda H1 siempre? Es decir, ¿se puede excluir de la macro la celda H1?.
En todo...

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í

 

[KL]

cambia la siguiente linea:

For lngRow = lngRowLast To 1 Step -1

por esta:

For lngRow = lngRowLast To 2 Step -1

 

[galileogali]

Otra variante, pero sin bucles,
¿será más lenta?

<i>
</i>Sub EliminarFilas()
    Dim autofil As Boolean
    Dim columna As Range
    
With Application
    .ScreenUpdating = 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í

 

[KL]

probablemente la solucion mediante Autofiltro sea mas rapida, pero en una muestra de 400 filas la diferencia sera imperceptible para el ojo

 

[jeandro]

No logro que la solución galileogali me funcione. Evidentemente algo debo estar haciendo mal.
En todo caso ¿que debo hacer para que comience en la celda H2 (no en la H1)?
Otra pregunta ¿que debo...

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í

 

[KL]

En todo caso ¿que debo hacer para que comience en la celda H2 (no en la H1)?

No te vale mi respuesta mas arriba?

Otra pregunta ¿que...

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í

 

[jbf99]

Otra variante.

Sub Macro2()
   Set rango = Range("A2:A65536").SpecialCells(xlTextValues)
   Set rango1 = rango(1)
   For x = 2 To rango.Count
   If rango(x).Value = 0 Then Set rango1 =...

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í

 

[jbf99]

Nada el anterior codigo esta mal , elimina la primera celda que encuentra independientemente del valor que sea .
Este soluciona ese problema

Sub Macro2()
Set rango =...

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í

 

[jeandro]

Gracias. Muchas gracias. Funciona