Página 1 de 1
Cadastro em VBA e formulas.
Enviado: 23 Nov 2017 às 16:21
por pasedo
Ola, boa tarde, peguei esta planilha em um forum e achei ela interessante, mas eu gostaria de efetuar o cadastro nas partes de titulos de cor verde pelo formulario em vba, mas não estou conseguindo, se eu efetuar direto na planilha as formulas funcionam certinho, mas pelo Useform1 não da certo as formulas e o cadastro não sai da linha 4. Podem me ajudar ? Grato
OBS: Onde tem a Data Corrigida e Mês Vencimento Última Parcela tem Formulas.
Re: Cadastro em VBA e formulas.
Enviado: 23 Nov 2017 às 16:40
por alexandrevba
Boa tarde!!
Use assim:
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim ws As Worksheet
Dim LastMasterRow As Long
Set ws = ActiveWorkbook.Worksheets("CARTAO CREDITO")
With ws
LastMasterRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(LastMasterRow, 2).Value = TextBox1.Value
.Cells(LastMasterRow, 3).Value = TextBox2.Value
.Cells(LastMasterRow, 4).Value = TextBox3.Value
.Cells(LastMasterRow, 5).Value = TextBox4.Value
'.Cells(LastMasterRow, 6).Value = TextBox5.Value
'.Cells(LastMasterRow, 7).Value = TextBox6.Value
End With
MsgBox "Dados adicionado", vbInformation, "Menssagem"
Set ws = Nothing
End Sub
Att
Re: Cadastro em VBA e formulas.
Enviado: 23 Nov 2017 às 16:51
por gfranco
Boa tarde.
Veja se é isso que deseja.
Ajustei as células de lançamento do userform.
Cadastro em VBA e formulas.
Enviado: 24 Nov 2017 às 09:40
por pasedo
Ola, bom dia,muito obrigado por me ajudarem , olhem tive que fazer umas adaptações pra dar certo, agora o problema é nas formulas que vai de junho 2018 até dezembro de 2018, e no textbox do Valor tenho que digitar "ponto" em vez de" virgula" pra dar certo ao cadastrar na planilha e aparecer em reais no caso das formulas se coloco numero de prestações acima de 20 parcelas ou 7 dependendo da data que eu estiver colocando não faz o calculo na planilha neste meses que falei , por favor podem ver isto tambem?
Re: Cadastro em VBA e formulas.
Enviado: 30 Nov 2017 às 09:49
por wesleyribeiro123
Pasedo
Bom dia,
Veja se é desta forma que você deseja...
Fiz alguns poucos ajustes.
Cadastro em VBA e formulas.
Enviado: 30 Nov 2017 às 12:01
por pasedo
wesleyribeiro123, boa tarde, perfeito. Era isto mesmo, muito obrigado.