Passar conteúdo da "MsgBox" apresentada para uma célula

Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por joaoosvaldo em Dom Jun 08, 2014 9:10 am

Boas.

Tenho um ficheiro com macros em que mediante determinadas condições aparece uma "MsgBox". Existem várias "MsgBox" com texto predefinido. Existe alguma forma de passar o texto da "MsgBox", que aparece e de apenas esta, para uma célula? Ou seja, o conteúdo da "MsgBox" que é apresentada passar para um célula, mas apenas o conteúdo desta "MsgBox" que é apresentada. Obrigado.

Cumprimentos,

Osvaldo Sousa

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por alexandrevba em Ter Jun 10, 2014 9:28 am

Bom dia!!

Exemplo.

Código:

Sub MsgBoxIntoCell()
    Dim Text As String

  Text = "Sua mensagem."
  If MsgBox(Text, vbOKCancel) = vbOK Then
    [A1].Value = Text
End If
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por joaoosvaldo em Ter Jun 10, 2014 11:44 am

Obrigado. Excelente  Wink .

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por alexandrevba em Ter Jun 10, 2014 4:43 pm

Boa tarde!!

Eu fico feliz por ajudar, obrigado pelo retorno!!

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por joaoosvaldo em Sex Jun 27, 2014 8:11 pm

É possível no código indicado atrás colocar a aparecer na MsgBox um ponto de informação "i" (vbInformation)?

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por alexandrevba em Sab Jul 19, 2014 8:09 pm

Boa noite!!

Tente
Código:
Sub MsgBoxIntoCell()
    Dim Text As String

  Text = "Sua mensagem."
  If MsgBox(Text, 64, vbOKCancel) = vbOK Then
    [A1].Value = Text
End If
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por joaoosvaldo em Dom Jul 20, 2014 5:22 pm

Mais uma vez muito obrigado pela ajuda. Funcionou mas aparece um número "1" na MsgBox que não queria que aparecesse. Sabe como fazer para não acontecer?

[url=Passar conteúdo da "MsgBox" apresentada para uma célula 4ioryf]Passar conteúdo da "MsgBox" apresentada para uma célula 4ioryf[/url]

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por alexandrevba em Dom Jul 20, 2014 6:09 pm

Boa noite!!

Tente assim...
Código:
Option Explicit

Sub MsgBoxIntoCell()
    Dim Text As String
    Dim strTitulo As String
   
  Text = "Sua mensagem."
  strTitulo = "Meu Titulo"
  If MsgBox(Text, vbOKCancel + vbInformation, strTitulo) = vbOK Then
    [A1].Value = Text
End If
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por joaoosvaldo em Ter Jul 29, 2014 6:47 pm

Agora funcionou na perfeição. Muito obrigado mais uma vez Wink.

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por alexandrevba em Sab Ago 02, 2014 6:59 am

Bom dia!!!

Precisando, sabe onde nos encontrar!


Att Smile 
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por joaoosvaldo em Dom Ago 03, 2014 6:16 pm

Boas.

É possível na "MsgBox" adicionar um botão personalizado, ou seja, além dos botões "Ok" e "Cancel" aparecer mais um botão personalizado com programação específica?

A minha ideia é que este botão personalizado imprimi-se para PDF um documento no qual se inclui a mensagem incluída na "MsgBox". É possível fazer isto? Obrigado.

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por alexandrevba em Dom Ago 03, 2014 6:26 pm

Boa noite!!

neste caso você deveria usar um Userform, onde os labels seria as mensagens e os button's seus botões personalizados!

Até onde eu saiba (2007 até 2010), não há como fazer direto da msgbox!

Isso a não ser que use VB (Visual Basic).
http://msdn.microsoft.com/pt-br/library/2x7h1hfk.aspx
Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Passar conteúdo da "MsgBox" apresentada para uma célula Empty Re: Passar conteúdo da "MsgBox" apresentada para uma célula

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum