Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro de filtro: co...
 
Notifications
Clear all

Macro de filtro: copiar, limpar a antiga e inserir novos

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,542 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

Estou usando um botão de controle vinculada a uma macro. Tal botão está na guia "inicio" e a cada alteração na seleção a célula N1 muda o valor, até aí ok.

Entrando de fato com a macro abaixo, queria uma luz de como fazer para que, por exemplo, quando N1 (na guia "início") for 4 (vai variar de 1 a 10) e lá na guia "matriz" atender o outro requisito (aí pra essa parte a macro já funciona bem) ele copiar os dados da matriz e levar para a guia de concluídos. O problema é que preciso limpar a guia concluídos antes de levar os novos dados pra lá, preservando o cabeçalho e iniciando apartir da linha 2.

Não sou o autor do código abaixo, mas estou tentando adaptar pra esse caso. 

Sub Filtro_concluido()

Dim slin As Long
Dim elin As Long

slin = 2
elin = 2

Do While Sheets("matriz").Cells(slin, 1) <> ""
If Sheets("matriz").Cells(slin, 20) = "CONCLUÍDA" Then
Sheets("matriz").Range("A" & slin & ":AD" & slin).Copy
Sheets("concluidos").Activate
Sheets("concluidos").Range("A" & elin).Select
Selection.PasteSpecial Paste:=xlPasteValues
slin = slin + 1
elin = elin + 1
Else
slin = slin + 1
End If
Loop

End Sub

Obrigado pela atenção.

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

 
Postado : 18/09/2017 7:44 am
joebsb
 joebsb
(@joebsb)
Posts: 44
Eminent Member
 

Bom dia Nasario...

Se possível, disponibilize o arquivo com dados de exemplo para que possamos verificar o alcance da programação necessária....

É complicado tentar programar uma macro sem saber os limites de até onde chegam os dados (linha e coluna)

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

 
Postado : 18/09/2017 7:51 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Verdade,

Com o anexo fica mais fácil sim, pronto.

Obrigado.

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

 
Postado : 18/09/2017 8:00 am
joebsb
 joebsb
(@joebsb)
Posts: 44
Eminent Member
 

Caro Nasario...

Fiz essa macro então conforme você pediu.....

Se o valor na N1 for 4, ela limpa a planilha concluídos e leva os dados da matriz para lá....

Adapte conforme o outro critério que vc queria usar.... 

Sub nasario()
'Código criado por Joe em 18/09/2017
'Contato para Freelancer: (61) ******
If Worksheets("inicio").Cells(1, 14).Text = 4 Then
    Do Until Len(Worksheets("concluidos").Cells(2, 1).Text) = 0
        Worksheets("concluidos").Rows(2).Delete
    Loop
    i = 2
    Do Until Len(Worksheets("matriz").Cells(i, 1).Text) = 0
        For s = 1 To 30
            Worksheets("concluidos").Cells(i, s) = Worksheets("matriz").Cells(i, s)
        Next
        i = i + 1
    Loop
End If
End Sub

O mais legal é ver ela executando... olhando a planilha concluidos.. rs....

Espero ter ajudado....

Se ficou como vc queria não esqueça de marcar essa resposta como concluída e mandar o TKS...

Abraço...

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

 
Postado : 18/09/2017 8:59 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro Joe,

Resolveu o problema e me gerou um desafio de entender o que você fez! kkkkkkkkkkkk

Muito bom!

Agradeço mais uma vez

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

 
Postado : 18/09/2017 12:29 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

nasario

Você não sabe usar a ferramenta para agradecer (pontuar) os colaboradores.

Acesse o link abaixo para você entender a diferença entre agradecer e marcar o tópico como resolvido.
viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

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

 
Postado : 18/09/2017 3:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico