Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Loop em Data
 
Notifications
Clear all

Loop em Data

 
2024 - VBA & Macros
Post Recente por Trindade 10 anos atrás
3 Posts
2 Usuários
0 Reactions
767 Visualizações
RSS
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable 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:

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 06/04/2015 8:33 pm
 gtsalikis
(@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

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 06/04/2015 9:29 pm
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
Topic starter
 

Boa noite, gtsalikis.

Obrigado exatamente o que eu precisava.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 06/04/2015 9:50 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico