Msgbox ao iniciar sistema

2024 - VBA & Macros

Post Recente por Rilton 12 anos atrás

4 Posts

2 Usuários

0 Reactions

940 Visualizações

RSS

Rilton

(@rilton)

Posts: 232

Estimable Member

Topic starter

Boa tarde,

estou criando uma planilha de programação, e queria saber se tem como fazer com que ao iniciar a planilha a mesma me dá um alerta com uma msgbox dizendo quais programações existe para a data atual. Por exemplo, no meu banco de dados eu tenho umas programações para a data de hoje 09/10/2012, ao iniciar a planilha nesta data, a mesma me notifica as programações existentes no meu banco de dados que serão realizadas hoje. caso deixei algo sem exclarecimento, podem me perguntar.
segue em anexo a planilha.

Postado : 09/10/2012 2:00 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Seria .....

Private Sub Workbook_Open()
    Dim cell As Range
    Dim rng As Range
    Set rng = Range("B1:B100")
    Dim strAddresses As String

    For Each cell In rng
        If cell.Value = Date Then strAddresses = strAddresses & cell.Offset(, -1) & vbNewLine
    Next cell
    MsgBox strAddresses, vbInformation
End Sub

Considerando os dados abaixo, é adaptar

Tipo Data
Programa1 9/10/2012
Programa2 10/10/2012
Programa3 11/10/2012
Programa4 9/10/2012
Programa5 19/10/2012
Programa6 9/10/2012

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/10/2012 4:53 pm

Rilton

(@rilton)

Posts: 232

Estimable Member

Topic starter

alexandrevba , boa noite

Neste caso o banco de dados deveria estar na planilha do excel, porém meu banco está no access, sendo assim o código acima seria diferente, ou não? Queria encontrar um jeito de conectar ao banco de dados e encontrar na coluna de data inicial as programações do dia vigente, e ao iniciar o sistema a planilha me exibiria a seguinte mensagem:" existem 2 atividades programadas para hoje."

Postado : 09/10/2012 9:09 pm