Este fórum está sendo desativado

[DennerSantos]

ola galera tudo bem? eu fiz uma planilha para agilizar o meu trabalho, seria uma planilha para controle de compras e fui acertando alguns pontos com ajuda de alguns fóruns inclusive muita coisa aprendi aqui e precisava de ajuda de voces por favor... quando faço o cadastro no formulario e clico no botao para inserir ele leva alguns segundo nao sei se é normal ou foi pq é tanto remendo de codigo que fico assim ai gostaria de uma avaliação de vocês se possível... a planilha esta em anexo

Planilha de Ajustes.xlsm

[AfonsoMira]

Boas experimente alterar o código do botão cadastrar para este:

Código: Selecionar todos

'Desativar atualização de ecrã
Application.ScreenUpdating = False

'Ativar a primeira planilha
ThisWorkbook.Worksheets("Vencimentos").Activate

'Procurar a primeira linha vazia
ultimaLinha = ThisWorkbook.Worksheets("Vencimentos").Cells(Rows.Count, 1).End(xlUp).Row
ultimaLinha = ultimaLinha + 1

'Carregar os dados digitados nas caixas de texto para a planilha
With ThisWorkbook.Worksheets("Vencimentos")
    Cells(ultimaLinha, 1).Value = nf.Value
    Cells(ultimaLinha, 2).Value = ComboBox2.Value
    Cells(ultimaLinha, 3).Value = ComboBox1.Value
    Cells(ultimaLinha, 4).Value = DateValue(data.Value)
    Cells(ultimaLinha, 5).Value = txValor.Value
    Cells(ultimaLinha, 6).Value = txParcela.Value
    Cells(ultimaLinha, 7).Value = parcela1.Value
    Cells(ultimaLinha, 8).Value = parcela2.Value
    Cells(ultimaLinha, 9).Value = parcela3.Value
    Cells(ultimaLinha, 10).Value = parcela4.Value
    Cells(ultimaLinha, 11).Value = parcela55.Value
    Cells(ultimaLinha, 12).Value = parcela6.Value
    Cells(ultimaLinha, 13).Value = parcela7.Value
    Cells(ultimaLinha, 14).Value = parcela8.Value
    Cells(ultimaLinha, 15).Value = Valor1.Value
    Cells(ultimaLinha, 16).Value = Valor2.Value
    Cells(ultimaLinha, 17).Value = Valor3.Value
    Cells(ultimaLinha, 18).Value = Valor4.Value
    Cells(ultimaLinha, 19).Value = Valor5.Value
    Cells(ultimaLinha, 20).Value = Valor6.Value
    Cells(ultimaLinha, 21).Value = Valor7.Value
    Cells(ultimaLinha, 22).Value = Valor8.Value
End With


'Limpar as caixas de texto
txValor.Value = Empty
nf.Value = Empty
ComboBox1.Value = Empty
ComboBox2.Value = Empty
data.Value = Empty
txParcela.Value = Empty
parcela1.Value = Empty
parcela2.Value = Empty
parcela3.Value = Empty
parcela4.Value = Empty
parcela55.Value = Empty
parcela6.Value = Empty
parcela7.Value = Empty
parcela8.Value = Empty
Valor1.Value = Empty
Valor2.Value = Empty
Valor3.Value = Empty
Valor4.Value = Empty
Valor5.Value = Empty
Valor6.Value = Empty
Valor7.Value = Empty
Valor8.Value = Empty
DATA1.Value = Empty
DATA2.Value = Empty
DATA3.Value = Empty
DATA4.Value = Empty
DATA5.Value = Empty
DATA6.Value = Empty
DATA7.Value = Empty
DATA8.Value = Empty
'Colocar o foco na primeira caixa de texto
nf.SetFocus

'Ativar atualização de ecrã
Application.ScreenUpdating = True

'Mensagem de confirmação
MsgBox "Cadastrado com sucesso!", vbOKOnly

[DennerSantos]

valeu mano melhorou muito, so mais uma duvida e prometo finalizar não consegui encontrar nada nos fóruns quando o formulário lança data e valores na planilha a data sai invertida e os valores ficam com erro "o numero nesta cédula é formatado como texto ou procedido de por um apostrofo"