Excel, procurar primeiro valor da linha e retornar data correspondente.

[ffilgueira1000]

Olá amigos do CH.

Preciso da ajuda de vocês.

Tenho uma planilha do excel, na linha A linha tenho um período de datas, na linha B tenho uma sequencia de letras P, e na linha C tenho uma sequencia de letras E.

Preciso do seguinte:

1) Criar uma função que identifique o local da primeira letra P e me retorne a data correspondente.

2) Criar uma outra função que identifique o local da ultima letra P e me retorne a data correspondente.

3) Criar uma função que identifique o local da primeira letra E e me retorne a data correspondente.

2) Criar uma outra função que identifique o local da ultima letra E e me retorne a data correspondente.

Eu carreguei uma planilha de amosta pra ajudar o entendimento.

http://www.sendspace.com/file/sgv6cm

valeu...

[jeffsilveira]

Filgueira

usei sequencias de fórmulas SE abaixo das letras, e depois puxei máximo e mínimo nas células que você deixou para isso.

Veja o exemplo:

http://www.sendspace.com/file/lu38wf

Espero que funcione...

Abraços.

Jé

[ffilgueira1000]

Obrigado pela ajuda, funcionou perfeitamente.

Mas eu imaginava uma função direta, que não precisasse utilizar outras células auxiliares, porque a planilha que vou montar tem umas 900 linhas, e se eu acrescentar mais essas outras linhas auxiliares, vai ficar um monstro de planilha!

Se você puder ma ajudar... eu agradeço.

valeu...

[jeffsilveira]

Pois é, essa foi a solução trivial que encontrei.

Se você ocultar as linhas com essas fórmulas funciona também, e a planilha vai ficar com a mesma aparência.

Acho que alguém com mais experiência pode ajudar melhor, enquanto isso vou fazendo testes aqui.

Abraços.

[ffilgueira1000]

Obrigado pela ajuda...

Vamos ver se alguém pode nos ajudar né... mas se não conseguir mais nada vou usar essa sugestão sua que também funciona.

valeu...

[Patropi]

Boa noite ffilgueira1000

Eu consegui fazer uma fórmula que acha as últimas dtas, tanto do P quanto do E.

http://www.sendspace.com/file/nedu3q

Dê retorno.

Abraço.

[ffilgueira1000]

Hei Patropi, isso foi perfeito hein... agora só basta conseguirmos uma fórmula similar para encontrar a primeira data.

Eu to fuçando nessa fórmula que você me passou para tentar adaptá-la... mas até agora nada...

[jeffsilveira]

Eu consegui fazer uma fórmula que acha as últimas dtas, tanto do P quanto do E.

=TEXTO(INDIRETO(ENDEREÇO(1;SOMARPRODUTO(MÁXIMO(COL(2:2)*(2:2="P")))));"dd/mm/aa")

CARAMBA, como é que você faz isso!?

Parabéns...

[Carlos7x]

Filgueira,

pode ser por macro VBA?

Carlos

[ffilgueira1000]

Pode ser por macro sim... mas a planilha que vou montar vai ter várias linhas... e a cada dia vai crescer mais...

Então a macro vai ter que varrer toda a extensão da planilha...

valeu...

Hei Carlos7x

eu carreguei uma planilha mais detalhada pra você tentar me ajudar com essa macro!

aqui vai... http://www.sendspace.com/file/0pclpm

[Carlos7x]

Filgueira,

trabalho com Excel 2003, por isso não posso colocar a macro no site compartilhado.

Consegui fazer pelo gravador de macro o seguinte:

Sub Colunas_Inicial_final()

' linhas 2 e 3 só com letra "P" e "E", sem intervalos

' teste até coluna "Z"

Range("Z2").Select

Selection.End(xlToLeft).Select

Selection.End(xlToLeft).Select

Selection.End(xlUp).Select

Selection.Copy

Range("B6").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Z2").Select

Selection.End(xlToLeft).Select

Selection.End(xlUp).Select

Selection.Copy

Range("B7").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Z3").Select

Selection.End(xlToLeft).Select

Selection.End(xlToLeft).Select

Selection.End(xlUp).Select

Selection.Copy

Range("B8").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Z3").Select

Selection.End(xlToLeft).Select

Selection.End(xlUp).Select

Selection.Copy

Range("B9").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("B10").Select

End Sub

você pode adaptar ao seu caso específico.

Carlos

[Visitante]

em F12

=DESLOC(L12;-LIN(A1);CORRESP(VERDADEIRO;L12:ABN12<>"";0)-1)   [COLOR="Red"][B]matricial[/B][/COLOR]

em G12

=PROC(2;1/(L12:ABN12<>"");$L$11:$ABN$11)

arraste para baixo

[ffilgueira1000]

Pessoal, muito obrigado pela ajuda de todos!

Tanto a macro do Carlos7x como as fórmulas do osvaldomp atenderam a necessidade.

A macro tive que adaptar para meu caso, ficou uma super macro gigante mas funciona.

As fórmulas são mais simples e para usuários como eu que não tem experiencia em VBA é a solução mais fácil.

valeu galera...

[Douglas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.