Macro seleccion filas segun valor celda

[loreday]

Hola chicos qué tal estáis? Si me podéis ayudar con lo siguiente.

Tengo una hoja de excel con unas 22.000 filas. Necesito una macro que me seleccione las filas donde en la columna J haya 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í

 

[Tambor]

Puedes hacerlo con filtro.

 

[loreday]

Te entiendo tambor. Pues también me vendría bien. Pero sabes cómo?

Yo no quiero que me ordene las filas, el orden no se puede tocar porque van formulas adheridas.
El filtro que yo se usar ordena...

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í

 

[Macro Antonio]

.
Pues ahí lo tienes.

Sub ColumnaJnegativa()
Dim Rango As Range
Application.ScreenUpdating = False
For x = 1 To Range("J" & Rows.Count).End(xlUp).Row
   If Range("J" & x) < 0...

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í

 

[loreday]

Hola Antoni, gracias por tu macro.

La he ejecutado. seleccionando la columna j y sin seleccionar y me salta error en:

If Range("J" & x) < 0 Then

Qué puede ser? Saludos.

 

[Macro Antonio]

Prueba así:
Sub ColumnaJnegativa()
Dim Rango As Range
Application.ScreenUpdating = False
For x = 1 To Range("J" & Rows.Count).End(xlUp).Row
If IsNumeric(nRange("J" & x)) = True Then
If...

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í

 

[Macro Antonio]

Corrijo:

Sub ColumnaJnegativa()
Dim Rango As Range
Application.ScreenUpdating = False
For x = 1 To Range("J" & Rows.Count).End(xlUp).Row
 If IsNumeric(Range("J" & x)) = True Then
  If...

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í

 

[loreday]

Va como la seda!
Muchísimas gracias Antoni!!

Besos, loreday

 

[John Vergara]

Hola a todos!

Aquí te doy otra opción:

Sub ColJNeg()
    Dim R As Range
    Set R = Range("J1:J" & Range("J" & Rows.Count).End(xlUp).Row)
    With R
        .AutoFilter Field:=1...

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í

 

[John Vergara]

Hola!

El código se ve corrido... posteo de nuevo con una pequeña modificación:

Sub ColJNeg()
    With Range("J1:J" & Range("J" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=1...

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í

 

[Macro Antonio]

Muy bueno John.

 

[John Vergara]

Gracias por el comentario Antoni! Bendiciones!

 

[Tambor]

Con el fitro ya aplicado puede usarse el objeto de la hoja incorporado en el filtro

ActiveSheet.AutoFilter.Range.Copy