Este fórum está sendo desativado

[GENECI]

Boa tarde.

Solicito a sua ajuda para alterar a macro, conforme instruções estabelecidas no arquivo anexo.

Grato - Geneci

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub InsereDatas()
 [A16:A47] = ""
 [A16] = DateSerial(Year([L4]), Month([L4]), 16)
 [A16].AutoFill [A16].Resize(DateSerial(Year([L4]), Month([L4]) + 1, 15) - DateSerial(Year([L4]), Month([L4]), 16) + 1)
End Sub

#
obs. o seu código atual está colocado no módulo da planilha FOLFREQ e embora ele também funcione ali, é recomendável deixar o módulo de planilha exclusivamente para os eventos de planilhas, por isso o ideal é colocar os códigos do tipo acima em um módulo comum: no editor de VBA | Inserir | Módulo.

[GENECI]

Bom dia, osvaldomp.
Muito obrigado por atender a minha solicitação.
Grato - Geneci.