Página 1 de 1

Cadastro de peças - ajuda

Enviado: Ter Mar 08, 2022 8:38 am
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

Re: Cadastro de peças - ajuda

Enviado: Sex Mai 06, 2022 11:31 pm
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