VBA

Se pretendermos criar uma sequência aleatória de letras e números, como no exemplo podemos utilizar algumas Funções em VBE. O Código: Sub GerarLetrasNumeros()     Dim obj As Object    Dim linha As Integer, coluna As Integer    Dim r As Integer, c As Integer     Set obj = Range("A1")        linha = obj.Row    coluna = obj.Column        For r = 0 To 10        For c = 0 To 5            Cells(linha + r, coluna …

Ontem, um amigo meu veio ter comigo e disse-me que pretendia uma macro de modo a que pudesse seleccionar um Range variável. Por exemplo, numa tabela A1:B10, poder, a partir de um número variável numa determinada célula, seleccionar desde A1 até à linha correspondente a esse número na coluna B: ou seja, no exemplo, digitar o nº 3 na célula …

Por norma, a ordenação ascendente ou descendente, é efectuada de cima para baixo (Top to Bottom): mas também pode ser efectuada da esquerda para a direita (Left to Right): No entanto, como fazer, de modo a efectuarmos múltiplos sorts Left to Right. como, por exemplo, no seguinte Range: de maneira a, de uma só vez, ficar como segue? Tom Ogilvy, …

Se tivermos preenchidas linhas, como no exemplo e pretendermos inserir linhas em branco após 4 linhas de dados, ou seja, sempre à próxima 5ª linha, podemos utilizar o seguinte Código, adaptado de Dave Peterson: Private Sub CommandButton1_Click() 'Adiciona 1 linha em branco após 4 linhas'Código original por: Dave Peterson        Dim iCtr As Long    Dim LastRow As Long    Dim myRng As Range        With ActiveSheet        LastRow = …

Por vezes podemos ter a necessidade de redefinir uma tecla para uma outra. No exemplo seguinte, redefine-se a tecla ENTER (incluindo a numérica) para a tecla TAB e provoca-se um avanço de uma coluna na mesma linha: Sub Auto_open()    Application.OnKey "~", "JumpNext"    Application.OnKey "{ENTER}", "JumpNext1"End Sub Sub JumpNext()    r = ActiveCell.Row    c = ActiveCell.Column     If c >= 1 Then        c = c + 1        r = …