Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
Cristiano_trab

Executar macro com resultado de uma função

2 posts neste tópico

Bom dia Pessoal

Sou novo no forum, e estou aprendendo a trabalhar com macros... Minha dúvida é a seguinte:

Como faço para executar uma macro com o resultado de uma função SE por exemplo.

Tentei algumas coisas e quase deu certo, mas não totalmente o que fiz foi o seguinte:

Public Function FCNX()

Call TesteVbMsgBoxResult

End Function

E depois.....

Public Sub TesteVbMsgBoxResult()

Dim resultado As VbMsgBoxResult

resultado = MsgBox("Tem certeza que deseja prosseguir com esta ação?", vbYesNo, "Tomando uma decisão")

If resultado = vbYes Then

MsgBox "Você acaba de confirmar a ação"

Else

MsgBox "Você acaba de recusar a ação"

End If

If resultado = vbYes Then

Range("a1") = "Funcionou !!!"

End If

Range("A3").Select

End Sub

A minha idéia é de que quando o valor da célula B2 por exemplo for igual a 1 ele aciona a macro, e com isso aparece a primeira MsgBox, informado se a informação está correta ou não, clicando em sim, aparece a segunda MsgBox dizendo o que tenho que fazer.... um exemplo seria "favor informar o dados completos". e clicando em OK, vai me direcionar para a célula onde tenho que digitar os dados.

Espero ter explicado corretamente, fico no aguardo de alguém que possa me ajudar.....

Valeu.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia e seja bem vindo ao Fórum , Cristiano !

1 - Clique com o Direito do Mouse sobre a Aba
Plan1
>>
Exibir Código...

2 - Copie o Código Abaixo e Cole-o na Janela em Branco

3 - Retorne para a
Plan1
digite em
B2
1
e Veja o Resultado em
A1

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Sub Teste()

resultado = MsgBox("Tem certeza que deseja prosseguir com esta ação?", vbYesNo, "Tomando uma decisão")

If resultado = vbYes Then

MsgBox "Você acaba de confirmar a ação"
'ou "favor informar o dados completos"

Range("a1") = "Funcionou !!!"

Else

MsgBox "Você acaba de recusar a ação"

End If

Range("A3").Select 'Direcionada para Célula A3

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row = 2 And Range("B2") = 1 Then

Call Teste

End If

End Sub

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Espero Ter Sido Útil .

Aguardo Resposta , Vlw !?


 

 

 

Disponibilizando Arquivo no Fórum - Regras do Fórum - Diga se a Dica Funcionou , POR FAVOR ! - Sites que oferecem apostilas gratuitamente

ccclxvii - A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.