Página 1 de 1

Macro que da Autofill na formula em diversas planilhas

Enviado: 04 Ago 2020 às 20:01
por Stickdaleh
Olá,

Tenho uma planilha com mais de 1000 abas, que montem com ajuda das macros e do pessoal do fórum.

Agora eu preciso de uma macro que de Autofill nas fórmulas de acordo com a range da coluna já preenchida, que é as datas.
A range varia de aba para aba, e se possível fazer para todas de uma unica vez.

Também seria necessário trocar as fórmulas de acordo com a necessidade no código VBA.

No modelo em anexo, mostra na primeira aba como seria mais ou menos, aí as outras, por terem datas maiores ou menores teriam que variar de acordo com a range da data.

Obs: Acabei postando na área errada, como apaga o meu outro tópico?

Macro que da Autofill na formula em diversas planilhas

Enviado: 06 Ago 2020 às 05:51
por AfonsoMira
Boas seria algo deste género:
Código: Selecionar todos
Sub preencher()

Dim ws As Worksheet

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .EnableEvents = False
End With

For Each ws In ActiveWorkbook.Worksheets

Dim ultimalinha As Long

Sheets(1).Range("C4:F4").Copy

ultimalinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Sheets(ws.Name).Range("C4:F" & ultimalinha).PasteSpecial xlPasteFormulas

Sheets(ws.Name).Calculate

Sheets(ws.Name).Range("C5:F" & ultimalinha).Copy
Sheets(ws.Name).Range("C5:F" & ultimalinha).PasteSpecial xlPasteValues


Next ws

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .EnableEvents = True
End With

MsgBox "A macro terminou"

End Sub