smart timetable - find cell and insert 'value'

[desmond_]

dear experts,

i was thinking about an automatized timetable which could look like this
i insert the month/year in the first column and the related cell will be entered with whatever value 'x'

[TABLE="width: 500"]
<tbody>[TR]
[TD]insert month here[/TD]
[TD]01[/TD]
[TD]02[/TD]
[TD]03[/TD]
[TD]04[/TD]
[TD]05[/TD]
[TD]06[/TD]
[TD]07[/TD]
[TD]08[/TD]
[TD]09[/TD]
[TD]10[/TD]
[TD]11[/TD]
[TD]12[/TD]
[/TR]
[TR]
[TD="align: center"]01[/TD]
[TD]'x'[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: center"]08[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]'x'[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

since INDEX(MATCH) is somehow the reversed function i guess this should be possible.
i just have no idea how to write the vba code.

do you have some help/suggestions

thanks in advance !

 

[Fluff]

Assuming that your header is row 1 & Month is col A, try

Private Sub Worksheet_Change(ByVal Target As Range)
   
   Dim Fnd As Range
   If Target.CountLarge > 1 Then Exit Sub
   If Not Target.Column = 1 Then Exit Sub
Application.EnableEvents = False
   Set Fnd = Rows(6).Find(Target.Value, , xlValues, xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then Target.Offset(, Fnd.Column - 1) = "X"
Application.EnableEvents = True
End Sub

 

[desmond_]

works well.
just changed Rows(6) to Rows(1) and it works


Thanks !

 

[Fluff]

Glad to help & thanks for the feedback.