Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro gravando dados...
 
Notifications
Clear all

Erro gravando dados na mesma linha

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,418 Visualizações
RSS
 Laeoli
(@laeoli)
Posts: 85
Trusted Member
Topic starter
 

Boa tarde!

Srs, novamente, desculpa se até incomodo, mas tenho a rotina abaixo num CommandButton e toda vez que salva reescreve sobre a mesma linha. Preciso que cada item vindo de um formulário de cadastro seja gravado linha após linha.

Dim Linha As Long
Dim ws As Worksheet


Set ws = ThisWorkbook.Worksheets("GRUPORAPIDO")
Linha = (Cells(Rows.Count, 1).End(xlUp).Row) - 1
If optRapido.Value = True Then
 With ws
        .Cells(Linha, 1).Value = Me.txtCodigo.Text
        .Cells(Linha, 2).Value = Me.txtEntrada.Text
        .Cells(Linha, 3).Value = Me.txtOs.Text
        .Cells(Linha, 4).Value = Me.txtClientes.Text
        .Cells(Linha, 5).Value = Me.txtReferencia.Text
        .Cells(Linha, 6).Value = Me.txtDescrição.Text
        .Cells(Linha, 7).Value = Me.txtQde.Text
        .Cells(Linha, 8).Value = Me.txtStatus.Text
        .Cells(Linha, 9).Value = Me.txtPeso.Text
        .Cells(Linha, 10).Value = Me.txtPrazo.Text
        .Cells(Linha, 11).Value = Me.txtItem.Text
        .Cells(Linha, 12).Value = Me.txtServiço.Text
    End With
  End If
End Sub

Obrigado!

 
Postado : 15/12/2013 1:54 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde

Para facilitar anexe a planilha compactada aqui no fórum.

At.te

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/12/2013 2:48 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se usar a pesquisa vera que já temos casos como este respondi, no mais poste seu arquivo modelo, por favor!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/12/2013 3:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se é isso

Private Sub CommandButton1_Click()
Dim Linha As Long
Dim ws As Worksheet


Set ws = ThisWorkbook.Worksheets("GRUPORAPIDO")
Linha = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Linha = (Cells(Rows.Count, 1).End(xlUp).Row) - 1
If optRapido.Value = True Then
With ws
        .Cells(Linha, 1).Value = Me.txtCodigo.Text
        .Cells(Linha, 2).Value = Me.txtEntrada.Text
        .Cells(Linha, 3).Value = Me.txtOs.Text
        .Cells(Linha, 4).Value = Me.txtClientes.Text
        .Cells(Linha, 5).Value = Me.txtReferencia.Text
        .Cells(Linha, 6).Value = Me.txtDescrição.Text
        .Cells(Linha, 7).Value = Me.txtQde.Text
        .Cells(Linha, 8).Value = Me.txtStatus.Text
        .Cells(Linha, 9).Value = Me.txtPeso.Text
        .Cells(Linha, 10).Value = Me.txtPrazo.Text
        .Cells(Linha, 11).Value = Me.txtItem.Text
        .Cells(Linha, 12).Value = Me.txtServiço.Text
    End With
  End If
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/12/2013 3:05 pm
 Laeoli
(@laeoli)
Posts: 85
Trusted Member
Topic starter
 

Srs, mais uma vez muito OBRIGADO!

não respondi antes por ter saído.

Ale, muito agradecido.

valew!

 
Postado : 15/12/2013 5:01 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu fico feliz por ajudar! :D

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/12/2013 5:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/12/2013 7:28 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico