Se pretendermos transformar Nome e Apelido em Apelido, Nome como no exemplo: podemos utilizar a seguinte fórmula (créditos para Bob Phillips): =MID(A1;FIND(" "A1)+1;255)&", "&LEFT(A1;FIND(" "A1)) Mas se pretendermos o contrário, ou seja, transformar Apelido, Nome em Nome e Apelido como no exemplo: então, poderemos utilizar, a partir da fórmula anterior, a seguinte fórmula alterada: =MID(A2;FIND(" ";A2)+1;255)&" "&LEFT(A2;FIND(", ";A2)-1)
Read More »Posts Recentes
Listar ficheiros
Se pretendermos usar o Excel para listar o conteúdo de um directório ou de uma pasta, mostrando cada nome de ficheiro numa célula de uma coluna (no exemplo, coluna A) e mostrando, igualmente a data/hora na célula correspondente da coluna seguinte e ainda fazer com que as colunas fiquem com a sua largura ajustada ao tamanho do nome do …
Read More »ToolBar personalizado
Se pretendermos construir um ToolBar personalizado (a que chamaremos "MyToolBar"), desactivando outros ToolBars existentes, deixando apenas activo o ToolBar denominado "WorkSheet Menu Bar" e o MyToolBar e ainda que este seja apagado quando saímos do workbook, reactivando todos os outros ToolBars e, por fim, que, quando de novo abrirmos o workbook, voltemos a ter o MyToolBar disponível, podemos utilizar as seguintes peças de código, …
Read More »Ranges, Copy Destination & OffSet
Se pretendermos copiar dados de uma folha para outra, de modo sequencial e partindo do princípio de que esses dados não se encontram sempre, na sua origem, nas mesmas células, mas mantendo-se na mesma ordem por coluna, como no exemplo: Folha1 (1º momento): Folha2 (1º momento): Folha1 (2º momento): Folha2 (2º momento): Podemos então, para conseguir este …
Read More »Range.Address
Se num determinado Range pretendermos encontrar a primeira célula vazia, entre várias células preenchidas e vazias, como no exemplo, podemos utilizar um pouco de código VBE, de modo a, por um lado, termos uma mensagem a dizer-nos qual é a célula e, de seguida, posicionarmo-nos nessa mesma célula. O Código: Option Explicit Sub FindFirstEmptyCell() Dim myRange As …
Read More »ActiveCell.Address /Excel Formula SUM()
Se pretendermos obter numa célula, apenas com um duplo click, o valor total resultante da soma de um Range variável, na mesma coluna, Range esse que se inicie na 2ª linha e termine na linha imediatamente anterior à célula onde queremos o total, como no exemplo: podemos utilizar o seguinte Código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim …
Read More »Criar mensagem no Outlook a partir do Excel
Num newsgroup de Excel, perguntou-se como se poderia criar uma mensagem no Outlook, para avisar determinada pessoa, que já passaram mais do que três dias sobre a data limite e que, por, isso, essa pessoa deveria contactar os serviços, com urgência. Supondo que, em A1, temos a data inicial, ou seja, a data limite (no exemplo: 07-03-2007) e que, em B1, …
Read More »