formato y carga de datos mediante macro

15/03/2006 - 16:42 por martinez | Informe spam
Cargo datos en una hoja de calculo mediante una macro, la instruccion que
escribe los datos es, mas o menos, esta:

worksheets("Hoja1").cells(fila,columna) = dato

Ocurre que 'dato', en algunas ocasiones, tiene sólo numeros y una vez en
escrito en la celda, aparece con formato numérico. he probado dando formato
a la celda antes de recibir los datos, pero no funciona. ¿Cómo puedo forzar
a que se copien los datos en formato texto?

Gracias por anticipado

Preguntas similare

Leer las respuestas

#1 Juan
15/03/2006 - 17:50 | Informe spam
hola

prueba esto a ver si te sirve

with worksheets("Hoja1").cells(fila,columna)
.value= dato
.numberformat="@"
end with

un saludo
juan


"martinez" escribió en el mensaje
news:
Cargo datos en una hoja de calculo mediante una macro, la instruccion que
escribe los datos es, mas o menos, esta:

worksheets("Hoja1").cells(fila,columna) = dato

Ocurre que 'dato', en algunas ocasiones, tiene sólo numeros y una vez en
escrito en la celda, aparece con formato numérico. he probado dando
formato
a la celda antes de recibir los datos, pero no funciona. ¿Cómo puedo
forzar
a que se copien los datos en formato texto?

Gracias por anticipado



Respuesta Responder a este mensaje
#2 martinez
15/03/2006 - 18:19 | Informe spam
gracias por el intento pero no funciona. Tal vez me haya explicado mal.
El problema es que aunque 'dato' esta definido como string, cuando se le
carga con un numero lo interpreta como número (a pesar de estar definida la
variable como string) y como el número tiene ceros delante los suprime.


"Juan" escribió en el mensaje
news:
hola

prueba esto a ver si te sirve

with worksheets("Hoja1").cells(fila,columna)
.value= dato
.numberformat="@"
end with

un saludo
juan


"martinez" escribió en el mensaje
news:
Cargo datos en una hoja de calculo mediante una macro, la instruccion que
escribe los datos es, mas o menos, esta:

worksheets("Hoja1").cells(fila,columna) = dato

Ocurre que 'dato', en algunas ocasiones, tiene sólo numeros y una vez en
escrito en la celda, aparece con formato numérico. he probado dando
formato
a la celda antes de recibir los datos, pero no funciona. ¿Cómo puedo
forzar
a que se copien los datos en formato texto?

Gracias por anticipado







Respuesta Responder a este mensaje
#3 Juan
15/03/2006 - 18:47 | Informe spam
hola
me puedes confirmar si esto te funciona o no?
he cambiado de orden las instrucciones

Sub prueba()
Dim texto As String
texto = "00112"
With Range("A1")
.NumberFormat = "@"
.Value = texto
End With
End Sub

en caso de no funcionar, puedes escribir el codigo y de captura y algunas
datos para ver si puedo reproducirlo?

un saludo
juan

"martinez" escribió en el mensaje
news:%
gracias por el intento pero no funciona. Tal vez me haya explicado mal.
El problema es que aunque 'dato' esta definido como string, cuando se le
carga con un numero lo interpreta como número (a pesar de estar definida
la variable como string) y como el número tiene ceros delante los suprime.

Respuesta Responder a este mensaje
#4 Manuel Romero
15/03/2006 - 19:15 | Informe spam
prueba esto

worksheets("Hoja1").cells(fila,columna) = "'" & dato

Cargo datos en una hoja de calculo mediante una macro, la instruccion que
escribe los datos es, mas o menos, esta:

worksheets("Hoja1").cells(fila,columna) = dato

Ocurre que 'dato', en algunas ocasiones, tiene sólo numeros y una vez en
escrito en la celda, aparece con formato numérico. he probado dando formato
a la celda antes de recibir los datos, pero no funciona. ¿Cómo puedo forzar
a que se copien los datos en formato texto?

Gracias por anticipado
Respuesta Responder a este mensaje
#5 martinez
15/03/2006 - 19:17 | Informe spam
eso funcionaría pero no me vale, porque yo leo el dato desde otra aplicacion
(mediante dde).



"Juan" escribió en el mensaje
news:
hola
me puedes confirmar si esto te funciona o no?
he cambiado de orden las instrucciones

Sub prueba()
Dim texto As String
texto = "00112"
With Range("A1")
.NumberFormat = "@"
.Value = texto
End With
End Sub

en caso de no funcionar, puedes escribir el codigo y de captura y algunas
datos para ver si puedo reproducirlo?

un saludo
juan

"martinez" escribió en el mensaje
news:%
gracias por el intento pero no funciona. Tal vez me haya explicado mal.
El problema es que aunque 'dato' esta definido como string, cuando se le
carga con un numero lo interpreta como número (a pesar de estar definida
la variable como string) y como el número tiene ceros delante los
suprime.





Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida