Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Vba- Insere dados de acordo com critério

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
hiroshi.xiong



Mensagens : 3
Data de inscrição : 27/04/2015

MensagemAssunto: Vba- Insere dados de acordo com critério   Ter Maio 19, 2015 8:21 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Vba- Insere dados de acordo com critério
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como criar base de dados?
» Como inserir dados no MEIO de um arquivo txt
» Como fazer o angulo do sprite ser de acordo com o objeto que colidi
» Como colocar mais dados obrigatórios
» Como ajustar a imagem de fundo das tabelas de acordo com a resolução do monitor

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: