Se tivermos uma tabela na Sheet2, como no exemplo: e pretendermos copiar o conteúdo das colunas B e C, por linha para a Sheet1, como no exemplo: podemos correr o risco de perdermos a formatação inicial na Sheet1, no que diz respeito ao valor, se utilizarmos o seguinte Código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set rng1 = …
Read More »Posts Recentes
Wild cards novamente
Se, por exemplo, na Sheet3, em A3, pretendermos ter o resultado da soma de A1 da Sheet1 com A1 da Sheet2, então, podemos digitar: =SUM('*'!A1), quando damos Enter, a fórmula transforma-se em: =SUM(Sheet1:Sheet2!A1) Também tem o mesmo resultado, a seguinte fórmula: =SUM('She*'!A1) e a seguinte, também: =SUM('Sheet?'!A1) Ou seja, a utilização de qualquer destas wild cards, tem o mesmo resultado. …
Read More »ActiveCell & ActiveCell.OffSet
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 …
Read More »Seleccionar célula na coluna “A” a partir da ActiveCell
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
Read More »Apagar o conteúdo de um determinado conjunto de células
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 – …
Read More »ActiveCell & ActiveCell.OffSet (II)
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 …
Read More »Selecções múltiplas e colagem
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 …
Read More »