Nao veio anexo

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

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,

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!

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

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

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

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

Caspirro,

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

Espero ter ajudado.

Abs