AVISO DEPOIS DE DETERMINADO NUMERO DE GUIAS

PABLOMOREIRAGV 02/08/2010 08:35:24
#349109
Caros Colegas,

Tem como colocar uma mesagem de aviso em uma planilha que abrirá depois de determinado número de quias?
JAMESBOND007 02/08/2010 10:24:42
#349123
Veja isto como exemplo e implemente em sua aplicação: Claro se te ajudar!
Dim J As Integer

Private Sub Codaut()
If tabelas.State = adStateOpen Then tabelas.Close
            tabelas.Open [Ô]cliente[Ô], conectiva, adOpenKeyset, adLockOptimistic
            If tabelas.BOF = True Or tabelas.EOF = True Then
            mskCodigo = 10
            Else
            If tabelas.State = adStateOpen Then tabelas.Close
            tabelas.Open [Ô]select max(GUIAS)as J from cliente[Ô]
            mskCodigo = tabelas!J + 1
            End If
if mskCodigo = [Ô]1000[Ô] then
msgbox[Ô]1000 Registros no banco de dados[Ô]
end if
End Sub

ponha isso no formload
Call Codaut
PABLOMOREIRAGV 02/08/2010 10:45:06
#349125
JAMESBOND007,

Só lembrando, este código é para colocar em uma planilha. Tentei adaptar o código para o evento auto open da pasta de trabalho, mas não conegui. Tem como me informar como adaptar para o auto open da pasta de trabalho?

Obrigado
PABLOMOREIRAGV 09/08/2010 08:10:44
#349761
E aí gente! Queria saber se algum jeito de assim que a pessoa abrir a planilha aparecer uma mensagem de aviso por exemplo: [Ô]ESTE DOCUMENTO CONTéM ...... GUIAS.[Ô]

OBRIGADO
ENGALEXANDRE 09/08/2010 12:09:23
#349788 Resposta escolhida
O código abaixo deve ser colocado no evento [Ô]Workbook_Open()[Ô]. Assim, ao abrir a pasta de trabalho será apresentada a mensagem que você quer. No editor de VBA clique com o botão direito em [Ô]EstaPasta_de_Trabalho[Ô], escolha a opção [Ô]Exibir código[Ô] e cole o código abaixo. Conforme você aumenta ou diminui o número de planilhas o contador registra essa mudança.

[txt-color=#0000f0]Private Sub[/txt-color] Workbook_Open()

MsgBox [Ô]Esta pasta tem [Ô] & Worksheets.Count & [Ô] Planilha(s).[Ô], vbOKOnly, [Ô]Atenção![Ô]

[txt-color=#0000f0]End Sub[/txt-color]


Boa sorte!

Alexandre
PABLOMOREIRAGV 09/08/2010 14:44:11
#349814
Muito bom cara!!! Mas se não for pedir muito, tem como esta mensagem aparecer só depois de uma determinada quantidade de planilhas?
JONATHANSTECKER 09/08/2010 15:02:51
#349818
Citação:

:
Muito bom cara!!! Mas se não for pedir muito, tem como esta mensagem aparecer só depois de uma determinada quantidade de planilhas?



é só colocar uma condição...

Private Sub Workbook_Open()

If Worksheets.Count > 10
MsgBox [Ô]Esta pasta tem [Ô] & Worksheets.Count & [Ô] Planilha(s).[Ô], vbOKOnly, [Ô]Atenção![Ô]
End if

End Sub


Obs. Os créditos são do [txt-color=#0000f0]ENGALEXANDRE[/txt-color]
PABLOMOREIRAGV 09/08/2010 15:15:35
#349822
Está dando erro de sintaxe.
JONATHANSTECKER 09/08/2010 15:19:55
#349823
Faltou [Ô]Then[Ô]

If Worksheets.Count > 10 [txt-color=#e80000]Then[/txt-color]
MsgBox [Ô]Esta pasta tem [Ô] & Worksheets.Count & [Ô] Planilha(s).[Ô], vbOKOnly, [Ô]Atenção![Ô]
End If
ENGALEXANDRE 09/08/2010 17:14:03
#349838
Olá PABLOMOREIRAGV

Faça como disse o JONATHANSTECKER, coloque uma condição, indicando que a mensagem apareça a partir de uma determinada quantidade de planilhas.

O código completo fica:

[txt-color=#0000f0]Private Sub[/txt-color] Workbook_Open()

If Worksheets.Count > 3 Then

MsgBox [Ô]Esta pasta tem [Ô] & Worksheets.Count & [Ô] Planilha(s).[Ô], vbOKOnly, [Ô]Atenção![Ô]

End If

[txt-color=#0000f0]End Sub[/txt-color]

Utilizei o número 3, ou seja, quando eu tiver mais de 3 planilhas na pasta (4, 5, ...) a mensagem será exibida quando eu abrir a pasta de trabalho, caso contrário não aparecerá nenhuma mensagem.

Um abraço,

Alexandre
PABLOMOREIRAGV 09/08/2010 17:36:45
#349840
ENGALEXANDRE,

Cara muito obrigado pela força aí. E agradeço também ao pessoal que complementou o post. Resolveu meu problema.

Obrigado!!!
Tópico encerrado , respostas não são mais permitidas
Voltar