MACRO SIMPLES VBA

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

MACRO SIMPLES VBA

Mensagempor Bruno0312 » Ter Jan 21, 2020 10:45 am

Bom dia, preciso de uma macro que busque em uma coluna as células que estão com o texto "concluído", copie em cada linha localizada como concluído, as células das colunas de B a H, insira as linhas copiadas em outra aba (como um histórico de concluídas) e exclua as células copiadas da aba inicial.

ABA NO QUAL RECOLHO AS INFORMAÇÕES:

Solicitante Atividade Executante Data da sol. Prazo Progresso Status Observações
CQ Procedimento Bruno 07/05/2019 12/12/2019 100 Concluído -
CQ Projeto Bruno 26/08/2019 20/12/2019 50 Atrasado -
CQ Projeto Bruno 26/08/2019 31/01/2020 60 Em andamento -

ABA DE CONCLUÍDAS:

Lista de atividades - Concluídas

Solicitante Atividade Executante Data da solicitação Prazo
- - - - -

Atualmente uso essa macro mas não está funcionando como esperado:

Código: Selecionar todos
Sub Macro1()
'
' Macro1 Macro
'
'
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        Sheets("Urgente").Activate
        Dim i As Integer
            For i = 5 To 60
            If Range("H" & i).Value = "Concluído" Then
            Intersect(Selection.EntireRow, Range("B:F")).Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Historico Concluídas").Activate
            Range("A7").Activate
            Selection.End(xlUp).Activate
            Rows("6:6").Activate
            Selection.Insert Shift:=xlDown
            Sheets("Urgente").Activate
            Application.CutCopyMode = False
            Selection.ClearContents
            Else

        End If
        Next i
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
'
End Sub
Editado pela última vez por Adalberto7 em Qua Jan 22, 2020 10:23 pm, em um total de 2 vezes.
Razão: Macros devem ser postadas utilizando-se a ferramenta Code
Bruno0312
Membro
Membro
 
Mensagens: 1
Registrado em: Ter Jan 21, 2020 10:34 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: MACRO SIMPLES VBA

Mensagempor klarc28 » Qua Jan 22, 2020 1:15 am

Código: Selecionar todos
Sub Macro1()
'
' Macro1 Macro

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Urgente").Activate
Dim i As Integer
For i = 5 To 60
If Range("H" & i).Value = "Concluído" Then
Range("B" & i & ":H" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Historico Concluídas").Activate
Range("A7").Activate
Selection.End(xlUp).Activate
Rows("6:6").Activate
Selection.Insert Shift:=xlDown
Sheets("Urgente").Activate
Application.CutCopyMode = False
Selection.ClearContents
Else

End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'
End Sub
É estudando que se consegue. Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 1328
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 33 times
Have thanks: 555 times


Voltar para VBA & Macros

Quem está online

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