Notifications
Clear all

Data automática!!

10 Posts
6 Usuários
0 Reactions
1,756 Visualizações
(@caspirro)
Posts: 7
Active Member
Topic starter
 

Tenho uma planilha de gerenciamento de uso de brocas na minha oficina, porém não está completa. Bom, toda vez que altero alguma célula do "STATUS PEDIDO" (O3:O30) para "FINALIZADO" ele me gera um histórico a partir da linha "32" em diante conforme está preenchido na linha do mesmo alterado, e como todo histórico, preciso identificar a data desse histórico, necessito que assim que eu mudar para finalizado alguma dessas linhas (O3:O30) ele me gere o histórico normalmente igual esta gerando, porém com a data inserida ao lado do histórico, ou seja, somente inserir a data quando for alterado o status para finalizado (pode ser uma coluna depois do "STATUS PEDIDO", na mesma coluna do "Restart"). Se possível que seja em VBA.
Segue em anexo a Planilha.

Obrigado desde já a quem se propuser a ajudar.

 
Postado : 30/05/2018 5:41 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Nao veio anexo

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 30/05/2018 5:47 am
(@caspirro)
Posts: 7
Active Member
Topic starter
 

me ajude no forum gurudoexcel por favor, aqui o arquivo é muito extenso, postei la também, eu tinha anexado, so que não reparei que o maximo do arquivo é 51 kb a minha planilha tem 96 kb

 
Postado : 30/05/2018 5:58 am
(@caspirro)
Posts: 7
Active Member
Topic starter
 

Nao veio anexo

Não consigo anexar o arquivo, se puder me ajudar, no forum do guru do excel eu postei a mesma duvida, la eu consegui anexar a planilha, por favor, preciso muito, obrigado desde ja.

Att,

 
Postado : 30/05/2018 6:05 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Também não entendo porque está dando esse "limite" aqui no Planilhando agora. Mas minha sugestão é voce postar no GoogleDrive e postar o link aqui!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 30/05/2018 6:19 am
(@caspirro)
Posts: 7
Active Member
Topic starter
 

fiz o que vc falou, ta ai o link do google drive para tentar me ajudar, obrigado desde ja, é urgente :(

Segue abaixo.
https://drive.google.com/file/d/1FB7zO3 ... sp=sharing

 
Postado : 30/05/2018 7:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Leia as regras do fórum:

Excluí teus outros 2 tópicos, pois não é permitido postar mais de um tópico sobre a mesma dúvida.

Favor acessar os links abaixo:

viewtopic.php?f=7&t=12600

viewtopic.php?f=7&t=203

[]s

Patropi - Moderador

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

 
Postado : 30/05/2018 7:36 am
(@caspirro)
Posts: 7
Active Member
Topic starter
 

Tenho uma planilha controle de brocas na oficina da empresa, e a minha planilha faz o gerenciamento de uso de brocas pelos mecânicos, e necessito que toda vez que as células de "O3:O30" estivesse como "FINALIZADO" gerasse um histórico (uma cópia da linha da planilha que consta como "Finalizado") a partir da Linha 32 em diante, com a adição da data do dia respectivo de alteração para "FINALIZADO".
Segue o link para a planilha para alteração e o link para visualização de como desejo que gere o histórico.(planilha 58kb, muito grande para anexar, limite 51kb)

https://drive.google.com/file/d/1tu59nD ... sp=sharing
https://drive.google.com/file/d/1UTDDJc ... sp=sharing

OBS: Código VBA que funcione para todas as linhas individualmente de O3 a O30 quando é o "Status Pedido" é altera para "FINALIZADO"

Agradeço desde ja :D

 
Postado : 30/05/2018 12:48 pm
(@boobymcgee)
Posts: 84
Trusted Member
 

Coloca esse código, que é uma adaptação do feito pelo colega wagner no seu outro tópico:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim DiaHistorico As Date
    Dim UltimaLinha As Long
    Application.EnableEvents = False
    
    DiaHistorico = Date
    
    If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    
    If Target.Row >= 3 And Target.Column = "15" And Target.Value = "FINALIZADO" Then
        UltimaLinha = Sheets("Controle de Peças").Cells(Cells.Rows.Count, 1).End(xlUp).Row
        If UltimaLinha < 30 Then
            UltimaLinha = 100
        Else
            UltimaLinha = UltimaLinha + 1
        End If
        Range("A" & Target.Row & ":O" & Target.Row).Select
        Selection.Copy
        Range("A" & UltimaLinha).Select
        ActiveSheet.Paste
        Range("P" & UltimaLinha).Value = DiaHistorico
        Application.CutCopyMode = False
        Range("A" & UltimaLinha).Select
    End If
    Application.EnableEvents = True
End Sub
 
Postado : 30/05/2018 3:01 pm
(@srobles)
Posts: 231
Estimable Member
 

Caspirro,

Veja se as alterações feitas em seu modelo, atendem sua necessidade.

Espero ter ajudado.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 30/05/2018 3:28 pm