Este fórum está sendo desativado

[WLOPES]

- Olá a todos.
Como exibir uma seleção de células tipo A1:D5 em uma MSGBOX?
Abs.

[alexandrevba]

Bom dia!!


Seria isso?

Código: Selecionar todos

Sub DisplayValue()
    Dim rCell As Range, MsgBoxString As String
     
    For Each rCell In Selection.Cells
        MsgBoxString = MsgBoxString & rCell.Address & " = " & rCell.Value & vbNewLine
    Next rCell
     
    MsgBox MsgBoxString
     
End Sub

Selecione o intervalo que deseja e rode a macro.

Att

[WLOPES]

- Amigo Alexandre boa noite.
Desculpe a demora em responder pois estou me recuperando de uma virose braba...
Como sempre você é 100000...funcionou, é isso.
Tem como mostrar o resultado das células selecionadas uma ao lado da outra por linha?
Exemplo: seleção G4,H4,I4 ; G5,H5,I5 ; G6, H6,I6. Mostrar G4H4I4 em uma linha, G5H5I5 em outra linha e assim por diante.
Abs.

[alexandrevba]

Boa tarde!!

Se eu entendi....
Use essa linha

Código: Selecionar todos

 MsgBoxString = MsgBoxString & ", " & rCell.Address & " = " & rCell.Value

Att

[WLOPES]

- Obrigado pela resposta.
É quase isso. O que eu quero é que apareça as celulas selecionadas por linha. Exemplo, na planilha estão selecionadas as celulas G, H, I da linha 6, células G, H, I da linha 7, celulas G, H, I da linha 8. Na MSGBOX apareceria GHI da linha 6 pular uma linha, GHI da linha 7, pular uma linha, GHI da linha 8.
Espero ter conseguido me explicar.
Abs.