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