Vraag : het terugstellen cel aan originele waarde

IN het werkboek in bijlage heb ik Hoofd Wekelijkse Pahting voor een orerator en welke I'n die nu proberen te doen is wanneer Interior.color 9 is is de originele waarde van de cel retured en intlerior.colour zoals die aan 15

I wordt geplaatst heeft kunnen de kleur plaatsen maar ik heb geen bij bekwaam om te plaatsen de celwaarde aan ben origineel. examlpe BG12 de waarde

For nu HP1_01 moeten zijn toen wanneer BK14 het is originele waarde is HP1_02

This is leeg is te gebeuren wanneer Interior.colour 9, en slechts vijand HP1 en slechts HP2 is

Attachments:

van

contract-path-test.xls (214 KB)  (de Details van het Type van Dossier)  

originele celwaarde test

Antwoord : het terugstellen cel aan originele waarde

Openbare myValue, mAddress als Koord

Privé SubWorksheet_Change (Doel ByVal als Waaier)
Als MsgBox („Klik ja om aan originele waarde“, vbYesNo terug te keren) = vbYes toen
    Als Target.Address = mAddress toen
        Application.EnableEvents = Vals
        Target.Value = myValue
        Application.EnableEvents = Waar
    Eind als
Eind als
Sub van het eind

Privé SubWorksheet_SelectionChange (Doel ByVal als Waaier)
mAddress = Target.Address
myValue = Target.Value
Sub van het eind