como crear un archivo txt de un bloque de una planilla

12/10/2006 - 17:04 por Anibal | Informe spam
Hola a todos, tengo una planilla de calculo que despues de varios
calculos dan como resultado en una hoja, una columna con muchas filas
de datos.
Depende de los calculos la cantidad de filas que tienen datos, las
demas filas la formula da como resultado "".
Quisiera saber como generar un archivo txt solo con las filas que
tienen datos.
Ej:
A
1 (formula) da como resultado = 1.562
2 (formula) da como resultado = 0
3 (formula) da como resultado = linea
4 (formula) da como resultado = 2.000
5 (formula) da como resultado = Texto
6 (formula) da como resultado = ""
7 (formula) da como resultado = ""
8 (formula) da como resultado = ""
9 (formula) da como resultado = ""
10(formula) da como resultado = ""


El archivo txt tendría que quedar así:

1.562
0
linea
2.000
Texto

Tengo una macro que graba la hoja como txt pero guarda las filas que no
tienen datos como lineas vacias.

Hay alguna forma?, muchas gracias!
 

Leer las respuestas

#1 Héctor Miguel
12/10/2006 - 22:45 | Informe spam
hola, Ruben !

... tengo una planilla... que despues de varios calculos dan como resultado... una columna con muchas filas de datos.
Depende de los calculos la cantidad de filas que tienen datos, las demas filas la formula da como resultado "".
Quisiera saber como generar un archivo txt solo con las filas que tienen datos [...]
Tengo una macro que graba la hoja como txt pero guarda las filas que no tienen datos como lineas vacias...



prueba un procedimiento que 'haga' lo siguiente
-> asumiendo que se trata de la hoja 'activa'
-> que la columna -con datos- es 'A'
-> que desde la celda 'A1' SI existen datos 'validos'
-> y que a partir de la primer celda con 'resultado' -> "" las siguientes celdas contienen... 'lo mismo' -?-

1) copiar 'la hoja' [activa ?] a un libro nuevo
2) 'localizar' la primer celda [semi]-'vacia' y extender el rango hasta la ultima celda [sem]-'vacia'
3) 'limpiar' [en el libro nuevo] el rango de celdas NO 'validas'
4) guardar el libro [activo] como archivo de texto [aqui utiizas tu procedimiento -quizas 'adaptado' ?-]

te paso un ejemplo al final ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo general ==
Sub Eliminar_vacios_consecutivos()
ActiveSheet.Copy
With Cells.Find(Empty, [a1], , , xlByColumns)
Range(.Address & "." & .End(xlDown).Address).Clear
End With
Debug.Print ActiveSheet.UsedRange.Rows.Count
' aqui grabas el libro ACTIVO como archivo de texto... ;) '
End Sub

Preguntas similares