Manter informação na mesma linha  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Manter informação na mesma linha

Mensagempor robertonl » Dom Set 02, 2018 9:03 pm

Boa noite.
Ao alterar os dados de um registro, os dados não ficam na mesma linha, eles são inseridos na próxima linha em branco.
Como proceder neste caso para que o registro mantenha na mesma linha para que o arquivo não fique sobrecarregado

Código: Selecionar todos
Private Sub Cmd_Salvar_Click()
If Me.Cmd_Alterar = True Then
ThisWorkbook.Worksheets("Fornecedor") = Txt_RazaoSocial
ThisWorkbook.Worksheets("Fornecedor") = Txt_Fantasia
Else
intlinha = ThisWorkbook.Worksheets("Fornecedor").Range("A500").End(xlUp).Offset(1, 0).Row
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 1) = CStr(Cod_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 2) = Txt_RazaoSocial
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 3) = Txt_Fantasia
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 4) = Txt_CNPJCPF
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 5) = Txt_Cidade
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 6) = Txt_UF
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 7) = Txt_Tel1
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 8) = Txt_Tel2
ThisWorkbook.Worksheets("Fornecedor").Cells(intlinha, 9) = Txt_Email
End If
Me.Cmd_Novo.Enabled = True
Me.Cod_Fornecedor = ""
Me.Txt_RazaoSocial = ""
Me.Txt_Fantasia = ""
Me.Txt_CNPJCPF = ""
Me.Txt_Cidade = ""
Me.Txt_UF = ""
Me.Txt_Tel1 = ""
Me.Txt_Tel2 = ""
Me.Txt_Email = ""
  With Sheets("Fornecedor")
           
            'Obtém a última linha da Planilha:
            rLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 0
       
            If rLast <= 9 Then
                Cod_Fornecedor.Caption = "FO" & "00000" & rLast     '& "00000"
            Else
                Cod_Fornecedor.Caption = "FO" & "0000" & rLast     '& "00000"
            End If
        End With
       
End Sub

robertonl
Membro
Membro
 
Mensagens: 103
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

{ SO_SELECT }

Re: Manter informação na mesma linha

Mensagempor wagner » Seg Set 03, 2018 10:22 am

robertonl,

Bom dia!

Altere essa linha:
Código: Selecionar todos
intlinha = ThisWorkbook.Worksheets("Fornecedor").Range("A500").End(xlUp).Offset(1, 0).Row


Para:
Código: Selecionar todos
intlinha = ThisWorkbook.Worksheets("Fornecedor").Range("A500").End(xlUp).Offset(0, 0).Row
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4239
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1840 times

Re: Manter informação na mesma linha

Mensagempor Reinaldo » Seg Set 03, 2018 11:04 am

Apesar de que a proposta/solução do colega Wagner atenda ao descrito na demanda
Manter informação na mesma linha


Acredito; apenas um acho; que não seja o desejado/esperado pelo usuário, pois a rotina disponibilizada não está "preparada" para alterações,
somente inclusão de novo registro; sendo esse o motivo de acréscimo em nova linha.

Contudo,por ser um achometro, se a solução proposta é o realmente esperado, OK,
caso contrario forneça maiores detalhes e um modelo/exemplo de sua necessidade
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4198
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 184 times
Have thanks: 1916 times

Re: Manter informação na mesma linha

Mensagempor robertonl » Sex Set 07, 2018 7:59 pm

Boa noite.
Utilizei a orientação, porem não deu certo.
Porém utilizei o código, mas quando eu necessito alterar alguma informação, ele altera e ao salvar o dado é gravado na ultima linha em que tem alguma informação.
A ideia principal é salvar a alteração na linha que a informação se encontra
Código: Selecionar todos
Private Sub Editar_Click()
'Me.CentroCusto.Enabled = True
'Me.ContaCorrente.Enabled = True
'Me.PerCCalc.Enabled = True
'Me.Salvar.Enabled = True
'Me.CentroCusto.SetFocus
'If Me.Editar = True Then
  Dim intlinha
  intlinha = ThisWorkbook.Worksheets("Centro_Custo").Range("A500").End(xlUp).Offset(0, 0).Row
  ThisWorkbook.Worksheets("Centro_Custo").Cells(intlinha, 1) = CStr(CentroCusto)
  ThisWorkbook.Worksheets("Centro_Custo").Cells(intlinha, 2) = CStr(ContaCorrente)
  ThisWorkbook.Worksheets("Centro_Custo").Cells(intlinha, 3) = CDbl(PerCCalc)
Me.CentroCusto = ""
Me.ContaCorrente = ""
Me.PerCCalc = ""

End Sub
robertonl
Membro
Membro
 
Mensagens: 103
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

Re: Manter informação na mesma linha

Mensagempor wagner » Seg Set 10, 2018 12:28 pm

robertonl,

Boa tarde!

Anexe seu arquivo ou um exemplo pequeno (no máximo 5 linhas) compactado com .ZIP e explique melhor a sua necessidade.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4239
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1840 times

Re: Manter informação na mesma linha

Mensagempor robertonl » Dom Set 16, 2018 12:30 am

Qualquer alteração que realizo a informação é salva no ultimo registro. Desejo que a alteração seja feita e mantenha na mesma linha
Você não está autorizado a ver ou baixar esse anexo.
robertonl
Membro
Membro
 
Mensagens: 103
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

Re: Manter informação na mesma linha  [Resolvido]

Mensagempor Reinaldo » Dom Set 16, 2018 9:38 am

Efetuei diversar alterações espero que atenda
Você não está autorizado a ver ou baixar esse anexo.
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author Reinaldo thanked:
robertonl (Dom Set 16, 2018 6:49 pm)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4198
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 184 times
Have thanks: 1916 times

Re: Manter informação na mesma linha

Mensagempor robertonl » Dom Set 16, 2018 6:48 pm

Funcionou perfeitamente.
robertonl
Membro
Membro
 
Mensagens: 103
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

Re: Manter informação na mesma linha

Mensagempor robertonl » Dom Set 16, 2018 8:35 pm

Boa noite.
Realizei alteração de como buscar realizar alteração nos registros.
Tentei adaptar em cima daquele que você me enviou, porém está dando erro.
Onde provavelmente posso ter errado na estrutura da macro.
Você não está autorizado a ver ou baixar esse anexo.
robertonl
Membro
Membro
 
Mensagens: 103
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

Re: Manter informação na mesma linha

Mensagempor Reinaldo » Seg Set 17, 2018 9:32 am

Experimente
Você não está autorizado a ver ou baixar esse anexo.
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4198
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 184 times
Have thanks: 1916 times

Próximo

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 13 visitantes