¿Cómo automatizar este código de fechas?

[ColdGeorge]

Buenos días
Estoy ocupado en un registro de visitas, en la hoja "registro" B2 se muestra la fecha del día. En B4:B15 se enlistan los meses. En C4:C15 se suman las visitas al archivo conforme al mes. ¿Cómo puedo hacer que al cambiar el mes y el número del mes sea diferente las visitas vayan al lugar correspondiente? Gracias de antemano por su ayuda.

Private Sub Workbook_Open()
Dim numfechados As Integer
Worksheets("registro").Range("B2").Value = Date
numfechados = Month(Worksheets("registro").Range("B2").Value)
If numfechados = 6 Then 'cambiar número al cambiar el mes
    Worksheets("registro").Range("C9").Value = Worksheets("registro").Range("C9").Value + 1 'cambiar rango según el mes
End If
End Sub

ColdGeorge

 

[DanteAmor]

Hola.
Prueba lo siguiente:

Private Sub Workbook_Open()
  Dim num As Integer
  With Sheets("registro")
    .Range("B2").Value = Date
    num = Month(Date)
    .Range("C" & num + 3).Value = .Range("C" & num + 3).Value + 1
  End With
End Sub

 

[ColdGeorge]

Hola Dante

Tu código no funcionó en absoluto, hice pruebas y ninguna dio los resultados que busco. Agradezco tu intención de ayudar, sin embargo, opté por el uso de Select Case. Y los resultados son buenos. Saludos a tu tierra.

ColdGeorge

 

[DanteAmor]

Tienes que poner el código en los eventos del libro.
Cada que abras el libro, se ejecuta la macro.
También debes tener una hoja llamada "registro"
Incluso puedes ejecutar la macro sin cerrar-abrir el libro.

Y por supuesto, no debes modificar la macro.

Si no te funciona, sería bueno que compartieras tu macro con todos.