Cuestión : reajustar la célula al valor original

EN el libro de trabajo atado tengo el Pahting semanal principal para un orerator y qué I'n ahora el intentar hacer es cuando el Interior.color es 9 que el valor original de la célula retured y el intlerior.colour como fija a 15

I ha podido fijar el color pero no tengo abeja capaz de fijar el valor de la célula a soy original. el valor del examlpe BG12 del

For debe ahora ser HP1_01 entonces cuando BK14 es espacio en blanco que es valor original es HP1_02

This debe suceder cuando el Interior.colour es 9 solamente, y solamente el enemigo HP1 y HP2 class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del contract-path-test.xls el class= (214 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
valor original test
de la célula
el class= de
del >
class= del

Respuesta : reajustar la célula al valor original

myValue público, mAddress como secuencia

Worksheet_Change secundario privado (blanco de ByVal como gama)
Si MsgBox (“tecleo sí a invertir al valor original”, al vbYesNo) = vbYes entonces
    Si Target.Address = mAddress después
        Application.EnableEvents = falso
        Target.Value = myValue
        Application.EnableEvents = verdad
    Terminar si
Terminar si
Terminar el submarino

Worksheet_SelectionChange secundario privado (blanco de ByVal como gama)
mAddress = Target.Address
myValue = Target.Value
Submarino del extremo
Otras soluciones  
 
programming4us programming4us