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 »