Notifications
Clear all

Repetir o registro quanto for necessário

2 Posts
2 Usuários
0 Reactions
781 Visualizações
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

bom dia

tem uma relatório em excel e no meio desse relatório tem um campo oportinidade de melhoria, cada melhoria que for colocada ali ele deverá salvar as informações na planilha registro.
mas somente irá fazer isso se o nome da equipe for preenchida.
ja existe uma macro que faz isso, mas é simples, eu quero que se eu preencher 5 linhas ele alimente 5 vezes na planilha registro com as informações que estão no cabeçalho.
na coluna número do simulado ja vai atuomaticamente.

dúvidas me solicitem.

 
Postado : 19/05/2015 5:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente um loop´

Sub AleVBA_15864()
    Dim MyCell, Rng As Range
    Dim lCount As Long
    lCount = WorksheetFunction.CountA(Range(Cells(44, 1), Cells(51, 1)))

    Set Rng = Sheets("ATA").Range("A44:A51")
    For Each MyCell In Rng
        If MyCell <> "" Then
             Call Cadastro 'Aqui vai sua Macro
        Else
            Exit Sub
        End If
    Next
    
End Sub
 
Postado : 19/05/2015 7:12 am