formato y carga de datos mediante macro

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

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

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.

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

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.