eliminar celdas cero
Publicado por Miriam López (1 intervención) el 11/06/2007 19:47:54
Hola!
Estoy creando una macro y me he topado con un problema.
He definido un rango de celdas con el nombre "datos1"
En ella hay ceros al ppio, no se puede saber cuantos, así que necesito eliminarlos y que pare cuando llegue al primer numero mayor que cero. la lista resultante se denominará datos2.
El problema es que en datos 1, además de los ceros del ppio hay ceros entre medias, que NO quiero que desaparezcan.
La lista resultqante la definiré con el nombre datos 2, xa que la copie y la pegue en una pagina.
Gracias por la ayuda!
MIRI
Set datos1 = datos.Range("A2:A7000")
'definimos columna sin los ceros del ppio
'
'Set full = datos1.Find(datos1(cell > 0), LookIn:=xlValues)
Esto es lo que yo hacia y no me sirve
' Set datos2 = datos1.Range(datos1.Cells(full.Row, full.Column), datos1.Range("").Value)
datos.Copy
copy_data.PasteSpecial Paste:=xlPasteValues
Estoy creando una macro y me he topado con un problema.
He definido un rango de celdas con el nombre "datos1"
En ella hay ceros al ppio, no se puede saber cuantos, así que necesito eliminarlos y que pare cuando llegue al primer numero mayor que cero. la lista resultante se denominará datos2.
El problema es que en datos 1, además de los ceros del ppio hay ceros entre medias, que NO quiero que desaparezcan.
La lista resultqante la definiré con el nombre datos 2, xa que la copie y la pegue en una pagina.
Gracias por la ayuda!
MIRI
Set datos1 = datos.Range("A2:A7000")
'definimos columna sin los ceros del ppio
'
'Set full = datos1.Find(datos1(cell > 0), LookIn:=xlValues)
Esto es lo que yo hacia y no me sirve
' Set datos2 = datos1.Range(datos1.Cells(full.Row, full.Column), datos1.Range("").Value)
datos.Copy
copy_data.PasteSpecial Paste:=xlPasteValues
Valora esta pregunta
0