Macro para transformar número en texto

Estoy buscando una manera que al poner "0" en la celda "A1", este valor se transforme en texto que seria la palabra "nada". ¿Podemos hacer esto?

4 Respuestas

Respuesta
2

José María nos dio una respuesta muy sencilla que soluciona el problema, pero, el texto no queda centrado, para dejar centrado:

_-* #.##0 _-;-* #.##0 _-;_* "nada"_-;_-@_-

 Muy bien!

Respuesta
2

Pon la siguiente macro en los eventos de tu hoja

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = 0 Then
            Application.EnableEvents = False
            Target.Value = "nada"
            Application.EnableEvents = True
        End If
    End If
End Sub

Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. En el panel del lado derecho copia la macro

Escribe un 0 en la celda A1 y automáticamente te pondrá "nada"

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Gracias! Justo lo que necesitaba.

Falta en esta página la opción de 1000 likes.

Igual puedes dar like a algunas de mis respuestas, en esta por ejemplo:

Multiplicar tres celdas

Respuesta
1

Tienes otra opción más sencilla que es utilizar formatos de celda. Si por ejemplo cuando una celda vale cero quieres que muestre automáticamente la palabra "nada" bastaría con que esa celda tuviera este formato:

_-* #.##0 _-;-* #.##0 _-;_-* "nada"_-;_-@_-

Puedes también darla color en función del valor del número (rojo=negativo, azul=positivo, etc)

La solución a través de la macro es más complicada a priori pero permite muchas posibilidades después como por ejemplo escribir "82" y que muestre "ochenta y dos" en letra.

Respuesta

Es posible esto aporte algo más; solo debes poner

For x = 2 to 10000

If cells (x, "A")= 0 then "nada"

Next

Eso es lo que hará lo que requeres con los ejemplos que siguen fijete como recorrer los filas en los siguientes ejemplos

https://youtu.be/V_pQbeDdlFY

https://youtu.be/Rac3rYG9Jqs

https://youtu.be/yFNlSsYZZF0

https://youtu.be/_XvTiwgPHzo

https://youtu.be/M3C5AyDMLOY

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas