[dtm]

Hi

I'm trying to design a little receipt for my part time hobby/business and would like to have a sequential receipt number thats automatically updated in the receipt number cell (currently G1).

Also I have a macro that clears the filled boxes by copying blank cells on top of them and thus wiping them, is there anyway I could use this macro to wipe the receipt but also update the receipt number?

Hopefully that makes some kind of sense!

Thanks in advance for any help

Dan

 

[bomb #21]

No need to do the copying blank cells thing, nor get too complicated if it's just a small personal project. Something as follows should suffice:

Sub ClearReceipt()
Range("B2", "B4").ClearContents
Range("G1") = Range("G1") + 1
End Sub

 

[dtm]

Thanks for that I'll give that a go tomorrow when I'm having a play around with it.

Dan