Página 1 de 1
Preenchimento alternando linhas entre determinadas células
Enviado: 17 Ago 2021 às 16:10
por GENECI
Boa tarde!
Solicito a sua ajuda, conforme o arquivo anexo.
Grato - Geneci.
Re: Preenchimento alternando linhas, entre determinadas células
Enviado: 17 Ago 2021 às 18:02
por osvaldomp
Olá,
@GENECI .
Veja se o código abaixo atende.
Código: Selecionar todosSub 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
Re: Preenchimento alternando linhas, entre determinadas células
Enviado: 18 Ago 2021 às 11:01
por GENECI
Bom dia! osvaldomp
Funcionou, conforme solicitação.
Grato - Geneci.