ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Cadastro de peças - ajuda

Dúvidas gerais sobre Excel
Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Cadastro de peças - ajuda

Mensagem por Rickardus »

Bom dia a todos. estou com problema em um cadastro de peças que estou fazendo para a empresa que trabalho. quando cadastro uma nova peça ao salvar os dados na planilha ele pula uma linha e não aparece no form principal na hora de consultar. teria como tbm ele atualizar os dados do "novo" sem ter que fechar o VBA.

Agradeço a ajuda

Ricardo
Anexos
Estoque-01.1.zip
(91.91 KiB) Baixado 34 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


grsn
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 18, 2020 7:01 am

Re: Cadastro de peças - ajuda

Mensagem por grsn »

Olá!
Veja se é isso que queria, tirei o +1 que estava no final dos dois:

totreg = Worksheets("Planilha2").UsedRange.Rows.Count

Private Sub Equipamento_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'esta linha guarda a quant. de linhas preenchidas na planilha
totreg = Worksheets("Planilha2").UsedRange.Rows.Count

'Variavel que totaliza numero de linhas utilizadas
totlin = Worksheets("Planilha2").UsedRange.Rows.Count

Dim lin As Double 'Esta é a linha da célula a ser usada

UserForm_Initialize
Worksheets("Planilha2").Select
Cells(totreg, 1) = Equipamento

' MsgBox "Gravado com sucesso!", vbInformation, "Gravação de dados"


End Sub
Anexos
Estoque-01.1.rar
(75.68 KiB) Baixado 3 vezes


Responder