Este fórum está sendo desativado

[CAMILOALVES]

Necessito copiar a fórmula da célula “S3” até a célula "S1048576" da planilha em anexo, para tanto fiz a seguinte macro (sou iniciante):
Sub copia()
Range("S3").Select
Selection.Copy
Range("S1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Porém ela (macro) está funcionando da seguinte forma: ao clicar no botão “Botão 2”, copia a fórmula da célula de cima, no caso a da célula “S3” e com isso Eu tenho que clicar umas dezenas de vezes para atingir o resultado esperado.
RESULTADO ESPERADO: que ao se clicar no botão “copiar”, possa copiar a fórmula inserida na célula “S3” até a célula “S1048576”

Atenciosamente

[ExcelFlex]

Bom dia, acho que o código que você precisa é:

Código: Selecionar todos

Range("S3").Copy Range("s4:s1048576")

Só avalie melhor a real necessidade de colocar fórmulas em todas as linhas de uma planilha, você está só começando, então dê uma olhada em Criar Tabela para ter um controle melhor sobre a sua range de dados.

[osvaldomp]

Código: Selecionar todos

Sub InsereFórmula()
 Range("S3:S1048576").FormulaLocal = "=SE(A3="""";"""";SE(P3="""";""SIM"";""NÃO""))"
End Sub

[CAMILOALVES]

Show!