pular linha em VBA Excel

[FabioArao]

Bom dia senhores,

Estou com o seguinte problema tenho uma Planilha onde tenho as colunas (c1,c2,c3,c4,c5 e c6), criei uma interface onde preenche os dados usuando-a, porém esta deve preencher as colunas (c1,c3,c4 e C6) na primeira linha, até ai esta ok, criei um botão Salvar, para armazenar mudança e seguir para proxima linha, como um Banco de dados e é ai que estou encontrando problemas, como Salvar dados da primeira linha e seguir para proxima?

este é o codigo atual para preenchimento:

Private Sub txtdat_Change()

Range("c2").Value = txtdat

End Sub

Private Sub txtresp_Change()

Range("d2").Value = txtresp

End Sub

Private Sub txtarea_Change()

Range("e2").Value = txtarea

End Sub

Private Sub txtterceiro_Change()

Range("g2").Value = txtterceiro

End Sub

Private Sub txtcodigo_Change()

Range("h2").Value = txtcodigo

End Sub

Private Sub txtlote_Change()

Range("j2").Value = txtlote

End Sub

este é o codigo para salvamento:

Private Sub CommandButton2_Click()

ActiveWorkbook.Save

End Sub

Podem me auxiliar?

Fabio Ara~p

[lobismano]

Amigo.

Há varias maneiras de se fazer isto. Este é só mais um exemplo

Troque o Range por Cells. Neste caso a função vai buscar indecentemente onde estiver preenchido sempre a ultima linha preenchida.

Function ultimaLinha()

ultimaLinha = Cells.SpecialCells(xlCellTypeLastCell).Row

End Function

Private Sub txtdat_Change()

Cells(ultimaLinha(), 3).Value = txtdat

End Sub

Private Sub txtresp_Change()

Cells(ultimaLinha(), 4).Value = txtresp

End Sub

.

.

.

Espero que ajude.

At.