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