Notifications
Clear all

Loop em Data

3 Posts
2 Usuários
0 Reactions
756 Visualizações
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa noite, Srs.

Gostaria de uma ajuda dos senhores para criar uma estrutura de repetição, onde eu tenho um intervalo de datas que pode variar de 1º a 31º de cada mês onde nem sempre terá todos os dias.
Este intervalos esta entre as células (D3:AH3), e logo na linha abaixo tenho valores que podem repetir ou não, ai que entra questão.
Na célula (E5) tenho o número 5, onde eu gostaria que pegasse o valor da célula (E3) e repetisse a partir da célula (E6) até completar os 5 laços.

Arquivo exemplo:

 
Postado : 06/04/2015 8:33 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Segue uma possibilidade:

Sub lopar_data_GT()

Application.ScreenUpdating = True

Dim l As Long 'linha
Dim c As Long 'coluna
Dim q As Long 'quantidade
Dim rng As Range

Set rng = Range("D3")

For c = rng.Column To rng.End(xlToRight).Column
    q = Cells(4, c).Value
    For l = 6 To 5 + q
        If q = 0 Then Exit For
        Cells(l, c).Value = Cells(3, c).Value
    Next l
Next c

Application.ScreenUpdating = False

End Sub
 
Postado : 06/04/2015 9:29 pm
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa noite, gtsalikis.

Obrigado exatamente o que eu precisava.

 
Postado : 06/04/2015 9:50 pm