Bom Dia !
Peço ajuda a vocês,
Estou fazendo uma ferramenta para tratar base de dados de um hospital automaticamente, e tenho a necessidade que a cada "passagem" diferente, ele insira um conjunto de celúlas.
Para isso criei uma coluna auxiliar, com função se que traz "1" a cada número diferente do anterior.
e implementei no vba o seguinte código, porém já troquei a posição dos códigos, e ele não funciona da maneira correta (fica adicionando pra uma mesma linha várias vezes o contunto, ou adiciona uma vez só e para)
Sub Insere_dados()
Dim i As Integer 'Contador do Loop
Dim j As Integer 'Contador do Loop de colunas
Dim l As Integer 'Linha da passagem
Dim c As Integer 'Coluna da passagem
Dim nItens As Integer ' célula que conta o número de itens
Dim Passagem As String
nItens = Plan5.Cells(2200, 1).Value ' a célula possui a função cont.valores
'Checagem
l = 4 'loop começa a partir da linha 4
For i = 1 To (nItens)
Passagem = Plan5.Cells(l, 6).Value
If (Passagem = "1") Then
Sheets("Plan1").Select
Range("A2:F5").Select
Selection.Copy
Plan5.Cells(l, 1).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Plan5.Cells(l, 1).Select
ActiveCell.Offset(5, 0).Select ' pula 5 linhas para não testar os itens que foram adicionados
End If
l = l + 1 'Proxima celula
Next i
End Sub
Início