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

niangari


Hola de nuevo. Sigo trabajando en la hoja, y ahora me encuentro con una hoja de datos con 61.000 filas. Necesito usar una macro para eliminar aquellas que NO tengan en la columna A un número (que estén vacías o con letras) y que además elimine las filas que en la columna J tengan un número MAYOR QUE (>) 50.

Podrían guiarme un poco en esta tarea?

GRACIAS!

albertompa


Hola

Prueba añadiendo este módulo, ten en cuenta que funciona en la hoja 1, en caso de que tengas los datos en otra hoja deberás cambiar ese dato "Sheets(1)" en la macro por el número de la hoja donde estén los datos y donde quieres que actúe la macro .

Espero que te sirva, y si tienes dudas ya sabes donde estamos.

De todas formas, como a mi lo de borrar datos me da mucho miedo, y al hacerlo con una macro el proceso es irreversible, te aconsejo que hagas antes una copia de tu archivo por si las cosas se tuercen.



Sub Borrado()

Dim FILAFINAL As Long
Dim X As Long
Sheets(1).Select
FILAFINAL = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
For X = FILAFINAL To 2 Step -1

If Sheets(1).Cells(X, 1) = "" Then
Cells(X, 1).Select
Cells(X, 1).EntireRow.Delete
End If

Cells(X, 1).Select
If Application.WorksheetFunction.IsText(ActiveCell) Then
Cells(X, 1).EntireRow.Delete
End If

If Sheets(1).Cells(X, 10).Value > 50 Then
Cells(X, 1).Select
Cells(X, 1).EntireRow.Delete
End If
Next X
MsgBox "PROCESO FINALIZADO "

End Sub

niangari


Saludos de nuevo. Una pregunta? jej.

Me di cuenta que la condición de la macro no es realmente lo que busco (mi error). Intenté modificar el código pero no tengo mucha idea del idioma. Mientras lo intento. Cómo puedo lograr que se elimine la fila si se cumple la primera condición de que NO empiece con número (eso está bien) Y que se elimine si (ejemplo) A200 es > A201 y que C diga "sell to open". Si estas 2 condiciones se cumplen que se elimine la fila??
http://screencast.com/t/ahgURic9z

GRACIAS!!

albertompa


¿¿¿¿¿???????

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.