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

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

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

Obrigado. Excelente   .

Boa tarde!!

Eu fico feliz por ajudar, obrigado pelo retorno!!

Att

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

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

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]

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


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

Bom dia!!!

Precisando, sabe onde nos encontrar!


Att  

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.

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