VBA

Se pretendermos copiar um determinado range de uma Sheet para uma outra Sheet, mas para a linha vazia seguinte e mantendo dados em outras células da mesma linha onde se pretendem colar os dados, como no exemplo seguinte: Podemos utilizar o seguinte Código num CommandButton: Private Sub CommandButton1_Click()    Range(ActiveCell, ActiveCell.Offset(0, 3)).Copy Destination:= _                              Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)End Sub Nota: Neste exemplo, torna-se …

Se se pretender mudar a célula selecionada para uma outra na mesma linha mas na coluna "A", que código utilizar para mover a selecção, tendo em conta que a selecção inicial pode estar a 1, 2, 3, etc. células de "distância" na mesma linha? Ex: de para O Código do CommandButton: Private Sub CommandButton2_Click()    Cells(ActiveCell.Row, 1).ActivateEnd Sub

  Para apagar, na ultima linha editada, os valores das células correspondentes às colunas A, B , C , D e E, como no exemplo:     Podemos utilizar o seguinte Código:   Private Sub CommandButton1_Click()     i = 5    t = True     While t = True        i = i + 1        If Cells(i, 1).Value = "" Then t = False    Wend     Range("a" & (i – …

Fizeram a seguinte pergunta:  "O código só copia e cola as celulas A, B,C e D da linha seleccionada se a célula da coluna A estiver seleccionada. Se a célula da coluna D estiver seleccionada vai copiar e colar as células à direita da mesma, ora o que eu pretendia se possivel era: Nas colunas A, B, C estão inscritos …

No último post, vimos como se podiam colar dados na Folha2 provenientes da Folha1. Mas e se os dados a serem colados forem provenientes de selecções múltiplas, ou seja, de ranges não contínuos? Como efectuar estas cópias múltiplas e como colar na Folha2 , mas de modo contínuo, linha a linha? Para uma melhor compreensão, vejamos o exemplo:  Escolha na …