Gostaria de ajuda para elaborar uma função para pesquisar os vencimentos da semana atual e da próxima semana, pois ainda não consegui fazer...fiz apenas uma rotina que traz os vencimentos do dia quando clicar no botão hoje, conforme abaixo:
Código: Selecionar todos
Private Sub CarregaVencimentos()
Dim lastRow As Long
Dim i As Integer
lbVencimento.Clear
With lbVencimento
'define nº colunas
.ColumnCount = 3
End With
' Verifica qual a ultima linha preenchida
lastRow = Planilha3.Range("A65000").End(xlUp).Row
'adiciona dados
For i = 2 To lastRow
If Day(Planilha3.Range("S" & i).Value) = Day(Date) And Month(Planilha3.Range("S" & i).Value) = Month(Date) Then
Me.lbVencimento.AddItem Planilha3.Range("A" & i)
Me.lbVencimento.List(Me.lbVencimento.ListCount - 1, 1) = Planilha3.Range("F" & i)
Me.lbVencimento.List(Me.lbVencimento.ListCount - 1, 2) = Planilha3.Range("S" & i)
End If
Next
End Sub
Obrigado!