Add a value to a specific cell using a hlookup and match formula

Hi there,

I'm very new to VBA and to the forum but I'm very keen to learn and I know I'm the right place to do so!

With that in mind, I'm having issues writing code to update a specific cell with a value based on selections in a userform.

What I have is a userform with a drop down box to select a person's name from and a date. On my worksheet I have the names of the people in column A and the dates in columns D to M. What I want to happen is when a user selects a persons name, I want it to update the corresponding cell based on the date with the letter "w".

The code I have to find the corresponding cell is:
Application.HLookup(Me.TextDate.Value, Sheets("Availability").Range("D1:M100").Value, Application.Match(Me.cboCandidateNames.Value, Sheets("Availability").Range("A1:A100").Value, 0), 0))

and this works to find the correct cell but I'm not sure what I need to add in to make it change that cell to a "w".

Any help would be much appreciated, thank you in advance!

Thank you for your response Leith,

This nearly works, except the date that it is looking for is always in cells D1:M1 and the cell i want to change to a "w" will be in line with whichever row the candidate name is in, if that makes sense?

That macro works if the date is in every cell in the column but i only want it to look at the date at the top.

I guess what I really need it to do is look for the name in column A and the date in row 1. So if the name is in cell A3 and the date is in cell D1, the cell i need to have a "w" in is cell D3; if name is in cell A21, date in G1, "w" in cell G21 etc etc

I have attached an example of what the table looks like, I hope this is what you meant?