Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Listbox com vencimentos do dia e da semana. [Resolvido]

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Avatar do usuário
neemias_nps
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Dez 22, 2016 3:54 pm

Listbox com vencimentos do dia e da semana. [Resolvido]

Mensagem por neemias_nps »

Olá, boa tarde!

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
Caso alguém tem algo parecido, ajudaria bastante.
Obrigado!
Editado pela última vez por neemias_nps em Qua Jan 11, 2017 7:54 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Listbox com vencimentos do dia e da semana.

Mensagem por Reinaldo »

Código: Selecionar todos

Private Sub CarregaVencimentos()
Dim lastRow As Long
Dim i As Integer
Dim dtIni As Date, dtFim As Date
'Determina a segunda-feira da semana corrente
dtIni = Date - Weekday(Date, vbMonday) + 1
'Determina a sextaf-feira da semana seguinte
dtFim = dtIni + 12
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
'Supondo que coluna S seja data
If Planilha3.Range("S" & i).Value >= dtIni And Planilha3.Range("S" & i).Value <= dtFim Then
'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


Avatar do usuário
neemias_nps
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Dez 22, 2016 3:54 pm

Re: Listbox com vencimentos do dia e da semana. [Resolvido]

Mensagem por neemias_nps »

Reinaldo! bom dia!

Muito obrigado. Funcionou!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder