REPONER Valor de 1 CELDA, tras borrarlo....

13/08/2004 - 00:36 por lamarse | Informe spam
Gola Hector (de nuevo).

A ver, vamos a redefinir mi consulta:

¿Cómo reponer el valor de una celda (E4) tras borrarlo?

Tengo que E4Ô. Pero borro manualmente el contenido de E4 y sin
embargo no quiero que E4 deje de ser igual a D4. En el momento en que
yo borro el contenido de E4 automáticamente D4 pasa a tener otro
contendio. En este caso, la reacción en D4 al borrar el contenido en
E4 es simplemente quedarse vacia.

Asi pues, ¿Cómo borro (manualmente, con el teclado, claro) el
contenido de E4 y que se quede (o reaparezca) el "Ô"?


Gracias a todos por vuestra ayuda (la verdad es que estoy aprendiendo)
Gracias

Victor
 

Leer las respuestas

#1 Héctor Miguel
13/08/2004 - 06:40 | Informe spam
hola, victor !

... redefinir mi consulta: ... ¿Como reponer el valor de una celda (E4) tras borrarlo?
... Tengo que E4Ô ... borro manualmente ... E4 ... que se quede (o reaparezca) el "Ô"?



usando el evento '_change' en el modulo de codigo de 'la hoja' y 'segun' lo que [realmente] deseas...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
[ dentro de este evento pones el codigo que consideres mas apropiado ]
End Sub

1.- si solo quieres 'evitar' que se borre el contenido de 'E4'...
If Target.Address = "$E$4" And IsEmpty(Target) Then Application.Undo

->podras modificar el contenido de 'E4' mas no dejarlo 'vacio'<-

2.- si 'D4' 'formaba parte' de un rango de celdas seleccionado...
y quieres 'asegurarte' que 'E4' tenga SIEMPRE la formula 'Ô'...
If Not Intersect(Target, Range("e4")) Is Nothing _
And Range("e4").Formula <> "Ô" _
Then Range("e4").Formula = "Ô"

3.- [puedes combinar, modificar, adaptar, etc. con las propuestas anteriores] :))

¿comentas?
saludos,
hector.

Preguntas similares