Notifications
Clear all

Buscar dados em planilhas iguais com nomes diferentes

23 Posts
3 Usuários
0 Reactions
2,787 Visualizações
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Salve galera... tudo na paz?

Primeiro permitam que tece elogios ao fernando.fernandes. Estou extremamente agradecido e lisonjeado por ter me ajudado no caso da "criação automática de uma planilha" ao definir o status de um funcionário como ativo, lembra néh?

Pois bem, agora preciso mais uma vez de seu apoio e/ou dos colegas do Planilhando. Tomara que tenha como fazer o que quero e que você possam me ajudar.

1º na planilha "relação de funcionários", quando defino o status do funcionário como ativo, automaticamente é gerada sua planilha de "espelho de ponto" que receberá o nome de e.p. + (nome do funcionário), que foi o que o fernando me ajudou anteriormente;

2º criei também uma planilha de folha resumida, que é onde serão inseridos os dados do espelho de ponto e de outras planilhas de todos os funcionários;

3º agora que vem o "x" da questão: na planilha "folha resumida", busco alguns dados na planilha "espelho de ponto". dados estes que são:
hora extra 50% (coluna m)
hora extra 100% (coluna n)
adicional noturno (coluna x)
horas faltosas (coluna ab)
dsr sobre faltas (colun ae)

Apresentados os argumentos acima, vem então o que quero:
- Quero que as fórmulas destas colunas busquem no espelho de ponto de cada funcionário de forma automática estas informações. Lembrando que, cada funcionário tido como "ativo" possui sua planilha de espelho de ponto. Como fazer para que essa fórmula busque estes dados nas mesmas planilhas, porém, com nomes diferentes?

Dêem uma olhada primeiro no ponto de interrogação (?) na planilha "folha resumida" que segue no anexo. Sugiro algo que estou imaginando que possa dar certo, mas não sei como fazer. Caso não dê certo, o que podem sugerir para resolver essa questão?

 
Postado : 25/06/2012 2:14 pm
(@robert)
Posts: 561
Honorable Member
 

Chalie,
Boa noite!

Antes de postar leia as regras do fórum. Seu arquivo deveria estar no formato ZIP.

 
Postado : 25/06/2012 4:17 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente utilizar as funções Endereço + Indireto
Em N10 coloque =INDIRETO(ENDEREÇO(44;11;1;1;ESQUERDA("E.P. " & B10; 31)))*24 e arraste para as demais.

 
Postado : 25/06/2012 4:27 pm
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Chalie,
Boa noite!

Antes de postar leia as regras do fórum. Seu arquivo deveria estar no formato ZIP.

Não entendi... o arquivo não está em formato ZIP?

 
Postado : 26/06/2012 5:07 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Experimente utilizar as funções Endereço + Indireto
Em N10 coloque =INDIRETO(ENDEREÇO(44;11;1;1;ESQUERDA("E.P. " & B10; 31)))*24 e arraste para as demais.

Reinaldo... bom dia!
Poderia por gentileza demonstrar seu exemplo na planilha que anexei? Através do seu exemplo posso entender o funcionamento. Sou meio cru com fórmulas, porém, bastante esforçado e interessado em aprender, e através dos exemplos pego muito fácil a dinâmica da fórmula.

 
Postado : 26/06/2012 6:04 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue exemplo na linha 2 e 3 (duas possibiliddes similares)

 
Postado : 26/06/2012 6:15 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Segue exemplo na linha 2 e 3 (duas possibiliddes similares)

Reinaldo... devo lhe dar os parabéns. Aparentemente funcionou perfeitamente. Só um pequeno detalhe, e me desculpe se estiver abusando. Eu queria que quando registrasse o funcionário na relação de funcionários, ele fosse tranferido para a planilha de folha resumida. Tem como?

 
Postado : 26/06/2012 6:34 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No codigo proposto pelo colega Fernando Fernandes, acrescente (após o end with e antes do end if) as linhas abaixo, que deve resolver

With shtEspelho
.Name = VBA.Left("E.P. " & shtRelacao.Range("B" & rng.Row).Value, 31)
.Range("B4").Value = shtRelacao.Range("B" & rng.Row).Value
End With

uLinha = Application.WorksheetFunction.CountA(Sheets("Folha Resumida").Range("B10:B34"))
Sheets("Folha Resumida").Range("B" & 10 + uLinha).Value = shtRelacao.Range("B" & rng.Row).Value

 
Postado : 26/06/2012 7:45 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Vou fazer o teste... é pq não trouxe a planilha para o serviço hj. Amanhã qq coisa dou o grito aquui. Mais uma vez obrigado.

 
Postado : 26/06/2012 8:00 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

No codigo proposto pelo colega Fernando Fernandes, acrescente (após o end with e antes do end if) as linhas abaixo, que deve resolver

With shtEspelho
.Name = VBA.Left("E.P. " & shtRelacao.Range("B" & rng.Row).Value, 31)
.Range("B4").Value = shtRelacao.Range("B" & rng.Row).Value
End With

uLinha = Application.WorksheetFunction.CountA(Sheets("Folha Resumida").Range("B10:B34"))
Sheets("Folha Resumida").Range("B" & 10 + uLinha).Value = shtRelacao.Range("B" & rng.Row).Value

Reinaldo... vc se refere ao código que ele propos no tópico: "Exlcuir planilha ao determinar um determinado status", isso?

 
Postado : 26/06/2012 8:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não, onde é acrescentada uma planilha ao status ser = Ativo

 
Postado : 26/06/2012 8:41 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

entendido.

 
Postado : 26/06/2012 8:50 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Segue exemplo na linha 2 e 3 (duas possibiliddes similares)

Reinaldo... seu exemplo ficou perfeito. Só não consegui montar a fórmula para calcular o DSR sobre faltas. Poderia me mostrar como ficaria esta fórmula.

COMO FICARIA A FÓRMULA DO DSR FALTA (COLUNA AE). O VALOR DEVE DAR R$ 20,73 PARA O EXEMPLO EXPOSTO. A FÓRMULA UTILIZADA ERA: =K10/30*CONT.SE('Espelho de Ponto'!U13:U43;"x")

 
Postado : 27/06/2012 7:43 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em AE12 (por exemplo) use a formula:

=K12/30*CONT.SE(INDIRETO("'"&ESQUERDA("E.P. "&B12;31)&"'!"&"U13:U43");"x")

 
Postado : 27/06/2012 8:50 am
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Em AE12 (por exemplo) use a formula:

=K12/30*CONT.SE(INDIRETO("'"&ESQUERDA("E.P. "&B12;31)&"'!"&"U13:U43");"x")

fantástico.., vlws mais uma vez.

 
Postado : 27/06/2012 10:38 am
Página 1 / 2