Como hago un filtro en vba para seleccionar rangos de fecha

Encontré un código para realizar un filtro, que adapte a mi proyecto. El filtro selecciona completamente las filas que coinciden con el criterio. El criterio es dado por dos combobox fechainicio y fechafin. El filtro es muy rápido encuentra las coincidencias con el criterio y selecciona la fila con Entirerow.select. Todo funciona bien, pero necesito que en lugar de agregar a la seleccion toda la fila, agregue la celda que esté en la columna F.

El proyecto tiene dos combobox: cmbInicio, cmbFin y un boton: Button

El código

Private Sub Button_Click()
    Mes = "Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre"
    If cmbInicio.ListIndex > cmbFin.ListIndex Then aux = cmbInicio.ListIndex: cmbInicio.ListIndex = cmbFin.ListIndex: cmbFin.ListIndex = aux
    Sheets("Datos").Select
    a = cmbInicio.ListIndex + 1: b = cmbFin.ListIndex + 1
    For i = a To b
        criterio = criterio & Split(mes, ",")(i - 1) & ","
    Next i
    criterio = Mid(criterio, 1, Len(criterio) - 1)
    criterio = Split(criterio, ",")
    Range("E:E").AutoFilter field:=1, Criteria1:=criterio, Operator:=xlFilterValues
    Range("E2").Select
    ActiveCell.Offset(1, 0).Select
    If Cells(Columns("E").Rows.Count, "E").End(xlUp).Row > 1 Then
        Range(Selection, Cells(Columns("E").Rows.Count, "E").End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Select
    End If
    Selection.AutoFilter
    Application.ScreenUpdating = True
End Sub

Añade tu respuesta

Haz clic para o