Auto fill macro for fields below the active field

I need a simple macro to use for conditional autofill of cells below the active cell (to the end of the sheet) with the text that is being entered in the active cell.

DESCRIPTION:
I have two columns of data, the first (call it Col1), has a word number which is unique to each specific word in a foreign language, every cell in this column has a number in it from 1 to 30000. Each number reoccurs many times in cells over the length of this column.

The other column (call it Col2) is blank. As I type words in english in each cell of this column, I need the macro to autofill the text that I have just entered, into every cell in Col2 where it's Col1 number is a match with the Col1 number where I am typing.

For example, in one row, Col1 has the number "21" and I type in Col2 the word "run". I need the macro to find every row where the number 21 is found in Col1 and automatically enter "run" into Col2 at that location.

The macro must only autofill cells which have no data in them. Preferably from that cell down, although if that is not possible, all cells would work seeing we are only replacing blank cells with data.

Thanks for any help in advance.

This if for columns A and B. Change as needed.

Right click the sheet's tab, View > Code, and paste.

Please Login or Register  to view this content.

If you get stuck, post a short example file and I will test it out. There will be a +4 and -4 offset I suspect. Obviously, the rr range has to be set to your column N if that has the numbers.

No. We have been discussing that issue at vbaexpress.com.

What you can do is to run Application.EnableEvents = False, do your F&R, then set it back to True. This can be done by two buttons but the users need to understand the concept. You could add a cell to show the current status of EnableEvents to help the wayward lost.