Double use for one macro

**Bobbyo** · 06-20-2010, 06:38 PM

Hello everyone, first thread here for me.

Here's my problem :
I have a list of about 700 words in English in a table. In a column I got the words in English, and in another one, I have the translation in French. I also created a column on the left of the table in order to use the RECHERCHEV function, so that in another sheet, it takes at random a word. I created a macro that gives me another word just by clicking on it, and when I click again, it gives me another word. What I want to do, is making a macro that would display a word the first time you click on it, and the second time, it will give you the translation. Then when you click a 3rd time on it, it would give you another word, and the translation, and on and on and on.

I hope I made myself understood, since English isn't my native language :p

Thanks in advance to everyone !
Boris

**JBeaucaire** · 06-20-2010, 07:03 PM

Structure your multi-function macro like so:

1) Do a test on the WORD cell to make sure it is empty.
2) If it is empty - run your existing macro to insert a word, exit sub.

3) If it is NOT empty, check the DEFINITION cell to see if it is empty.
4) If it is empty - run your new macro to insert a definition for the word that is in the WORD cell, exit sub

5) If it is NOT empty, clear both the WORD cell and the DEFINITION cell, run your existing macro, exit sub

**Bobbyo** · 06-21-2010, 03:20 AM

Thanks for answering me !

I'm quite getting what you're telling me, but there's one problem :p : I'm a newbie at VBA language, thus what you're telling me is understandable, but undoable :s.
Can you please show me how to do that if you don't mind ?

Thanks a lot !
Boris

**pierre08** · 06-21-2010, 03:44 AM

Hi Bobbyo,
It'll be much easier to give a code if you can join your workbook.

**JBeaucaire** · 06-21-2010, 03:58 AM

Sure, post your workbook with your sample data and existing macro and we'll look it over together.

Click GO ADVANCED and use the paperclip icon to post up a desensitized copy of your workbook.