Notifications
Clear all

Concatenar dois valores para virar uma variavel

2 Posts
2 Usuários
0 Reactions
894 Visualizações
(@apolonio)
Posts: 0
New Member
Topic starter
 

Pessoa, boa noite.

Tenho 3 variáveis.

Dim a1 as string
Dim a2 as string
Dim a3 as string

a1 = 10
a2 = 15
a3 = 20

Agora quero usar elas da seguinte maneira.

For k=1 to 3
If activecell.value = a &k then
msgbox "O valor obtido foi: " & a&k.value
end if
next

Ou seja, quero concatenar dois valores (a) com (k), chegando assim no valor (a1 ou a2 ou a3) e usar esse valor como se fosse a variável declarada.

 
Postado : 07/06/2018 4:49 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Apolonio,

Boa noite!

Não sei se entendi bem mas... veja se é assim.

Sub teste()
    For k = 1 To 3
    If ActiveCell.Value = Range("A" & k).Value Then
        MsgBox "O valor obtido foi: " & Range("A" & k).Value & k
    End If
    Next
End Sub
 
Postado : 07/06/2018 5:21 pm