Página 1 de 1

Salvando e alterando outro registro ao mesmo tempo

Enviado: 17 Ago 2019 às 10:13
por kiko
Bom dia à todos, minha dúvida é a seguinte:
Existe a possibilidade de quando for salvar um novo registro e nessa mesma ação, buscar o registro anterior e mudar a coluna D desse registro para S, desde que a junção das colunas A com a B seja exatamente igual nos dois casos.
OBS: SOMENTE se na coluna D fosse N
Exemplo:
Nome_1+Material_1+04/08/2019+N (linha 7 amarela do anexo que seria mudada)
Nome_1+Material_1+04/10/2019+N (linha 13 azul do anexo que seria novo registro)

No caso ficaria assim depois de salvo novo registro:
(linha 7 amarela do anexo que ficaria mudada)
[Nome_1+Material_1+04/08/2019+S/b]
(linha 13 azul do anexo que seria novo registro)
Nome_1+Material_1+04/10/2019+N
Desde já agradeço e aguardando respostas.

Salvando e alterando ao mesmo tempo

Enviado: 17 Ago 2019 às 14:19
por eduardogrigull
Olá. Tente o código abaixo. Ponha após o procedimento de salvar. Porém, o código necessita da linha, nome, e material do que foi salvo, deixei tres variáveis para voce definir, já que nao tenho acesso ao código completo...
Código: Selecionar todos
Dim NomeSalvo As String
Dim MaterialSalvo As String
Dim LinhaUltimoRegistro As Integer

NomeSalvo = ""             'Definir seu ultimo nome salvo
MaterialSalvo = ""         'Definir ultimo material salvo
LinhaUltimoRegistro = "?"   'Definir ultima linha salva


For i = 1 To Planilha1.Cells(Planilha1.Cells.Rows.Count, 1).End(xlUp).Row
    If Planilha1.Cells(i, 1).Value & Planilha1.Cells(i, 2).Value = NomeSalvo & MaterialSalvo And _
        Planilha1.Cells(i, 4).Value = "N" Then
        
        'Alterar
        Planilha1.Cells(i, 4).Value = "S"
        
        'Alterar reg atual
        Planilha1.Cells(LinhaUltimoRegistro, 4).Value = "N"
    
        Exit For
    End If
Next

Salvando e alterando ao mesmo tempo

Enviado: 17 Ago 2019 às 15:12
por kiko
eduardogrigull boa tarde e mais uma vez obrigado pela sua atenção, mas como você mesmo disse "já que nao tenho acesso ao código completo..." e ele ainda não existe pois precisava dessa luz para dar o norte do código, vou testar e depois dou retorno.
Grato mais uma vez.

Salvando e alterando outro registro ao mesmo tempo

Enviado: 18 Ago 2019 às 10:26
por kiko
eduardogrigull bom dia e mais uma vez obrigado pela sua atenção dispensada, fiz as devidas adaptações e o resultado foi S A T I S F A T Ó R I O. Deus o abençoe.
OBS: Já cliquei na mãozinha de obrigado, pena que só pode uma unica vez, merecia pelo menos 10.