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

 

[ipbr21054]

This gets better as we go along.
I have applied the code below in cell G16

=IFERROR(IF(INDEX(DATABASE!T:T,$H$13)=0,"",INDEX(DATABASE!T:T,$H$13)),"")

Now when i select this customer as opposed to seeing 0 in the cell G16 it is now empty, perfect.

I then use the same code but change the DATABASE row letter & apply it to each cell G14 G15 G17 G18

=IFERROR(IF(INDEX(DATABASE!V:V,$H$13)=0,"",INDEX(DATABASE!T:T,$H$13)),"")

Now what i see is the reverse, meaning these cells now show 0

So where as before the cell on DATABASE sheet was empty the INV sheet showed 0
Now this is fixed with your new code

So where now the cells on DATABASE sheet have a value the INV sheet started showing 0

 

[Fluff]

You've only changed the column reference in the 1st index, you need to change it in both.

 

[ipbr21054]

That was just a reference so I do t have to supply the code for all of them.

I used the same code but I replaced the T to reflect the DATABASE row so
T U B W etc etc

 

[Fluff]

I'm afraid I haven't got a clue what you mean.

 

[ipbr21054]

What dont you understand ?

What i see now is 0 in each cell on the INV sheet when there is a value in the rows on the DATABASE sheet.
Do you understand the above ?

In cell G16 is the following code.

=IFERROR(IF(INDEX(DATABASE!T:T,$H$13)=0,"",INDEX(DATABASE!T:T,$H$13)),"")

In cell G17 is the following code.

=IFERROR(IF(INDEX(DATABASE!U:U,$H$13)=0,"",INDEX(DATABASE!T:T,$H$13)),"")

In cell G18 is the following code.

=IFERROR(IF(INDEX(DATABASE!V:V,$H$13)=0,"",INDEX(DATABASE!T:T,$H$13)),"")

Do you understand the above ?

This is what i had recently seen on the INV sheet
G14 a value from DATABASE sheet
G15 a value from DATABASE sheet
G16 0
G17 a value from DATABASE sheet
G18 a value from DATABASE sheet

Now with the code you advised its reversed,so its now like this.

G14 0
G15 0
G16 a value from DATABASE sheet
G17 0
G18 0
Do you understand the above ?

 

[Fluff]

I told you what was wrong in post#32
Your index functions are looking at different columns

 

[ipbr21054]

I now got it.
I dont understand all that is written so sometimes a code is much helpfull.

Now sorted many thanks for the help last night & today

 

[Fluff]

You're welcome & thanks for the feedback