About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2011-10-01

MVP_Award_2011

 

URRA!!!! URRA!!!! URRA!!!!! Amigos!!!! Estou, mais uma vez, orgulhoso com o facto de ter voltado a ser, em 2011 e pela 7ª vez consecutiva, agraciado com o Microsoft MVP Award !!!!

 

Obrigado, Cristina Gonzalez, pela confiança!!!! Bem haja e felicidades!!!!! Vou continuar, com todo o entusiasmo, a promover o EXCELer!!!

 

Obrigado, Bruno Castro, por me aturar sempre que preciso de algo novo para o EXCELer!!!!!

 

Obrigado a todos os EXCELerianos!!!!!! MUITO OBRIGADO!!!!!!

2011-07-31

Para ver em formato PDF, aceder a:

Guia Rápido de referência - Excel 2010

 

Para saber como criar uma tabela em Excel, de maneira fácil. CLICAR AQUI

2011-07-19

Para saberem como fazer, vejam o texto escrito pelo Microsoft Excel MVP – Ron de Bruin:

 

Criar e enviar ficheiros em formato PDF

2011-04-18

Exemplo para filtrar e copiar para outra folha:

Supondo que temos a seguinte tabela:

O que se pretende, é copiar para outra folha (ex. folha2) os registos que contenham apenas a sigla pretendida:

O exemplo de código possível:

Sub FiltrarECopiar()

Dim Msg As String

Sheets("Folha2").Select

Columns("A:C").Select

Selection.ClearContents

Sheets("Folha1").Select

Msg = InputBox(" Escreva as siglas para filtrar")

Msg = UCase(Msg)

Range("C2").AutoFilter Field:=3, Criteria1:=Msg

Range("A2").Resize(Range("A" & Rows.Count).End(xlUp).Row - 1).EntireRow.Copy _

Destination:=Sheets("Folha2").Range("A1")

ActiveSheet.ShowAllData

End Sub

 

Créditos para o MVP J.E. McGimpsey