Jump to content

eliminar un fila a partir de una celda igual a cero.


Recommended Posts

saludos.......

hola soy nuevo por lo q de antemano me disculp si viola alguna norma o regla.......

bueno quisiera q me ayuden con esto, adjunto un archivo en donde nececito eliminar la fila donde el valor de un celda es cero.

Es decir necesito eliminar toda la fila a partir del valor 0 de la columna VALOR EMITIDO, osea tengo en la celda NO15=0 (rojo)y deseo un macro q elimine la fila 15 (en amarillo), pero que busque en todo el documento y elimine todas las fias en donde el valor de la celda de columna NO sea = 0,

Esta es una parte del docuemtno espero q les sirva y me puedan ayudar muchas gracias anticipadas

datos ejemplo.rar

Link to comment
Share on other sites

Prueba con esta macro

Sub EliminaFilas()

Dim Hoja As String, Fila As Long 'Declaramos las variables que utilizaremos

Hoja = "Hoja1" 'Nombre de la hoja

Fila = 2 'Fila Inicial de revision

Application.ScreenUpdating = False 'Congelamos pantalla para agilizar el proceso

Sheets(Hoja).Select

Sheets(Hoja).Cells(Fila, 1).Select 'Seleccionamos la celda iniical en la columna A

While ActiveCell.Value <> "" 'Mientras celda A no este vacia...

If ActiveCell.Offset(0, 9).Value = 0 Then 'Si celda J es igual a cero...

Selection.EntireRow.Delete 'Elimina la fila

Else

ActiveCell.Offset(1, 0).Range("A1").Activate 'Baja a la siguiente fila

End If

Wend

Sheets(Hoja).Cells(Fila, 1).Select 'Al finalizar regresamos a la celda inicial

Application.ScreenUpdating = True 'Actualizamos la pantalla

End Sub

o esta que es mas pequeña busca un valor por ejemplo "A", dentro de una columna, y que me elimine todas las filas que contengan ese valor

Sub ELIMINAFILAS()

Dim cell, conta

Columns("G:G").Select

For Each cell In Selection

If cell.Value = "A" Then

cell.Select

Selection.EntireRow.Delete

Do While conta = 0

MsgBox Selection.Value

If Selection.Value = "A" Then

Selection.EntireRow.Delete

Else

conta = 1

End If

Loop

End If

conta = 0

Next cell

End Sub

Sugerencia: también podes acotar el rango, si fuese necesario, para que no se quede demorando, como:

Range("G1:G2000").select en lugar de Columns("G:G").Select

Saludos.

:encouragement: Wil

Link to comment
Share on other sites

saludos.....

Muchas gracias rulesagain y Marcao Antonio saben q probe las dos pero la q me salvo de mi dilema fue la de Marco Antonio muchas gracias a los dos.....por su interes.... Marco Antonio no se si es abusar de ud pero una vez q tengo el macro ya ejecutado me queda estos espacios en blanco (esta sonbreado de amarillo ) es un archivo de varias hojas y muchos registros si me pongo a borrar no acaba nunca o casi nunca pero como le aria ud... de antemano gracias.......por la pronta atencion son muy amables

datos ejemplo sin 0.rar

Link to comment
Share on other sites

sabes Marco Antonio le estube probando y agregando a mi proyecto lo q tu me incaste antes y ahora lo de esto y sabes q me sirvio y bastante ..... me agrada mucho encontrar personas ambles q conparten conocimiento y alimentan las ganas de aprender de nosotros q recien esstamos comenzando .......gracias totaless......

Link to comment
Share on other sites

  • 6 months later...

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • La función contar.si.conjunto me funcionó y me dio la cantidad correcta de "envíos a domicilio" dentro de "general" y "crm" pero como hay clientes que dentro del mes repiten el servicio me dan un número general, yo necesitaría al resultado que me dan contar.si.conjunto descontar los clientes duplicados, es decir, que usaron el servicio más de una vez. Gracias por tu tiempo!!!
    • Hola a todos; Os dejo una macro donde al iniciar el formulario se carga la imagen desde una Url. -Primero la descarga a una ruta y después la elimina. Dejo aquí la macro por si le interesa a alguno.   Saludos. MCargarImagenUrl.xlsm
    • o... a reserva de que tu modelo "real" tenga elementos que no "se ven" en tu consulta ? prueba con la muestra del adjunto (aunque hay mas alternativas), funciona desde xl-2007 cuentaUnicos vCondiciones (ayudaExcel).xlsx
    • en tanto aclaras esta parte: mira por aqui: - Función CONTAR.SI.CONJUNTO
    • Hola a todos, es mi primer post y realmente necesito la ayuda, mi nombre es German y tengo el siguiente problema a resolver, tengo una base de datos que se actualiza constantemente con la que esta abajo, necesito obtener los siguientes resultados: ¿cuantos "envios a domicilio" de "general" se hicieron obteniendo como resultados valores unicos (contar los datos unicos sobre esos criterios)? y la misma resupuesta sobre "clientes crm". Desde ya muchas gracias, no me da la capacidad para resolver este problema! Gracias de nuevo! Evelin Beltran 159 Envio a Domicilio General Camila Nansen 248 Envio a Domicilio General Alejandra Uspallata 305 Envio a Domicilio General Ana Marìa "La Poro" Damas Mendocinas 647 Envio a Domicilio General Georgina Gallini 1268 Envio a Domicilio General Susana Mazza 1019 Envio a Domicilio General Valu Galdos 638 Envio a Domicilio General Irene Jose Hernandez 1337 Envio a Domicilio clientes cmr Liendo Olivé 1546 Envio a Domicilio General Cristina J. C. Paz 646 Envio a Domicilio General Sebastian Esteco 745 Envio a Domicilio General MARIA DE NAPOLI. Envio a Domicilio clientes cmr Cristina J. C. Paz 646 Envio a Domicilio General Julia J. C. Paz 656 Envio a Domicilio clientes cmr Isabel Triunvirato 521 Envio a Domicilio General Ana Marìa "La Poro" Damas Mendocinas 647 Envio a Domicilio General Julia J. C. Paz 656 Envio a Domicilio clientes cmr      
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy