codigo

Hola Fran

Ejemplo: Celda A1. Yo escribo pepito, pero quiero que en esa celda
aparezca Un 1.

Pulsa "Alt+F11" para abrir el Editor de Visual Basic, haz doble click
en el nombre de la hoja que te interese colocar el código y en la
ventana de la derecha que te aparece en blanco pon este código:

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> 1 Then [a1] = 1
End Sub

Espero haberme explicado bien,
un saludo,
jose

Hola otra vez,
el código que te he puesto es para que si escribes en cualquier celda
de toda la hoja te devuelva un 1 en la celda "A1" pero si lo que
quieres es que SÓLO si escribes en la celda "A1" cambie el valor a "1"
tienes que poner este otro código en vez del otro vale?

~ jose ~ ha escrito:

Hola Fran

> Ejemplo: Celda A1. Yo escribo pepito, pero quiero que en esa celda
> aparezca Un 1.

Pulsa "Alt+F11" para abrir el Editor de Visual Basic, haz doble click
en el nombre de la hoja que te interese colocar el código y en la
ventana de la derecha que te aparece en blanco pon este código:

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> 1 Then [a1] = 1
End Sub

Espero haberme explicado bien,
un saludo,
jose

Hola Fran,
Si no quieres utilizar código VBA, te situas sobre la celda / celdas en cuestión y cambias el Formato de celdas > Personalizado a: "1";"1";"1";"1" y siempre te aparecerá el número 1 (en la barra de fórmulas aparece lo que en realidad hay). Para acabar de hacerlo bien si en "Alineación de texto" lo pones a la derecha (para esa celda) siempre te aparecerá como un número y no como un texto.

Saludos,

Xavier

Quitar MAC para contestar. Gracias.


"Fran" escribió en el mensaje news:

Buenas tardes,

Alguien me puede decir como puedo hacer para que en una celda concreta
ponga lo que ponga siempre me aparezca un 1.
Ejemplo: Celda A1. Yo escribo pepito, pero quiero que en esa celda
aparezca Un 1.

Gracias