Página 1 de 1

Problema para a automação de formulário

Enviado: 04 Jan 2022 às 10:57
por Guilhermeferreira1
Boa tarde pessoal!
Estou fazendo uma planilha para o controle de multas, nela pensei em adicionar um forms com vba, porem no código ao invés de adicionar a próxima informação na linha seguinte, ele substitui a linha que eu já havia preenchido.
Alguém sabe como posso arrumar??

Meu código é esse:
Private Sub CommandButton1_Click()

linha = Range("C1").End(xlDown).Row + 1
Cells(linha, 3) = caixatexto_placa.Value

If botao_dpo.Value = True Then
Cells(linha, 1) = "DPO"

Else
Cells(linha, 1) = "SPO"
End If


Unload Cadastro_Multas

End Sub

Re: Problema para a automação de formulário

Enviado: 04 Jan 2022 às 15:55
por JCabral
Veja se resulta:

Substitua:
Código: Selecionar todos
linha = Range("C1").End(xlDown).Row + 1
por
Código: Selecionar todos
linha = Cells(Rows.Count, 3).End(xlUp).Row+1