Boa tarde fazerbem

Acesse o tópico abaixo que é sobre o mesmo assunto:

viewtopic.php?f=10&t=17302
Se foi útil, clique na mãozinha.

[]s

Oi o meu funciona assi:

TextBox13.Value = Sheets("Empresa").Range("F50")
TextBox13.Value = Sheets("Empresa").Range("G50")
TextBox14.Value = Sheets("Empresa").Range("H50")

Ele pega os dados de Empresa, Em empresa F50 por exemplo ja aparece 8%, entao no formulario aparece 0,08 apenas

teria como descrever aqui a linha de codigo ?

preciso tambem pra este que apareça em R$

TextBox5.Value = Sheets(Loja).Range("S16") onde S16 é R$ 50,55 por exemplo .

Andre

Tentou adaptar a solução que o Patropi ofereceu?

Questao 2

Para aparecer o valor em moeda R$ declare uma variavel que recebera o valor em Currency assim sempre que carregar o valor na textbox vai aparecer o R$

consegui nao veja que postei logo abaixo da mensagen dele

Andre

Eis ai

Private Sub UserForm_Initialize()

Dim Loja As String
Loja = Range("B1").Value

TextBox11.Value = Sheets(Loja).Range("M2")
If TextBox11.Value = "Cliente Academia" Then
TextBox12.Value = Sheets("Empresa").Range("F50")
TextBox13.Value = Sheets("Empresa").Range("G50")
TextBox14.Value = Sheets("Empresa").Range("H50")
Else
End If

TextBox11.Value = Sheets(Loja).Range("M2")
If TextBox11.Value = "Professor Academia" Then
Format(Val(TextBox12.Value) / 100, "##%") = Sheets("Empresa").Range("F56")
'TextBox12.SelStart = Len(TextBox12.Value) - 1
TextBox13.Value = Sheets("Empresa").Range("G56")
TextBox14.Value = Sheets("Empresa").Range("H56")
Else

TextBox11.Value = Sheets(Loja).Range("M2")
If TextBox11.Value = "Cliente Estabelecimento" Then
TextBox12.Value = Sheets("Empresa").Range("N50")
TextBox13.Value = Sheets("Empresa").Range("O50")
TextBox14.Value = Sheets("Empresa").Range("P50")
End If
End If

TextBox3.Value = "R$ " & Sheets(Loja).Range("S4")
If Sheets(Loja).Range("S6") > 0 Then
TextBox7.Value = "R$ " & Sheets(Loja).Range("S6")
Else: End If
If Sheets(Loja).Range("S8") > 0 Then
TextBox4.Value = "R$ " & Sheets(Loja).Range("S8")
Else: End If
If Sheets(Loja).Range("S10") > 0 Then
TextBox8.Value = "R$ " & Sheets(Loja).Range("S10")
Else: End If
TextBox6.Value = "R$ " & Sheets(Loja).Range("S12")
TextBox5.Value = "R$ " & Sheets(Loja).Range("S16")
TextBox10.Value = Sheets(Loja).Range("S16")

Cancelar.SetFocus

End Sub

Entao disponibiliza o arquivo

A sim, quero colocar as porcentagem para aparecer nas TextBox 12, 13 e 14

e nas demais que aparecam R$ incuindo os centavos Text Box : 1,2, 3 , 4, 5, 6, 7, 8, 10

A sim, quero colocar as porcentagem para aparecer nas TextBox 12, 13 e 14

e nas demais que aparecam R$ incuindo os centavos Text Box : 1,2, 3 , 4, 5, 6, 7, 8, 10

Kd o arquivo??????