Valores numericos a textuales.

hola, Noe !

Mostrar la cita

Tengo ciertos valores numericos en la columna a:1 hasta a:25 los cuales necesito convertirlos en valores textuales
por lo que procedo a utilizar Alt+39 para anteponer un apostrofe y agrego manualmente el valor numero que tengo
lo he trabajado con la formula concatenar pero no me resulta... son miles de numeros los cuales deseo convertir...

segun el ejemplo que expones (A1:A25) prueba con el siguiente procedimiento:

- abre el editor de vba (atajo: alt + F11)
- muestra la ventana de inmediato (atajo: ctrl + G)
- copia/pega (o escribe) lo siguiente y pulsas {enter} para ejecutarlo

[a1:a25].value = [transpose(transpose(text(a1:a25,"'0")))]

juega con otros arreglos de rangos y, si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hola y gracias Héctor esta respuesta, esto me funciona muy bien lo único que
quisiera es que para poder hacerlo mas sencillo lo pudiera trabajar con un
botón y ponerlo en la barra de herramientas, ya que probé pero no me aparece
esta solución como un macro disponible y asignable a un botón, adicionalmente
quisiera ver la posibilidad de que en vez de enmarcar los valores a convertir
el macro se pueda ejecutar sobre las celdas seleccionadas, agradeciendo de
nuevo tu amable ayuda.

Noe´s


"Héctor Miguel" wrote:

Mostrar la cita

hola, Noe !

> Tengo ciertos valores numericos en la columna a:1 hasta a:25 los cuales necesito convertirlos en valores textuales
> por lo que procedo a utilizar Alt+39 para anteponer un apostrofe y agrego manualmente el valor numero que tengo
> lo he trabajado con la formula concatenar pero no me resulta... son miles de numeros los cuales deseo convertir...

segun el ejemplo que expones (A1:A25) prueba con el siguiente procedimiento:

- abre el editor de vba (atajo: alt + F11)
- muestra la ventana de inmediato (atajo: ctrl + G)
- copia/pega (o escribe) lo siguiente y pulsas {enter} para ejecutarlo

[a1:a25].value = [transpose(transpose(text(a1:a25,"'0")))]

juega con otros arreglos de rangos y, si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, Noe !

Mostrar la cita

... quisiera... que... lo pudiera trabajar con un boton y ponerlo en la barra de herramientas
... adicionalmente quisiera ver la posibilidad de que en vez de enmarcar los valores a convertir
el macro se pueda ejecutar sobre las celdas seleccionadas ...

puedes adaptar la propuesta anterior para que sea utilizable desde una macro (asignada a objetos) +/- asi:

Sub a_Texto()
Selection.Value = Evaluate("transpose(transpose(text(" & Selection.Address & ",""'0"")))")
End Sub

saludos,
hector.

Mostrar la cita

Mostrar la cita

Mostrar la cita

Tengo ciertos valores numericos en la columna a:1 hasta a:25 los cuales necesito convertirlos en valores textuales
por lo que procedo a utilizar Alt+39 para anteponer un apostrofe y agrego manualmente el valor numero que tengo
lo he trabajado con la formula concatenar pero no me resulta... son miles de numeros los cuales deseo convertir...

segun el ejemplo que expones (A1:A25) prueba con el siguiente procedimiento:

- abre el editor de vba (atajo: alt + F11)
- muestra la ventana de inmediato (atajo: ctrl + G)
- copia/pega (o escribe) lo siguiente y pulsas {enter} para ejecutarlo

[a1:a25].value = [transpose(transpose(text(a1:a25,"'0")))]

juega con otros arreglos de rangos y, si cualquier duda (o informacion adicional)... comentas ?

Muchisimas gracias HM, listo, ya lo aplique y funciona de maravilla saludos.


Noe´s


"Héctor Miguel" wrote:

Mostrar la cita

hola, Noe !

> ... quisiera... que... lo pudiera trabajar con un boton y ponerlo en la barra de herramientas
> ... adicionalmente quisiera ver la posibilidad de que en vez de enmarcar los valores a convertir
> el macro se pueda ejecutar sobre las celdas seleccionadas ...

puedes adaptar la propuesta anterior para que sea utilizable desde una macro (asignada a objetos) +/- asi:

Sub a_Texto()
Selection.Value = Evaluate("transpose(transpose(text(" & Selection.Address & ",""'0"")))")
End Sub

saludos,
hector.

>>> Tengo ciertos valores numericos en la columna a:1 hasta a:25 los cuales necesito convertirlos en valores textuales
>>> por lo que procedo a utilizar Alt+39 para anteponer un apostrofe y agrego manualmente el valor numero que tengo
>>> lo he trabajado con la formula concatenar pero no me resulta... son miles de numeros los cuales deseo convertir...
>>
>> segun el ejemplo que expones (A1:A25) prueba con el siguiente procedimiento:
>>
>> - abre el editor de vba (atajo: alt + F11)
>> - muestra la ventana de inmediato (atajo: ctrl + G)
>> - copia/pega (o escribe) lo siguiente y pulsas {enter} para ejecutarlo
>>
>> [a1:a25].value = [transpose(transpose(text(a1:a25,"'0")))]
>>
>> juega con otros arreglos de rangos y, si cualquier duda (o informacion adicional)... comentas ?