Guru do Excel e Power BI

Boa tarde.

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

Grato - Geneci

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.

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

Guru do Excel e Power BI

2 quinzena do mês e a primeira quinzena do mês posterior conforme data da célula.

2 quinzena do mês e a primeira quinzena do mês posterior conforme data da célula.

Re: 2 quinzena do mês e a primeira quinzena do mês posterior conforme data da célula.

Re: 2 quinzena do mês e a primeira quinzena do mês posterior conforme data da célula.