Exibir conteúdo da celula selecionada

2024 - VBA & Macros

Post Recente por luizhcosta 9 anos atrás

5 Posts

2 Usuários

0 Reactions

739 Visualizações

RSS

luizhcosta

(@luizhcosta)

Posts: 420

Honorable Member

Topic starter

Boa tarde a todos...

tenho uma pequena dúvida com relação ao código abaixo e peço a ajuda de todos. No código é expecificada a coluna a ter op conteúdo da célula exibido em uma caixa de texto. Funciona perfeitamente, mas surgiu a necessidade de expecificar uma determinada célula ao invés da coluna. Como fazer para exibir o conteúdo da célula a ser informada no código ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Const cCOLUNA As Integer = 1

    If ActiveCell.Column = cCOLUNA And Len(Trim(ActiveCell)) > 0 Then MsgBox ActiveCell.Value, vbInformation, "Texto expandido"
    
End Sub

Postado : 14/09/2015 11:08 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Eu não entendi sua dúvida, o código proposto, ao selecionar uma célula da coluna 1, mostra na msgbox o conteúdo da célula, por ventura não seria isso que você quer?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/09/2015 8:09 am

luizhcosta

(@luizhcosta)

Posts: 420

Honorable Member

Topic starter

Olá,

Da forma que está funciona perfeitamente. Defini-se o número da coluna e é exibido o texto da célula ativa da coluna definida. O que preciso é definir a célula e não a coluna. Caso o número da coluna seja 3, então qauqlquer célula ativa da coluna C terá o texto exibido, o que preciso é informar qual célula quero exibir se esta estiver ativa ou for ativada.

Postado : 15/09/2015 1:44 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

luiz, você já antigo usuário do forum, e deve conhecer as regras e evitar de titulos com a descrição que colocou "Ajuda com código", peço a gentileza de não utilizar mais este termo :
viewtopic.php?f=7&t=203
• TÍTULOS
Seja criativo na criação do título para um novo tópico, se imagine criando um título para uma notícia de um
jornal onde se lê o título já tendo uma ideia do que se trata o tópico, evite palavras vagas e não use termos como:
Urgente, Help, Ajuda, Por Favor, etc...

Quanto a sua questão, veja se é isto :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    'Só executa se for selecionada a celula A2
    If Target.Address = "$A$2" Then
        MsgBox ActiveCell.Value, vbInformation, "Texto expandido"
    End If
    
End Sub

Grato pela compreensão.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/09/2015 6:19 pm