Buscar dados em planilhas iguais com nomes diferentes

Charlie-81

(@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

(@robert)

Posts: 561

Honorable Member

Chalie,
Boa noite!

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

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

Postado : 25/06/2012 4:17 pm

Fernando Fernandes

(@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.

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

Postado : 25/06/2012 4:27 pm

Charlie-81

(@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

(@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

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

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

Postado : 26/06/2012 6:15 am

Charlie-81

(@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

Fernando Fernandes

(@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

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

Postado : 26/06/2012 7:45 am

Charlie-81

(@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

(@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

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

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

Postado : 26/06/2012 8:41 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

entendido.

Postado : 26/06/2012 8:50 am

Charlie-81

(@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

Fernando Fernandes

(@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")

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

Postado : 27/06/2012 8:50 am

Charlie-81

(@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