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

SendKeys com cmd

Um exemplo basico da utilização de Sendkeys

Sub cmd_sendkey()
Dim tempo
Dim prog
tempo = "0:00:02"
prog = "cmd.exe"
teste = Shell("" & prog, 1) ' Execute cmd
Application.Wait (Now + TimeValue("0:00:05"))
SendKeys "net send {%}computername{%} teste", True
Application.Wait (Now + TimeValue("" & tempo))
SendKeys "~", True
End Sub

O exemplo acima abre o prompt de comando e manda uma mensagem para o proprio computador, usando comando net send.

Teclas de Atalhos no Excel

Para quem gosta de usar atalhos no Excel, aí vai algumas dicas:

Teclas de Atalho:
Nova pasta de trabalho CTRL+O
Abrir arquivo CTRL+A
Imprimir CTRL+P
Copiar CTRL+C
Recortar CTRL+X
Colar CTRL+V
Inserir planilha SHIFT+F11
Fechar janela CTRL+W
Fechar o Excel Alt+F4
Localizar e substituir CTRL+F
Selecionar tudo CTRL+T
Desfazer última ação CTRL+Z
Mover para a próxima planilha CTRL+PgDn
Mover para a planilha anterior CTRL+PgUp
Selecionar a planilha atual e a seguinte SHIFT+CTRL+PgDn
Selecionar a planilha atual e a anterior SHIFT+CTRL+PgUp
Ir para o início da planilha CTRL+Home
Ir para o final da planilha CTRL+End
Inserir Gráfico F11
Inserir um hiperlink CTRL+K
Inserir data atual CTRL+;
Inserir hora atual CTRL+SHIFT+:
Caractere de centavo de dólar ALT+0162
Caractere de libra esterlina ALT+0163
Caractere de euro ALT+0128
Ocultar linhas selecionadas CTRL+9
Exibir novamente as linhas ocultas CTRL+SHIFT+(
Ocultar colunas selecionadas CTRL+0
Exibir novamente as colunas selecionadas CTRL+SHIFT+)
Inserir macro ALT+F8
Selecionar a lista de uma planilha CTRL+SHIFT+*
Selecionar matriz que contém a célula ativa CTRL+/
Selecionar todas as células com comentários CTRL+SHIFT+O
Selecionar as células que não correspondem ao valor da célula ativa, em uma linha selecionada CTRL+\
Selecionar as células que não correspondem ao valor da célula ativa, em uma coluna selecionada CTRL+SHIFT+
Selecionar todas as células referidas diretamente por fórmulas CTRL+[
Selecionar todas as células referidas direta ou indiretamente por fórmulas CTRL+SHIFT+{
Selecionar todas as céluas que contêm fórmulas que fazem referência direta à célula ativa CTRL+]
Selecionar todas as céluas que contêm fórmulas que fazem referência direta ou indireta à célula ativa CTRL+SHIFT+}
Selecionar as células visíveis na seleção atual ALT+;
Estender a seleção em uma célula SHIFT+Seta
Estender a seleção até última célula não vazia na mesma linha ou coluna CTRL+SHIFT+tecla de direção
Estender a seleção até o início da linha SHIFT+Home
Estender a seleção até o início da planilha CTRL+SHIFT+Home
Estender a seleção até a última célula usada CTRL+SHIFT+End
Estender a seleção uma tela para baixo SHIFT+PgDn
Estender a seleção uma tela para cima SHIFT+PgUp
Criar nomes com base em rótulos de linha e coluna CTRL+SHIFT+F3
Inserir uma fórmula como fórmula de matriz CTRL+SHIFT+ENTER
Inserir fórmula de autosoma com a função soma ALT+=
Calcular a planilha ativa SHIFT+F9
Calcular todas as planilhas em todas as pastas de trabalho abertas, independentemente delas terem sido ou não alteradas desde o último cálculo CTRL+ALT+F9
Verifica as fórmulas dependentes e depois calcula todas as células em todas as pastas de trabalho, inclusive as células que não estão marcadas para serem calculadas CTRL+ALT+SHIFT+F9
Exibir Auto-filtro da coluna atual ALT+seta para baixo
Fechar Auto-filtro da coluna atual ALT+seta para cima
Copiar fórmulas em várias células selecionadas CTRL+ Enter
Formatação
Formatar estilos ALT+'
Formatar células CTRL+1
Formatar número Geral CTRL+SHIFT+~
Formatar Moeda com duas casas decimais CTRL+SHIFT+$
Formatar Porcentagem sem casas decimais CTRL+SHIFT+%
Formatar Exponencial com duas casas decimais CTRL+SHIFT+^
Formatar Data CTRL+SHIFT+#
Formatar Hora CTRL+SHIFT+@
Formatar número com duas casas decimais, separador de milhar e sinal (-) para valores negativos CTRL+SHIFT+!
Negrito CTRL+N
Itálico CTRL+I
Sublinhado CTRL+S
Formatar borda superior ALT+T
Formatar borda inferior ALT+B
Formatar borda esquerda ALT+L
Formatar borda direita ALT+R
Formatar linhas divisórias horizontais ALT+H
Inserir linhas ou colunas (selecione) CTRL+ +
Inserir folha de gráfico ou gráfico instantâneo F11
Selecionar coluna ativa CTRL + barra de espaços
Selecionar linha ativa SHIFT + barra de espaços
Selecionar os dados em volta da célula ativa CTRL + *
Ir para F5

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

Fora outras varias combinações que podemos fazer usando a tecla Alt e seguindo as letras que estão sublinhadas.

Mostrando o tempo percorrido entre duas datas

Exemplo:
=DATADIF(C1;D1;"Y")&" anos "&DATADIF(C1;D1;"Ym")&" meses "&DATADIF(C1;D1;"md")
&" dias"

Em C1 coloque 07/09/2005

Em D1 coloque =hoje()

[]'s

Somando com mais de um critério

Em vários foruns de discussão e comunidades do Orkut sempre vejo perguntas do gênero, como fazer uma soma comparando varios critérios. Existe inumeros exemplos postados pelos grandes conhecedores de cada grupo de discussão. Mas resolvi deixar aqui também registrado um pequeno exemplo de uma função muito poderosa, que para novatos é até meio complexa de se entender, pois trabalha semelhante a uma formula matricial.

Veja o exemplo de SomarProduto:

=SOMARPRODUTO(N($A$2:$A$18>=E2);N($B$2:$B$18=F2);($D$2:$D$18))

($A$2:$A$18>=E2) --> Compara a data digitada

($B$2:$B$18=F2) --> Compara o código digitado

($D$2:$D$18) --> Soma o intervalo que for verdadeiro nas duas comparações anteriores.

Veja o arquivo, ficará mais facil a compreensão:
http://www.4shared.com/file/57678509/267df32/Exemplo_SomarProduto.html

Espero que seja util este simples exemplo.