Gostaria de saber como posso copiar um conjunto de linhas. Por exemplo, linha 1 até 5 e colar nas linhas 10 a 15. Essa acção seria feita com o valor 1 em outra outra folha e na célula A1.
Tenho um botão com VBA para fazer isso, mas queria fazer automaticamente quando o valor da célula é "28" ou "29".
Estes são os códigos que tenho em botão. Um adiciona e o outro remove as linhas.
Private Sub CommandButton1_Click()
Sheets("Fevereiro").Rows("5:9").Copy (Sheets("Fevereiro").Rows("11:15"))
End Sub
Private Sub CommandButton2_Click()
Worksheets("Fevereiro").Rows("11:15").Delete
End Sub
Isto é para tentar fazer o seguinte:
O mês de fevereiro ora tem 28 dias ou 29.
Tenho uma fórmula FIMMÊS
para me dar o dia exacto se o mês termina a 28 ou 29 conforme o ano.
Se de um ano para o outro o mês tiver mais um dia, o VBA adiciona um certo número de linhas na folha "Fevereiro" (logo abaixo da última linha preenchida) ou remove se no ano seguinte só tiver 28 novamente.