Combos dependentes

Segue mais um modelo de Combos dependentes usando só formulas (bem simples).

http://cid-437f861f9d13d316.skydrive.live.com/self.aspx/P%c3%bablico/Combos^_Dependentes^_Simples.xls

Aqui vai uma dica ( na verdade uma guambiarra) que é util na hora de classificar dados com formulas como Ordem(), Maior(), Menor(), Corresp(), Máximo(), Mínimo(), etc.

+LIN()/100000000

Usando a formula acima para agregar valor ao resultado de alguma formula, fariamos que não tenhamos valores repetidos.

http://www.juliobattisti.com.br/forum/forum_posts.asp?TID=20440

Duvida postada no Forum do Julio Battisti.

Segue o exemplo da solução para a duvida postada no Forum Julio Battisti:

http://www.juliobattisti.com.br/forum/forum_posts.asp?TID=20734&PN=1

Amigos;

Procv diferente:

Tenho um banco de dados com códigos que se repetem, data e valor:

A = Código
B = Data
C = Valor

Numa segunda planilha, preciso de uma fórmula, não necessariamente um procv, que faça o seguinte:

Através do código, somente do código, ela retorne o valor, mas do item que tem a data mais atual!

Teste:

A B C
01-01-002 01/12/2009 58,00
01-01-002 05/12/2009 60,00
01-01-002 04/12/2009 40,50

Na planilha onde pesquisarei:

A B
01-01-002 60,00 (Pois é a data mais atual)

Fiz um exemplo para download

http://cid-437f861f9d13d316.skydrive.live.com/self.aspx/Sharing/procv%5E_diferente.xls

link para o Planilhando.com

Segue o link para um fórum muito bom para aprender e compartilhar conhecimento.

www.planilhando.com.br

Pegar a letra da coluna só com formula.

=ESQUERDA(DIREITA(CÉL("endereço";A1);NÚM.CARACT(CÉL("endereço";A1))-1);PROCURAR("$";DIREITA(CÉL("endereço";A1);NÚM.CARACT(CÉL("endereço";A1))-1);1)-1)

Quebrar senha Planilha ou Projeto VBA

Em varios foruns sempre há uma pergunta a respeito disso. Existem varios programas para essa finalidade, mas deixarei aqui um link para baixar um suplemento que faz esse processo, sem grandes complicações.

http://www.veriti.net/download_plus.php?lng=fr&pg=342&usd

Sheets(Array(Variavel)).Select

Sub ArrayVariavel()
Plan1.Activate
Num = Plan1.Range("B1").Value
Dim guardar() As String
ReDim guardar(1 To Num)
For linha = 1 To Num
guardar(linha) = Cells(linha, 1).Text
Next linha
Sheets(guardar).Select
Sheets(guardar).Copy
End Sub