Este fórum está sendo desativado

[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

[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