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

Ir em baixo

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

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
avatar
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

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

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
avatar
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

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

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
avatar
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

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=][/url]

joaoosvaldo
Iniciante
Iniciante

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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
avatar
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

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

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 
avatar
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

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

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
avatar
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

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

- Tópicos similares

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