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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Cadastro de peças - ajuda
Re: Cadastro de peças - ajuda
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
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 132 vezes