Material de grande qualidade em sobre Microsoft Access:
http://www.mabesi.com/component/videoflow/?task=play&id=528&sl=latest&Itemid=377&layout=listview

MaximoSe

Respondendo uma questão do forum:

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=3769&start=10

Function maximose(intval1 As Range, intval2 As Range, cond As String)
Application.Volatile
Dim wf As WorksheetFunction
Set wf = WorksheetFunction

Dim Matrix() As Variant
On Error GoTo fim
ReDim Matrix(intval1.Count, 1)
For num = 1 To intval1.Count
If intval2(num) = cond Then
Matrix(num, 1) = intval1(num) * 1
Else
Matrix(num, 1) = 0
End If
Next
maximose = wf.Max(Matrix)

fim:
Debug.Print Err.Number & " " & Err.Description
End Function

Sempre que vejo em post's em fóruns a pergunta sobre pegar o username do usuário logado, temos respostas que trazem somente o id da conta e não o nome completo do usuário. Pesquisando na net achei este código que trás o nome completo do usuário logado :

Sub GetUserFullName()

Set WSHnet = CreateObject("WScript.Network")

UserName = WSHnet.UserName

UserDomain = WSHnet.UserDomain

Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")

UserFullName = objUser.FullName

MsgBox "User Full Name: " & vbCrLf & vbCrLf & UserFullName, vbInformation, "User Full Name"

End Sub

Vou postar aqui uma coisa que descobri por acaso e que muitos procuram pela net e se deparam com versões Sharewares.

Colocarei mais lenha na fogueira deste tópico do blog do Tomas Vasquez onde BrOffice quebra as senhas do VBA no Excel sem fazer força. Mas aqui vou além, pois poderemos quebrar a senha dos projetos do Access também.

Pois bem, baixei e instalei o VBA Password Bypasser mas como todo bom programa que faz do que dele se espera, tem que ativar para poder usar todas as suas funcionalidades.

Mas por acaso descobri um "bug"

Ao abrir um Excel ou um arquivo Access com o VbProject bloqueado o programa carrega e emiti algumas mensagens dentre elas:

VBA Backdoor has been opened successfully…

Non-"Trial" password has been detected. Bypassing functionality has been deactivated.

Essa ultima lembra que tenho uma versão Trial portanto a funcionalidade de você digitar qualquer senha no projeto não funcionará. (conforme a help do programa).

Mas aí que está o truque.

Com o documento que queremos desproteger aberto pelo open do Vba Password Bypasser, abra a caixa para digitar a serial (enter registration key)

alterne para a tela do VB Editor do documento e tentar digitar a senha ele desbloqueia mas fica esperando digitarmos o serial lá no programa. Aí voltemos para a tela onde está pedindo o serial (Alt+Tab) e cancelamos o procedimento. Volte para o arquivo do Office(Alt+Tab) e veja o VB editor aberto com os códigos.

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

Combos dependentes (formula)

Segue um modelinho de combos dependentes, usando somente formulas* para dados que contém um código e várias opções (subsetor por exemplo).

http://www.4shared.com/file/79327736/682537bb/Formulas_Combos_dependentes.html






*Para o correto funcionamento, orderne as listas de dados.

Dicas de sites de assuntos informáticos diversos:

http://www.explorando.viamep.com/
http://www.guiadohardware.net/
http://www.msdn.com.br/
http://www.technetbrasil.com.br/

Abaixo, demonstro uma formula para classificar o maior e ou o menor numa lista de dados, retornando o "dono" do valor correspondente.

segue o link para download com um exemplo:

http://www.4shared.com/file/72716453/2ad9d1b2/Classificar_com_formulas.html

Média sem considerar valores iguais a zero.

Mais um exemplo de média:

Supondo que você tenha um intervalo que células (A1:A10) e não queria que valores 0 "zero" façam parte do resultado, use a formula a seguir:

=SOMA($A$1:$A$10)/SOMA(SE($A$1:$A$10<>0;1;0))
Ctrl+Shift+Enter

Alterando a matriz tabela de uma procv selecionando o intervalo a pesquisar em uma outra célula. Este exemplo para é uma resposta da duvida do post:http://www.juliobattisti.com.br/forum/forum_posts.asp?TID=17522


http://www.4shared.com/file/65450296/adf9a321/Procv_com_Indireto.html

Também é possivel fazer referencias à arquivos externos.

Procv com Índice

De uma duvida no forum do site www.juliobattisti.com.br/forum, fiz este exemplo de um procv com a matriz dinamica.

O link para o post:http://www.juliobattisti.com.br/forum/forum_posts.asp?TID=17522

link para o download do arquivo de exemplo:

http://www.4shared.com/file/64828546/bb39f4d9/ndice_com_procv.html

Índice

Segue um exemplo com a função Índice() para tentar ajudar a compreende-la.

Neste exemplo estou usando o índice por referência. Mas entendendo este exemplo, conseguimos assimilar o índice com matriz com facilidade.

Segue o link para o download do arquivo:

http://www.4shared.com/file/63744064/90adf3df/Exemplo2_ndice__.html

Fiz um update no arquivo e adcionei a area nas células, para aparecer no resultado a qual area se refere.

Exemplo de validação condicional

Montei um exemplo basico de como montar uma validação de acordo com valor especificado em uma condição. Veja a imagem ao lado:

Na opção escolha (em C2) selecionei "2" e a validação me retornou a segunda lista criada. Se eu quisesse os valores da primeira lista aparecessem na validação, bastaria mudar o valor de C2 para "1".

Segue o arquivo para melhor entendimento:

Novo link

Fiz nomeando os intervalos de células, pois assim fica mais pratico de aumentar o tamanho da lista quando precisar. E assim, tanto na validação, como na formatação condicional, posso usar em outra guia, os intervalos nomeados.

Modelo com Desloc()

Abaixo, posto um arquivo com um exemplo pratico de Desloc() (com auxilio de lin() e corresp()) para tentar facilitar o entendimento dela.

Segue o link para download do exemplo:

http://www.4shared.com/file/60027962/c7071d0e/Desloc_lin___Corresp.html