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?
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 SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- 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:
3 respuestas más de otros expertos
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.
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