Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por pasedo
Posts Avatar
#28378
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.
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por alexandrevba
Avatar
#28379
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
Avatar do usuário
Por gfranco
Avatar
#28380
Boa tarde.
Veja se é isso que deseja.
Ajustei as células de lançamento do userform.
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por pasedo
Posts Avatar
#28413
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?
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por wesleyribeiro123
Posts Avatar
#28494
Pasedo
Bom dia,

Veja se é desta forma que você deseja...
Fiz alguns poucos ajustes.
Você não está autorizado a ver ou baixar esse anexo.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord