Having a variable stored based on date location

[Streetsweeper]

Currently the code is,

Sheets(“Sheet1”).Range(“b18”) = x

The answer to x is stored in b18

Id like to instead. Have x stored in row18 but in a column with today’s date.

If today’s date is May7 which is in cell J5, I would like x to save to J18. If the date was May8 then save to K18.
I’m also trying to focus on today’s date and highlight the column. But that might have to be another post after I get this going.
cheers

 

[maabadi]

Welcome to MrExcel Message Board.
Please Define What is Range of Date inputted at your sheet. For Example : B5 to Z5
or Upload example image or file with XL2BB ADDIN (Preferable) oR At free hosting site e.g. www.dropbox.com, GoogleDrive , .... And Insert link here.

 

[Streetsweeper]

Welcome to MrExcel Message Board.
Please Define What is Range of Date inputted at your sheet. For Example : B5 to Z5
or Upload example image or file with XL2BB ADDIN (Preferable) oR At free hosting site e.g. www.dropbox.com, GoogleDrive , .... And Insert link here.

B4 to AG4 has the dates

 

[maabadi]

Try this. Change "x" with the values you want:

Dim j As Long
For j = 2 To 33
If Sheets("Sheet1").Cells(4, j).Value = Date Then Sheets("Sheet1").Cells(18, j).Value = "x"
Next j