Cargando

Obtener información de los últimos meses con VBA + Excel




Pulsa corazón para recibir avisos de nuevas Respuestas

  AUTOR PREGUNTA

Publicado 30 marzo 2014 - 17:27
Estoy trabajando con VBA y Excel y tengo una tabla con una gran cantidad de información en la hoja de calculo y me preguntaba de qué manera puedo obtener la información de los últimos meses de la misma?
  • ¿Tienes la misma pregunta? Yo también
  • Volver arriba

 

Publicado 31 marzo 2014 - 02:15
Lo ideal sería que tuvieses esos valores en una columna, ahora, teniendo esto podrías realizar un filtro de un filtro con los rangos en los cuales deseas buscar:

Public Sub selectLastMonth()
Dim ws As Worksheet
Dim finicio As Date, ffin As Date
Set ws = ActiveSheet
ws.Range("A:B").Sort key1:=ws.Range("A2"), header:=xlYes
ffin= ws.Range("A1").End(xlDown).Value
finicio = DateSerial(DatePart("yyyy", ffin), DatePart("m", ffin), 1)
ws.Range("A:B").AutoFilter field:=1, Criteria1:=">=" & finicio, Operator:=xlAnd, Criteria2:="<=" & ffin
Set ws = Nothing
End Sub


   AUTOR PREGUNTA

Publicado 31 marzo 2014 - 03:21
Gracias Nieves, eso era lo que necesitaba


X