Este fórum está sendo desativado

[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.

[alexandrevba]

Boa tarde!!

Use assim:

Código: Selecionar todos

Private 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

[gfranco]

Boa tarde.
Veja se é isso que deseja.
Ajustei as células de lançamento do userform.

[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?

[wesleyribeiro123]

Pasedo
Bom dia,

Veja se é desta forma que você deseja...
Fiz alguns poucos ajustes.

[pasedo]

wesleyribeiro123, boa tarde, perfeito. Era isto mesmo, muito obrigado.