Copiar texto

24/11/2008 - 13:33 por puntero ubicacion | Informe spam
Hola quisiera que me ayudaran con lo siguiente.
Tengo unas celdas en las que hay textos del tipo "10010001" o "00011010" en
resumen ocho lugares que pueden ser ceros o unos.
En una macro asigo esas celdas a unas variables VAR01, VAR02, etc y luego
las coloco en un listado.
El problema es que cuando las coloco en el listado referido, pasan como
numerico.
por ejemplo, si tengo 10010001, todo bien, pasa 10010001
Pero si tengo 00010010 pasa 10010 y eso esta mal.

Espero haber sido claro, me imagino que deberia haber una forma de hecrlo, no?

Gracias
JC

Preguntas similare

Leer las respuestas

#1 Juan M
24/11/2008 - 14:48 | Informe spam
Hola Juan Carlos,

Puedes asignar el valor dándole un formato previamente.
La variable debe ser tipo texto o variant. ojo a la definición.

Algo así:

Dim VAR01 as String

VAR01=Format(range("A1"),"00000000")

Un saludo,
Juan

"puntero ubicacion" escribió
Hola quisiera que me ayudaran con lo siguiente.
Tengo unas celdas en las que hay textos del tipo "10010001" o "00011010"
en
resumen ocho lugares que pueden ser ceros o unos.
En una macro asigo esas celdas a unas variables VAR01, VAR02, etc y luego
las coloco en un listado.
El problema es que cuando las coloco en el listado referido, pasan como
numerico.
por ejemplo, si tengo 10010001, todo bien, pasa 10010001
Pero si tengo 00010010 pasa 10010 y eso esta mal.

Espero haber sido claro, me imagino que deberia haber una forma de hecrlo,
no?

Gracias
JC
Respuesta Responder a este mensaje
#2 puntero ubicacion
24/11/2008 - 15:31 | Informe spam
Gracias Juan pero no me da bien.
Te resumo:
Defini las variables asi : Dim VAR10 As String, var11 As String, var12 As
String, VAR13 As String, var14 As String, var15 As String

Despues asigne a cada variable su valor como me indicaste :
VAR10 = Format(Range("BU32"), "00000000")

Despues de voy a otra parte y pongo

ActiveCell.Value = VAR10

Será que esta mal esta ultima parte ???

Gracias
JC



"Juan M" escribió:

Hola Juan Carlos,

Puedes asignar el valor dándole un formato previamente.
La variable debe ser tipo texto o variant. ojo a la definición.

Algo así:

Dim VAR01 as String

VAR01=Format(range("A1"),"00000000")

Un saludo,
Juan

"puntero ubicacion" escribió
> Hola quisiera que me ayudaran con lo siguiente.
> Tengo unas celdas en las que hay textos del tipo "10010001" o "00011010"
> en
> resumen ocho lugares que pueden ser ceros o unos.
> En una macro asigo esas celdas a unas variables VAR01, VAR02, etc y luego
> las coloco en un listado.
> El problema es que cuando las coloco en el listado referido, pasan como
> numerico.
> por ejemplo, si tengo 10010001, todo bien, pasa 10010001
> Pero si tengo 00010010 pasa 10010 y eso esta mal.
>
> Espero haber sido claro, me imagino que deberia haber una forma de hecrlo,
> no?
>
> Gracias
> JC



Respuesta Responder a este mensaje
#3 Juan M
24/11/2008 - 15:58 | Informe spam
Hola Juan Carlos,

Pensé que el valor de la variable lo ibas a insertar en otra parte (un
listbox, o un cuadro de texto) al intentar pegarlo en una celda ocurre que
lo interpreta como valor y lo deja como lo tenías en un principio.
Puedes hacer dos cosas:
personalizar el formato de esa celda o añadirle una coma simple en la opción
de pegado

Dim var0 As String
var0 = Format(Range("B5"), "00000000")
With ActiveCell
.Value = var0
.NumberFormat = "00000000"
End With

o bien,

ActiveCell.Value = "'" & var0

Un saludo,
Juan


"puntero ubicacion" escribió
Gracias Juan pero no me da bien.
Te resumo:
Defini las variables asi : Dim VAR10 As String, var11 As String, var12 As
String, VAR13 As String, var14 As String, var15 As String

Despues asigne a cada variable su valor como me indicaste :
VAR10 = Format(Range("BU32"), "00000000")

Despues de voy a otra parte y pongo

ActiveCell.Value = VAR10

Será que esta mal esta ultima parte ???

Gracias
JC


Respuesta Responder a este mensaje
#4 puntero ubicacion
24/11/2008 - 17:05 | Informe spam
Muchas gracias Juan, anduvo perfecto.

JC


"Juan M" escribió:

Hola Juan Carlos,

Pensé que el valor de la variable lo ibas a insertar en otra parte (un
listbox, o un cuadro de texto) al intentar pegarlo en una celda ocurre que
lo interpreta como valor y lo deja como lo tenías en un principio.
Puedes hacer dos cosas:
personalizar el formato de esa celda o añadirle una coma simple en la opción
de pegado

Dim var0 As String
var0 = Format(Range("B5"), "00000000")
With ActiveCell
.Value = var0
.NumberFormat = "00000000"
End With

o bien,

ActiveCell.Value = "'" & var0

Un saludo,
Juan


"puntero ubicacion" escribió
> Gracias Juan pero no me da bien.
> Te resumo:
> Defini las variables asi : Dim VAR10 As String, var11 As String, var12 As
> String, VAR13 As String, var14 As String, var15 As String
>
> Despues asigne a cada variable su valor como me indicaste :
> VAR10 = Format(Range("BU32"), "00000000")
>
> Despues de voy a otra parte y pongo
>
> ActiveCell.Value = VAR10
>
> Será que esta mal esta ultima parte ???
>
> Gracias
> JC
>
>



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida