Writing a formula based on a drop down

[Pauljj]

Morning all,

What I am trying to achieve, a user clicks on a drop down on one sheet at which point a formula is written on another range of cells on another sheet

What I wrote (which doesn't error, it just does nothing) is

Private Sub Worksheet_Change(ByVal Target As Range)


Application.EnableEvents = False


Dim x As Variant
Dim y As Variant



On Error Resume Next


If Not Intersect(Target, Me.Range("C2")) Is Nothing Then Sheets("Freight Data").Range("AO2:AO700000").Formula = "=IF(MONTH(T2)=MATCH(BMonth,MONTHS,0),1,0)"

Any thoughts on what I might be missing ?

 

[offthelip]

Are you sure you want to write to 700 thousands rows every time you change a value in C2, it is going to make it very slow!!

 

[Pauljj]

Are you sure you want to write to 700 thousands rows every time you change a value in C2, it is going to make it very slow!!

Unfortunately I have 700k rows of data, I need to change the response based on what month they select, I am aiming to remove the formula once it's been written

 

[Pauljj]

I have worked out a solution so please ignore

 

[smozgur]

I have worked out a solution so please ignore

Glad to hear you got the solution.

Do you mind posting about your solution? Then it is perfectly fine to mark your post as the solution to help future readers.