Notifications
Clear all

FORMULA VS FUNÇAO

3 Posts
3 Usuários
0 Reactions
559 Visualizações
(@mandi)
Posts: 1
New Member
Topic starter
 

Fala galera, essa é a primeira vez que uso, ou que me cadastro em um fórum... preciso de ajuda de alguém expert, pois estou concluindo um planilha de gestão financeira onde faço o cadastro dos boletos através do leitor de código de barras. Na planilha, qdo faço a leitura com o leitor, na outra coluna coloquei a fórmula =SEERRO(DATA(1997;10;7)+EXT.TEXTO(B3;34;4);"") para aparecer a data de vencimento e a fórmula =SEERRO((EXT.TEXTO(B3;38;8)&","&EXT.TEXTO(B3;46;2))*1;"") para aparecer o valor. O fato é que inseri um UserForm em vba para fazer esses lançamentos e gostaria de saber como é que faço para inserir essa fórmula no VBA e como faço para que o vencimento e o valor apareçam nas Label3 e Label4 depois de digitar/escanear cód de barras (afterupdate). segue anexo exemplo da minha necessidade. MUITO OBRIGADO A TODOS QUE PUDEREM ME AJUDAR. DEPOIS QUE TERMINAR POSSO ENCAMINHAR O SISTEMA COMPLETO E VERÁS O QUANTO É ÚTIL PARA VÁRIOS SEGUIMENTOS... ELA É BEM TOP (TEM TUDO: PLANO DE CONTAS, CONTAS BANCÁRIAS, CONTAS A PAGAR, A RECEBER, FLUXO DE CAIXA, BALANCETE, DRE, GRÁFICOS, ETC, TUDO AUTOMATIZADO ... O ANEXO É SOMENTE UM EXEMPLO SIMPLES A SER IMPLEMENTADO NA OFICIAL.

 
Postado : 30/10/2014 8:13 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Creio que pode ser assim:

Private Sub TextBox1_AfterUpdate()

On Error GoTo trataerro
Label3 = #10/7/1997# + Mid(TextBox1.Value, 34, 4)
Label4 = Format((Mid(TextBox1.Value, 38, 8) & Mid(TextBox1.Value, 46, 2)) / 100, "R$ 0.00")
Exit Sub

trataerro:
Label3 = ""
Label4 = ""

End Sub

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 30/10/2014 8:37 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Mandi

Seja bem-vindo ao fórum!

Movi teu tópico para VBA & Macros, que é o assunto da tua dúvida, pois aonde vc havia postado, é exclusivo para a apresentação dos novos integrantes do fórum.

Para facilitar a tua localização, por enquanto vou deixar o tópico sendo mostrado nos 2 locais.

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/10/2014 6:19 am