Boa tarde.
Tenho uma planilha de controle de licitações (Planilha Base de Dados) e preciso de uma Macro que copie todas as informações dessa planilhas para uma segunda planilha (Dados Filtrados), desde que na coluna b (Resultados) a informação seja "Ganha".
Alguém poderia me ajudar com isso?
Olá amigo,
Cola esse código no módulo e cria um botão e atribui a macro.
Sub copiarDadosEntrePlanilhas()
Plan2.Range("A2:D10").ClearContents
UltimaLinha = Plan1.Cells(Rows.Count, "A").End(xlUp).Row
linha = 2
For i = 2 To UltimaLinha
If Plan1.Cells(i, 2) = "Ganha" Then
Plan2.Cells(linha, 1) = Plan1.Cells(i, 1)
Plan2.Cells(linha, 2) = Plan1.Cells(i, 2)
Plan2.Cells(linha, 3) = Plan1.Cells(i, 3)
Plan2.Cells(linha, 4) = Plan1.Cells(i, 4)
linha = linha + 1
End If
Next
End Sub
Ve se é ajuda
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Boa tarde MPrudencio!
Funciona bem a planilha que vc enviou, mas se for preciso incluir novas colunas na planilha base, como posso fazer? A mesma pergunta para a planilha de resultados filtrados, é possível colocar o botão acima e adicionar novas colunas ou isso vai causar problemas?
Outra questão posso Copiar a Planilha filtrada para outras pastas do Excel e ela continuará funcionando?
Eu fiz com base em seu exemplo se sua planilha original for diferente precisa ajustar o codigo.
Se for para criar um novo arquivo precisa mexer no codigo ...
Neste caso poste novo arquivo com a planilha exatamente como deve ser.
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.