[email protected]

se tiver Option Explicit na primeira linha do seu módulo, remova !

Vou adaptar este código a uma necessidade minha!

Abraço galera!

Primeiramente, obrigado Edson, funcionou, abaixo estou postando o código que resolve o problemas:

'inicializando a planilha
Private Sub Workbook_Open()
With Application
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
.CommandBars(1).Enabled = False
End With

Sheets("menu").Select

On Error Resume Next
Dim strNome As String
Dim lngTotalLinhas As Long
Dim x As Long

Call Aniversariantes

UserForm1.Show
End Sub

e no módulo...

Sub Aniversariantes()

ilin = 2
elin = Sheets("bd").Range("A65536").End(xlUp).Row
'o nome do cliente encontra-se na coluna A da plan "bd"

m = Month(Now)
d = Day(Now)

'a data de nascimento encontra-se na 8ª coluna da plan "bd"
Do While ilin <= elin
If (d & m) <> (Day(Sheets("bd").Cells(ilin, 8)) & Month(Sheets("bd").Cells(ilin, 8))) Then
ilin = ilin + 1
Else
nome = Sheets("bd").Cells(ilin, 1)
MsgBox ("Não se esqueça dos Parabéns para " & nome & "!!!")
ilin = ilin + 1
End If
Loop

End Sub

OK!

Amigos, surge uma nova idéia para melhoramento desta macro...

Agora qdo a Msgbox avisa que tem aniversariante, ao invés de clicar no "OK"...aparecesse "deseja enviar e-mail ?" ()sim ()não

se "sim", abrir uma tela para enviar e-mail, pode ser uma plan já pronta com as felicitações e o devido nome do cliente, ou se for muito dificil, apenas a tela do outlook já com o e-mail do cliente que está no cadastro (plan "bd" o e-mail do cliente está na 7ª coluna: G).

se "não", apenas abrir o userform1

Será que dificultei muito ?

Obs: A propósito, qdo vou cadastrar o email do cliente, ele está em formato de texto, mas gostaria que ele cadastrasse como link que pode ser clicado...ex: [email protected]

Boa noite,

Utilizei o código disponibilizado, porém, ao iniciar a planilha dá erro em:

If (d & m) <> (Day(Sheets("Alunos").Cells(ilin, 6)) & Month(Sheets("Alunos").Cells(ilin, 6))) Then

Poderiam me ajudar ?

Por favor cole aqui todo seu código *(ou um modelo do seu arquivo, com o código)...
E qual erra aparece...

Assim conseguiremos ajudar vc...