Notifications
Clear all

Concatenar dois valores para virar uma variavel

2 Posts
2 Usuários
0 Reactions
902 Visualizações
(@apolonio)
Posts: 11
Active 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/06/2018 5:21 pm