6 respostas neste tópico

[valdecirrk]

boa tarde

estou com uma planilha e preciso que a informação de toda a linha apareça em outra planilha com o mesmo cabeçalho, quando a última opção for igual a Concluida, porque terei mais que uma informação tipo "Em execução", "Em Andamento";
alimento 3 planilhas com estas informações sendo os segmentos diferentes.
Prioridade Segmento Departamento Máquina Patrimônio Situação
1 Motores Fabrica I Prensa 20291 Concluida
2 Motores Fabrica IV Prensa 120290 Em Execução

quando a informação da Situação for igual a Concluida que apareça na Planilha de controle geral

Editado por valdecirrk, 24 July 2012 - 04:33 PM.
''

[Trafix]

Valde,
Bom dia !

Poderia disponibilizar uma planilha em anexo aqui no fórum ?

[Mourense]

Bom dia Valdecir

Fiz o que você pediu usando um filtro com fórmulas.

Dê retorno.

Um abraço.

Arquivos Anexados

•  Filtrando por Situação_Patropi_26_07_12.zip   22.72K   31 downloads

[valdecirrk]

bom dia

na verdade a planilha contem informações da empresa que não posso estar disponibilizando.

bom dia

shpow de bola,

só temo sum porem, a planilha faz o controle de um somente, digamos que tenho 3 planilhas com o mesmo cabeçalho e preciso que as informações aonde contem concluidas passe para a planilha de controle geral.

então fica assim

PLAN1, 2, 3 e Controle Geral

quando a última condição for concluída independente da plan 1,2 e 3 passe para a Planilha de controle geral.

mesmo assim funcionou,

outra coisa, estou usando também o office 2003, aonde a formula SERROR não tem no novo.

[Mourense]

Boa noite

Você não precisa disponibilizar a planilha da empresa, faça como eu fiz, monte um exemplo da tua planilha e demonstre como você quer o resultado.

Um abraço.

[valdecirrk]

segue o exemplo para passar a informação.

sendo que somente a situação OK poderá aparecer na planilha geral automaticamente.
a Planilha geral é somente para visualização das demais.

Arquivos Anexados

•  Pasta_Teste.zip   1.69K   25 downloads

[osvaldomp]

Se quiser experimentar esta solução por macro, instale o código abaixo no módulo de 'EstaPasta_de_trabalho', assim:
1. copie o código daqui
2. a partir de qualquer planilha do arquivo tecle Alt+F11 para acessar o editor de VBA
3. no editor, duplo clique em 'EstaPasta_de_trabalho'
4. cole o código na janela em branco que vai se abrir
5. feito! Alt+Q para retornar para a plnailha e testar

Funciona para qualquer quantidade de planilhas.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long, lin As Long
If Target.Count > 1 Or Target.Column > 4 Then Exit Sub
Application.ScreenUpdating = False
lin = Target.Row
If UCase(Cells(lin, 4)) = "OK" And _
Application.CountA(Range(Cells(lin, 1), Cells(lin, 4))) = 4 _
And Sh.Name <> "Controle Geral" Then
Range(Cells(lin, 1), Cells(lin, 4)).Copy
With Sheets("Controle Geral")
LR = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(LR + 1, 1).PasteSpecial
End With
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub