Ciao Armando
premesso che è sempre meglio allegare un file, se le date sono da A2 in basso e le frequenze sono in C2 puoi provare la seguente macro (da inserire nel modulo dell'evento Worksheet_Change
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cod As Integer, uR As Long, i As Long, ele As String, da As String
Application.EnableEvents = False
uR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
da = Target.Address
Range("B2:B" & uR).ClearContents
Range(da) = "X"
cod = Range("C2").Value: If cod = 0 Then Exit Sub
ele = "B2:B" & uR
If Not Intersect(Target, Range(ele, "C2")) Is Nothing Then
For i = Target.Row To uR Step cod
Cells(i, 2) = "X"
Next i
End If
Application.EnableEvents = True
End Sub
Prova e fai sapere. Ciao,
Mario