Este fórum está sendo desativado

[GENECI]

Boa tarde!
Solicito a sua ajuda, conforme o arquivo anexo.

Grato - Geneci.

[osvaldomp]

Olá, @GENECI .

Veja se o código abaixo atende.

Código: Selecionar todos

Sub InsereTraços()
 Dim k As Long, v As long, d As Long
  d = Day([K1])
  For k = 1 To 16
   Cells(d + 2 * v, 4).Resize(, 4).Value = "____:____": v = v + 1
  Next k
End Sub

[GENECI]

Bom dia! osvaldomp
Funcionou, conforme solicitação.

Grato - Geneci.