Macro clear cell value & also its code

[ipbr21054]

I have a worksheet that i use for invoices.
Once the invoice is printed i then press a button to run a macro which then clears the values that i have just typed into the cells.

The code on the worksheet has just been changed but the macro which clears the cells is still the same.
The problem that i have now is that not only does the macro clear the cells but it also deletes the code etc in that cell.

Below is the macro code that i use to clear the cell values.

Sub INVCUSTOMERINFO()  Application.EnableEvents = False
  '   *** CUSTOMER DETAILS ***
  Range("G13:I18").ClearContents
  
  '   *** JOB DETAILS ***
  Range("N14:O18").ClearContents
  
  Range("G13").Select
  
  Application.EnableEvents = True
End Sub

Below is the code in each cell that is used to return the requested values but is then deleted when the macro has run.

=INDEX(DATABASE!R:R,$H$13)

Can you advise how to edit or replace the existing macro code so it only clears what i have typed as opposed to also clearing its code which i would like left behind so next invoice is then ready to use again.

Thanks

 

[Fluff]

Why not just change the ranges in the code, to only clear the cells you type into.

 

[ipbr21054]

Sorry i dont understand,can you give me an example

 

[Fluff]

Just change these 2 lines

Range("G13:I18").ClearContents
  
Range("N14:O18").ClearContents

so that they only look at the cells you want to clear

 

[ipbr21054]

Still not understanding you sorry.
The codes that pull the info from the DATABASE sheet are in cells G14:G18 & N14:N17

I then write in cells G27:O36 & also G47:G51

 

[Fluff]

If the you want to keep the formulae & they are in G13:I18 and N14:O18.
Simply don't run that macro.

 

[ipbr21054]

Ok
I think that is where i lost you.
So my question is when i now come to issue a new invoice say the next day i assume going by the above advice the old customers info will still be in those cells.

Correct ?

 

[Fluff]

Do the ranges in your code contain formulae, or hard values?
If formulae, then just change those ranges to the ranges where you type in the values.

 

[ipbr21054]

Here is some info for you.
Cell G13 has drop down list BUT

=IF(ISERROR(MATCH(G13,DATABASE!A:A,0)),"",MATCH(G13,DATABASE!A:A,0))

G14:G18 has address post code etc etc BUT also has a formula like

=INDEX(DATABASE!R:R,$H$13)

N14:N17 vin number, registration nu,mber etc etc BUT also has a formula like

=INDEX(DATABASE!D:D,$H$13)

The other cell range is where i type what was purchased etc but isnt affected

So lets say the drop down code pulls the info & now in cell G14 is the first line of his adress ex 14 MALLARDS CLOSE there is also the formula there =INDEX(DATABASE!R:R,$H$13)

So when the macro is run the 14 MALLARDS CLOSE is cleared BUT so is the formula =INDEX(DATABASE!R:R,$H$13)

 

[Fluff]

A cell either has a formula, or a value. It CANNOT have both.
So do they have formulae or not?