About Me
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!!!!!!
Para saberem como fazer, vejam o texto escrito pelo Microsoft Excel MVP – Ron de Bruin:
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
Há dias, no Fórum do Exceler, colocaram a seguinte questão:
“Eu tenho uma tabela onde a Coluna A4:A19 contem datas, e as colunas B4:G19 tenho dados.E no B2"Data" critério.
Eu quero SUMIF onde as colunas B4:G19 sejam somadas quando o critério for verdade.
Eu fiz =SUMIF(A4:A19,B2,B4:B19) mas esta somando somente a Coluna B ao invés de B4:G19
Por favor veja a foto em anexo.
A resposta possível poderá ser:
Uma das hipóteses, utilizando a função SUMIF (SOMA.SE),será a seguinte fórmula:
=SUMIF(A4:A19,B2,B4:B19)+SUMIF(A4:A19,B2,C4:C19)+SUMIF(A4:A19,B2,D4:D19)+SUMIF(A4:A19,B2,E4:E19)+SUMIF(A4:A19,B2,F4:F19)+SUMIF(A4:A19,B2,G4:G19)
A outra, melhor, na minha opinião, utilizando a função SUMPRODUCT ( SOMARPRODUTO), será:
=SUMPRODUCT((A4:A19=B2)*B4:G19)
Há mais opiniões? Serão, como sempre, muito bem vindas!
Tópicos relacionados:
Recebi ontem a mensagem sobre a minha 6ª renomeação consecutiva como MVP Excel! Claro que estou satisfeitíssimo e vou tentar, como sempre, não desiludir a comunidade!!!
“Dear Jorge Rodrigues,
Congratulations! We are pleased to present you with the 2010 Microsoft® MVP Award! This award is given to exceptional technical community leaders who actively share their high quality, real world expertise with others. We appreciate your outstanding contributions in Excel technical communities during the past year.”
Para saber sobre funcionalidades descontinuadas e modificadas no Excel 2010, aceda a:
Conversão de ficheiros e compatibilidades 01
Para saber como adicionar ou remover suplementos no Excel 2010, aceda a:
Tópicos relacionados:
O site de David McRitchie é um local de consulta obrigatória, porque tem exemplos muito bons.
Ora vejam:
Tomemos, por exemplo, o seguinte:
O que se pretende, é criar uma fórmula que altere o texto de A1, para que as células B1 (com formatação de data personalizada, na forma aaaa-mm-dd) e B8 (sem formatação de data personalizada) se apresentem como na imagem.
Aqui fica, a título de exemplo, uma possível solução:
Em português: =DATA(DIREITA(A1;4);EXT.TEXTO(A1;3;2);ESQUERDA(A1;2))

