Macro Aniversariantes do Mês

2024 - VBA & Macros

Post Recente por willianrc 8 anos atrás

6 Posts

2 Usuários

0 Reactions

1,685 Visualizações

RSS

willianrc

(@willianrc)

Posts: 0

Trusted Member

Topic starter

Olá amigos,

Alguem conhece alguma macro para listar os aniversariantes do mês? Pode exibir no Msgbox ou em algum formulário, sem fórmulas por favor. sem formatação condicional também
Exemplo:
A B C D
1NOME DATANASC
2joao 01/05/2000
3maria 25/05/1900
4josé 01/06/1980

NO CASO teria que exibir no MSGBOX ou no FORMULARIO só o nome do joao e da maria e a data de nascimento.

Obrigado.

Postado : 30/05/2017 3:13 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

willianrc,

Boa noite!

Você pode usar esse código:

Sub Teste()
     Dim  i As Long
     Dim UltimaLinha as Long
     Dim Texto As String 
     UltimaLinha = Sheets ("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row 
     For i = 2 To UltimaLinha
          If Month(CDate(Range("B" & i).Value)) = Month(Date) 
               Texto = Texto & Range("A" & i).Value & " - " & Range("B" & i).Value
          EndIf
     Next 
     Magbox Texto
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 30/05/2017 5:54 pm

willianrc

(@willianrc)

Posts: 0

Trusted Member

Topic starter

Muito obrigado wagner

Postado : 30/05/2017 9:06 pm

willianrc

(@willianrc)

Posts: 0

Trusted Member

Topic starter

Caso eu queira colocar em um ListBox como eu faria ?

Postado : 30/05/2017 9:18 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

willianrc,

Bom dia!

Sim. Faça assim.

Aniversariantes do Mes.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 31/05/2017 7:25 am