Monitoring Sheet for change in cell

[Lasse Moe]

Hi,

I really need help with a big problem:

If the user enters a numeric value in Range ("B" & Rows.Count).End(xlUp).Offset(1), I need the code to copy the formulas in Range ("A12,C12:V12") to Offset row
If there is no user entry in Range ("B" & Rows.Count).End(xlUp).Offset(1) then nothing should happen.

This should be monitored in sheet at all times.

I`ve done som research and think the code must be entered as a Private Sub Worksheet_SelectionChange(ByVal Target As Range) sub?

Is this possibly?

[ragulduy]

Yes, you need to put something like:

Please Login or Register  to view this content.

in the worksheet object module

[:) Sixthsense :)]

Copy the below code and do right click on sheet tab and select view code and paste it.

Close the VBA window (Alt+Q to close VBA window) and return to that sheet and check.

Please Login or Register  to view this content.

[Lasse Moe]

Thank`s Sixthsense. Possible to filldown formulas only?

[Lasse Moe]

Thank' s ragulduy. I get a Compile error "Sub of Function not defined", and IsNumber is outlined. You know why?

[:) Sixthsense :)]

Replace the previous code with the below one

Please Login or Register  to view this content.

[:) Sixthsense :)]

"Sub of Function not defined", and IsNumber is outlined. You know why?

Change it to IsNumeric

[ragulduy]

Try:

Please Login or Register  to view this content.

[:) Sixthsense :)]

Hi ragulduy,

Me too thought to code it in that way but .Formula includes the constant, I think

[Lasse Moe]

Thank's again Sixthsense. Problem now is that the code deletes data entry in column B (probably because of "If r.HasFormula = False Then r.ClearContents"). If you can fix this I' ll be very happy

[:) Sixthsense :)]

code deletes data entry in column B

No it can't delete column B data since it is not defined in rMyRng range

[Lasse Moe]

I understand. If I enter the word "Test14" in cell B14 and press enter, cell B14 is cleared. However, the formulas are filled down correctly.

It's probably me who's doing something wrong, but I just don't know what it is.

[:) Sixthsense :)]

Oopss... it's not you, it's me and my method of coding lol

Replace this line

Please Login or Register  to view this content.

With

Please Login or Register  to view this content.

[Lasse Moe]

I've testet your code and it now works, but only for the first row. Everything is OK if I enter "Test14" in cell B14, but when I enter "Test15" in cell B15 the formulas are not copied down.

Do you know why?