Bom dia,

Tenho esse código abaixo como tenho 72 combobox em 9 paginas no formulário, gostaria de fazer com que eu troque somente as variaveis dos VR´s em vez de ficar trocando todos os nomes dos textbox no código.

Exemplo: No código o textbox " t_calculo_5valor1" (VR2) recebe o valor da formula.
Atual: t_calculo_5valor1 = Format(CDbl(Sheets("codigo_set16").Cells(Found.Row, trf).Value) * (Me.t_calculo_5format1.value), "#,##0.00")
Como queria: vr2 = Format(CDbl(Sheets("codigo_set16").Cells(Found.Row, trf).Value) * (vr1), "#,##0.00")

Dim Found As Range
Dim str As String
Dim vr1, vr3, vr4, vr5, vr6 As String
Dim vr2 As Long
Dim trf As Long

vr1 = Me.t_calculo_5format1
vr2 = t_calculo_5valor1
vr3 = Me.t_calculo_5nvalor1.Value
vr4 = Me.t_calculo_5total1.Value
vr5 = Me.t_calculo_5qtd1.Value
'vr6
str = Me.c_calculo_5cod1.Value

If Me.c_orc_tabela = "2016" Then
    trf = "12"
    Else
    trf = "23"
    End If

Set Found = Sheets("codigo_set16").Range("a:a").Find([str], LookAt:=xlWhole)
    If vr1 > "0,1" Then
    [b][size=150]vr2[/size][/b] = Format(CDbl(Sheets("codigo_set16").Cells(Found.Row, trf).Value) * [b][size=150](vr1)[/size][/b], "#,##0.00")
    Else
    t_calculo_5valor1 = Format(CDbl(Sheets("codigo_set16").Cells(Found.Row, trf).Value), "#,##0.00")
    End If

    On Error Resume Next
    If Me.t_calculo_5nvalor1 <> "" Then
    Me.t_calculo_5total1.Value = Format(CDbl(Me.t_calculo_5nvalor1.Value) * CDbl(Me.t_calculo_5qtd1.Value), "#,##0.00")
    ElseIf Me.t_calculo_5nvalor1 = "" Then
    Me.t_calculo_5total1.Value = Format(CDbl(Me.t_calculo_5valor1.Value) * CDbl(Me.t_calculo_5qtd1.Value), "#,##0.00")
    End If

Muito obrigado,

Daniel