• Miércoles 15 de Mayo de 2024, 02:01

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - noneim666

Páginas: [1]
1
VBA / Re: borrar filas=vacias de un rango
« en: Miércoles 24 de Junio de 2009, 19:58 »
gracias. Miraré a ver como lo planteais y si hago que funcione.

Pues el rango es grande (30 columnas-campos y muchas filas-registros, pero solo selecciono el campo "factura" como de trabajo: si esta no existe....fila a la basura), y lo que pretendo es eliminar todas las filas que en una columna presentan "codigo de factura" = vacío. De esta forma, sin aplicar un filtro al efecto, elimino muchas filas que, aunque tengan datos en otros campos, no me interesa mantener para otro tipo de cálculos. la tabla me queda mucho mas limpia...............y me permite hacer cosas sin tener que gestionar un 30% de filas de pedidos que aun no han sido facturados.

Pues son unos 50.000 filas, de las cuales entre el 30 y el 50% corresponden a pedidos que aun no han sido servidos y que, por tanto, aun no han sido facturados. HAY QUE LIMPIAR ESA TABLA COMO SEA.

Es decir, cuando le ponemos, un for each cell of range...si eliminamos filas, ese rango (claro) cambia de tamaño y se vualve loco el bucle?. No habia caido, pero parece lógico....veré.

muchas gracias

2
VBA / borrar filas=vacias de un rango
« en: Domingo 21 de Junio de 2009, 18:35 »
Soy principiante del todooooooo (hace un dia). Programaba muy bien en Basic hace años....pero esto es algo distinto. No mucho.
Tengo un rango grande de datos que quiero "limpiar" de registros (filas) que contienen un campo (columna) vacío en ciertos casos. El campo puede tener cualquier tipo de contenido (letras, numeros y caracteres remezclados)
trato de hacer un programita para que me ayude y no hay forma:
- Si ya hay un lugar donde lo trate........decirme donde.
- La mamarrachada de programita es este. Cada vez que toco algo para probar, me dice un error distinto. Es la hoja de pruebas, que luego extenderé a la excel de trabajo.

Sub Macro1()
'
' Macro1 Macro
Worksheets("hoja1").Range("D2:D10").Select
For Each cell In Range
dato = Range(ActiveCell).value
If dato = "" Then
Selection.EntireRow.Delete
Next cell
End Sub
-----------------------
o
----------------------
Sub Macro1()
'
' Macro1 Macro
Worksheets("hoja1").Range("D2:D10").Select
For Each cell In Range
If activecell = "" Then
Selection.EntireRow.Delete
Next cell
End Sub
------------------
Me vuelve loco tamaña estupidez. Gracias. Prometo ir aprendiendo a la carrera.

Páginas: [1]